Mercurial > ~darius > hgwebdir.cgi > musiccutter
annotate musiccutter.py @ 3:49a33c431b45
Accept filename for test function
| author | Daniel O'Connor <darius@dons.net.au> |
|---|---|
| date | Mon, 07 Mar 2016 14:46:37 +1030 |
| parents | b1aac55d2864 |
| children | 9f4fa5f231e6 |
| rev | line source |
|---|---|
| 0 | 1 #!/usr/bin/env python |
| 2 | |
| 3 import exceptions | |
| 4 import mido | |
| 5 import svgwrite | |
| 6 import sys | |
| 7 | |
|
3
49a33c431b45
Accept filename for test function
Daniel O'Connor <darius@dons.net.au>
parents:
2
diff
changeset
|
8 def test(filename = None): |
| 0 | 9 # http://www.orgues-de-barbarie.com/wp-content/uploads/2014/09/format-cartons.pdf |
|
2
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
10 conf = { 'notefile' : 'notes', 'pitch' : 5.5 , 'pagewidth' : 20, 'pageheight' : 15.5 } |
| 0 | 11 midi2note, note2midi = genmidi2note() |
| 12 note2slot = loadnote2slot(conf['notefile'], note2midi) | |
|
3
49a33c431b45
Accept filename for test function
Daniel O'Connor <darius@dons.net.au>
parents:
2
diff
changeset
|
13 if filename == None: |
|
49a33c431b45
Accept filename for test function
Daniel O'Connor <darius@dons.net.au>
parents:
2
diff
changeset
|
14 filename = 'test.midi' |
|
49a33c431b45
Accept filename for test function
Daniel O'Connor <darius@dons.net.au>
parents:
2
diff
changeset
|
15 midi2svg(filename, 'test%d.svg', conf['pitch'], midi2note, note2midi, note2slot, conf['pagewidth'], conf['pageheight']) |
| 0 | 16 |
| 17 # http://www.electronics.dit.ie/staff/tscarff/Music_technology/midi/midi_note_numbers_for_octaves.htm | |
| 18 def genmidi2note(): | |
| 19 '''Create forward & reverse tables for midi number to note name (assuming 69 == A440)''' | |
| 20 names = ['C%d', 'C%d#', 'D%d', 'D%d#', 'E%d', 'F%d', 'F%d#', 'G%d', 'G%d#', 'A%d', 'A%d#', 'B%d'] | |
| 21 midi2note = {} | |
| 22 note2midi = {} | |
| 23 for midi in range(128): | |
| 24 octave = midi / len(names) | |
| 25 index = midi % len(names) | |
| 26 name = names[index] % (octave) | |
| 27 midi2note[midi] = name | |
| 28 note2midi[name] = midi | |
| 29 | |
| 30 return midi2note, note2midi | |
| 31 | |
| 32 def loadnote2slot(fname, note2midi): | |
| 33 svg = svgwrite.Drawing(fname) | |
| 34 | |
| 35 note2slot = {} | |
| 36 index = 0 | |
| 37 | |
| 38 for note in file(fname): | |
| 39 note = note.strip() | |
| 40 if note[0] == '#': | |
| 41 continue | |
| 42 if note not in note2midi: | |
| 43 raise exceptions.ValueError('Note \'%s\' not valid' % note) | |
| 44 note2slot[note] = index | |
| 45 index += 1 | |
| 46 | |
| 47 return note2slot | |
| 48 | |
|
2
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
49 def emitnote(svg, slot, start, notelen, pageheight): |
| 1 | 50 # Let us say 185 ticks for a quaver and that is 0.5cm long |
| 51 tickscale = 185.0 / 0.5 | |
| 52 pitch = 0.55 | |
| 53 offset = 0.60 | |
| 0 | 54 x = start / tickscale |
|
2
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
55 y = pageheight - (offset + slot * pitch) |
| 0 | 56 w = notelen / tickscale |
|
2
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
57 h = pitch |
| 1 | 58 print 'x = %.3f y = %.3f w = %.3f h = %.3f' % (x, y, w, h) |
| 59 svg.add(svgwrite.shapes.Rect(insert = ('%.3fcm' % (x), '%.3fcm' % (y)), | |
| 60 size = ('%.3fcm' % (w), '%.3fcm' % (h)), | |
| 61 stroke = 'red', stroke_width = '1px', fill = 'red')) | |
| 0 | 62 |
|
2
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
63 def midi2svg(inf, outpat, pitch, midi2note, note2midi, note2slot, pagewidth, pageheight): |
|
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
64 playablecount = 0 |
|
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
65 unplayablecount = 0 |
| 0 | 66 midi = mido.MidiFile(inf) |
|
2
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
67 svg = svgwrite.Drawing(outpat % (0), size = ('%.3fcm' % (pagewidth), '%.3fcm' % (pageheight))) |
| 0 | 68 tnum = 0 |
|
2
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
69 |
| 0 | 70 for t in midi.tracks: |
| 71 print "Track", tnum | |
| 72 tnum += 1 | |
| 73 channels = [] | |
| 74 for i in range(16): | |
| 75 channels.append({}) | |
| 76 ctime = 0 | |
| 77 for ev in t: | |
| 78 ctime += ev.time | |
|
2
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
79 print ctime, ev |
| 0 | 80 if ev.type == 'note_on' and ev.velocity > 0: |
| 81 if ev.note in channels[ev.channel]: | |
| 82 print "Duplicate channel on message" | |
| 83 else: | |
| 84 channels[ev.channel][ev.note] = ctime | |
| 85 elif ev.type == 'note_off' or (ev.type == 'note_on' and ev.velocity == 0): | |
| 86 if ev.note not in channels[ev.channel]: | |
| 87 print 'Note_off with no corresponding note_on for track %d channel %d note %d' % (tnum, ev.channel, ev.note) | |
| 88 else: | |
| 89 note = midi2note[ev.note] | |
| 90 if note not in note2slot: | |
| 91 print 'Skipping unplayable note %s' % (note) | |
|
2
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
92 unplayablecount += 1 |
| 0 | 93 else: |
|
2
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
94 start = channels[ev.channel][ev.note] |
|
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
95 notelen = ctime - start |
| 0 | 96 slot = note2slot[note] |
|
2
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
97 print 'Note %s (%d) at %d length %d' % (note, slot, start, notelen) |
|
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
98 emitnote(svg, slot, start, notelen, pageheight) |
|
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
99 print |
|
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
100 playablecount += 1 |
| 0 | 101 del channels[ev.channel][ev.note] |
|
2
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
102 elif ev.type == 'end_of_track': |
|
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
103 print 'EOT, flushing' |
|
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
104 for chan in channels: |
|
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
105 for ev in chan: |
|
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
106 print ev |
|
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
107 print |
|
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
108 print |
|
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
109 print |
|
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
110 svg.save() |
|
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
111 print 'Playable count:', playablecount |
|
b1aac55d2864
Parameterise page size add some more debugging.
Daniel O'Connor <darius@dons.net.au>
parents:
1
diff
changeset
|
112 print 'Unplayable count:', unplayablecount |
| 0 | 113 |
| 114 if __name__ == '__main__': | |
| 115 main() |