X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scripts%2Fmidi2ly.py;h=66d8fbee9adf19a3899ab56261f87f5b5709a001;hb=4adbd83d69f866c2dfbb96f3e07a72b23d872170;hp=b679a364d472ca0cbb28b8ad11ea6f5986bd6146;hpb=7af4bf1f7440843fa24de456edc04ad31b616cf9;p=lilypond.git diff --git a/scripts/midi2ly.py b/scripts/midi2ly.py index b679a364d4..66d8fbee9a 100644 --- a/scripts/midi2ly.py +++ b/scripts/midi2ly.py @@ -4,7 +4,7 @@ # # source file of the GNU LilyPond music typesetter # -# (c) 1998--2004 Han-Wen Nienhuys +# (c) 1998--2005 Han-Wen Nienhuys # Jan Nieuwenhuizen @@ -80,7 +80,7 @@ except: def _ (s): return s -program_name = 'midi2ly' +program_name = sys.argv[0] program_version = '@TOPLEVEL_VERSION@' errorport = sys.stderr @@ -133,7 +133,7 @@ def identify (): def warranty (): identify () sys.stdout.write ('\n') - sys.stdout.write (_ ('Copyright (c) %s by') % ' 2001--2004') + sys.stdout.write (_ ('Copyright (c) %s by') % ' 2001--2005') sys.stdout.write ('\n') sys.stdout.write (' Han-Wen Nienhuys') sys.stdout.write (' Jan Nieuwenhuizen') @@ -891,16 +891,15 @@ def dump_track (channels, n): if item and item.__class__ == Note: skip = 's' - s = s + '%s = \\notes' % (track + channel) + s = s + '%s = ' % (track + channel) if not absolute_p: s = s + '\\relative c ' elif item and item.__class__ == Text: skip = '" "' - s = s + '%s = \\lyrics ' % (track + channel) + s = s + '%s = \\lyricmode ' % (track + channel) else: skip = '\\skip ' - # must be in \notes mode for parsing \skip - s = s + '%s = \\notes ' % (track + channel) + s = s + '%s = ' % (track + channel) s = s + '{\n' s = s + ' ' + dump_channel (channels[i][0], skip) s = s + '}\n\n' @@ -983,8 +982,9 @@ def convert_midi (f, o): tag = '%% Lily was here -- automatically converted by %s from %s' % ( program_name, f) + s = '' - s = tag + '\n\n' + s = tag + '\n\\version "2.3.25"\n\n' for i in range (len (tracks)): s = s + dump_track (tracks[i], i) @@ -1084,7 +1084,6 @@ if not files or files[0] == '-': for f in files: - g = f g = strip_extension (g, '.midi') g = strip_extension (g, '.mid')