annotate musiccutter.py @ 36:6874140c9c11

Fix transposition.
author Daniel O'Connor <darius@dons.net.au>
date Tue, 17 May 2016 22:30:54 +0930
parents 1d5dcaa3b07d
children c490fecec0ef
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
0773354c7428 Initial commit, WIP.
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
1 #!/usr/bin/env python
0773354c7428 Initial commit, WIP.
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
2
0773354c7428 Initial commit, WIP.
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
3 import exceptions
4
9f4fa5f231e6 Rework to use mido iterator and paginate.
Daniel O'Connor <darius@dons.net.au>
parents: 3
diff changeset
4 import itertools
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
5 import math
0
0773354c7428 Initial commit, WIP.
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
6 import mido
22
65e8298f5800 Remove extension and path name from title.
Daniel O'Connor <darius@dons.net.au>
parents: 21
diff changeset
7 import os.path
11
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
8 import reportlab.lib.colors
12
6e46ceee57a7 Use correct MIDI note generation, previous version did not agree with
Daniel O'Connor <darius@dons.net.au>
parents: 11
diff changeset
9 import reportlab.pdfgen.canvas
11
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
10 from reportlab.lib.units import mm
0
0773354c7428 Initial commit, WIP.
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
11 import sys
0773354c7428 Initial commit, WIP.
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
12
11
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
13 CUT_COLOUR = reportlab.lib.colors.red
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
14 ENGRAVE_COLOUR = reportlab.lib.colors.black
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
15
3
49a33c431b45 Accept filename for test function
Daniel O'Connor <darius@dons.net.au>
parents: 2
diff changeset
16 def test(filename = None):
49a33c431b45 Accept filename for test function
Daniel O'Connor <darius@dons.net.au>
parents: 2
diff changeset
17 if filename == None:
49a33c431b45 Accept filename for test function
Daniel O'Connor <darius@dons.net.au>
parents: 2
diff changeset
18 filename = 'test.midi'
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
19 # Card layout from http://www.orgues-de-barbarie.com/wp-content/uploads/2014/09/format-cartons.pdf
19
ffaf97818ce3 - Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents: 18
diff changeset
20 # Notes are read from right to left
24
71b78f06ff03 Highest notes are at the bottom not the top.
Daniel O'Connor <darius@dons.net.au>
parents: 23
diff changeset
21 # Highest note is at the bottom (closest to the crank)
32
f053dd6e9e68 Add l33t ASCII diagram to show how folds should be
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
22 # fold fold
f053dd6e9e68 Add l33t ASCII diagram to show how folds should be
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
23 # in out
f053dd6e9e68 Add l33t ASCII diagram to show how folds should be
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
24 # V ^
f053dd6e9e68 Add l33t ASCII diagram to show how folds should be
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
25 # +---+---+---+ lowest note
f053dd6e9e68 Add l33t ASCII diagram to show how folds should be
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
26 # | | | |
f053dd6e9e68 Add l33t ASCII diagram to show how folds should be
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
27 # +---+---+---+ highest note
f053dd6e9e68 Add l33t ASCII diagram to show how folds should be
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
28 #
30
f46cc9401e79 Make transposition optional and add note scale parameter (to get rearticulation)
Daniel O'Connor <darius@dons.net.au>
parents: 29
diff changeset
29 m = Midi2PDF('notes', 120, 155, 5.5, 3.3, 6.0, 50, False, False, False, False, False, 0, 30, 0.9, 'Helvetica', 12)
11
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
30 base, ext = os.path.splitext(filename)
22
65e8298f5800 Remove extension and path name from title.
Daniel O'Connor <darius@dons.net.au>
parents: 21
diff changeset
31 base = os.path.basename(base)
11
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
32 m.processMidi(filename, base + '-%02d.pdf')
0
0773354c7428 Initial commit, WIP.
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
33
11
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
34 class Midi2PDF(object):
31
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
35 def __init__(self, notefile, pagewidth, pageheight, pitch, slotsize, heel, leadin, timemarks, trytranspose, drawrect, notenames, notelines, noteoffset, pagesperpdf, timescale, notescale, fontname, fontsize):
27
87cf66e04ef9 Handle offsetting note pitch in a better way.
Daniel O'Connor <darius@dons.net.au>
parents: 26
diff changeset
36 self.midi2note, self.note2midi = Midi2PDF.genmidi2note()
13
5f4c21bb5140 Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents: 12
diff changeset
37 self.note2slot, self.slot2note = Midi2PDF.loadnote2slot(notefile, self.note2midi)
11
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
38 self.pagewidth = pagewidth # Dimensions are in millimetres
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
39 self.pageheight = pageheight
13
5f4c21bb5140 Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents: 12
diff changeset
40 self.pitch = pitch # Distance between each slot
16
20337b22977d Add left margin and slot size support.
Daniel O'Connor <darius@dons.net.au>
parents: 14
diff changeset
41 self.slotsize = slotsize # Size of each slot cut out
24
71b78f06ff03 Highest notes are at the bottom not the top.
Daniel O'Connor <darius@dons.net.au>
parents: 23
diff changeset
42 self.heel = heel # Bottom margin (from bottom of page to centre of slot)
19
ffaf97818ce3 - Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents: 18
diff changeset
43 self.leadin = leadin # Extra at the start
ffaf97818ce3 - Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents: 18
diff changeset
44 self.timemarks = timemarks # Draw vertical time lines
30
f46cc9401e79 Make transposition optional and add note scale parameter (to get rearticulation)
Daniel O'Connor <darius@dons.net.au>
parents: 29
diff changeset
45 self.trytranspose = trytranspose # Attempt to tranpose unplayable notes
19
ffaf97818ce3 - Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents: 18
diff changeset
46 self.drawrect = drawrect # Draw rectangle around each page
20
9bb72ae63651 - Make various things optional.
Daniel O'Connor <darius@dons.net.au>
parents: 19
diff changeset
47 self.notenames = notenames # Draw note names on the right edge
9bb72ae63651 - Make various things optional.
Daniel O'Connor <darius@dons.net.au>
parents: 19
diff changeset
48 self.notelines = notelines # Draw line rulers
27
87cf66e04ef9 Handle offsetting note pitch in a better way.
Daniel O'Connor <darius@dons.net.au>
parents: 26
diff changeset
49 self.noteoffset = noteoffset # Amount to adjust note pitches by (+12 = 1 octave)
31
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
50 self.pagesperpdf = pagesperpdf # Number of pages to emit per PDF
16
20337b22977d Add left margin and slot size support.
Daniel O'Connor <darius@dons.net.au>
parents: 14
diff changeset
51 self.timescale = timescale # Width per second
30
f46cc9401e79 Make transposition optional and add note scale parameter (to get rearticulation)
Daniel O'Connor <darius@dons.net.au>
parents: 29
diff changeset
52 self.notescale = notescale # Multiply all note lengths by this (to get rearticulation)
11
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
53 self.fontname = fontname
16
20337b22977d Add left margin and slot size support.
Daniel O'Connor <darius@dons.net.au>
parents: 14
diff changeset
54 self.fontsize = fontsize # Points
0
0773354c7428 Initial commit, WIP.
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
55
31
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
56 self.pdfwidth = self.pagewidth * self.pagesperpdf
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
57
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
58 def processMidi(self, midifile, outpat):
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
59 playablecount = 0
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
60 unplayablecount = 0
28
657bc32a0dfd Try transposing unplayable notes down or up an octave (in that order).
Daniel O'Connor <darius@dons.net.au>
parents: 27
diff changeset
61 transposeupcount = 0
657bc32a0dfd Try transposing unplayable notes down or up an octave (in that order).
Daniel O'Connor <darius@dons.net.au>
parents: 27
diff changeset
62 transposedowncount = 0
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
63 midi = mido.MidiFile(midifile)
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
64 ctime = 0
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
65 channels = []
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
66 for i in range(16):
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
67 channels.append({})
0
0773354c7428 Initial commit, WIP.
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
68
19
ffaf97818ce3 - Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents: 18
diff changeset
69 npages = int(math.ceil(((midi.length * self.timescale) + self.leadin) / self.pagewidth))
31
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
70 npdfs = int(math.ceil(float(npages) / self.pagesperpdf))
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
71 print 'npages %d, npdfs %d' % (npages, npdfs)
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
72
11
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
73 pdfs = []
31
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
74 for i in range(npdfs):
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
75 pdf = reportlab.pdfgen.canvas.Canvas(file(outpat % (i + 1), 'w'),
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
76 pagesize = (self.pdfwidth * mm, self.pageheight * mm))
11
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
77 pdfs.append(pdf)
0
0773354c7428 Initial commit, WIP.
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
78
22
65e8298f5800 Remove extension and path name from title.
Daniel O'Connor <darius@dons.net.au>
parents: 21
diff changeset
79 title = os.path.basename(midifile)
65e8298f5800 Remove extension and path name from title.
Daniel O'Connor <darius@dons.net.au>
parents: 21
diff changeset
80 title, ext = os.path.splitext(title)
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
81 for ev in midi:
27
87cf66e04ef9 Handle offsetting note pitch in a better way.
Daniel O'Connor <darius@dons.net.au>
parents: 26
diff changeset
82 # Adjust pitch of note (if it's a note)
87cf66e04ef9 Handle offsetting note pitch in a better way.
Daniel O'Connor <darius@dons.net.au>
parents: 26
diff changeset
83 if hasattr(ev, 'note'):
87cf66e04ef9 Handle offsetting note pitch in a better way.
Daniel O'Connor <darius@dons.net.au>
parents: 26
diff changeset
84 ev.note += self.noteoffset
11
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
85 if ev.type == 'text' and ctime == 0:
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
86 title = ev.text
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
87
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
88 ctime += ev.time
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
89 if ev.type == 'note_on' or ev.type == 'note_off':
29
767ba8ec90e6 Don't crap out if the input midi note is out of range
Daniel O'Connor <darius@dons.net.au>
parents: 28
diff changeset
90 if ev.note not in self.midi2note:
767ba8ec90e6 Don't crap out if the input midi note is out of range
Daniel O'Connor <darius@dons.net.au>
parents: 28
diff changeset
91 print 'Input MIDI number %d out of range' % (ev.note)
767ba8ec90e6 Don't crap out if the input midi note is out of range
Daniel O'Connor <darius@dons.net.au>
parents: 28
diff changeset
92 unplayablecount += 1
767ba8ec90e6 Don't crap out if the input midi note is out of range
Daniel O'Connor <darius@dons.net.au>
parents: 28
diff changeset
93 continue
767ba8ec90e6 Don't crap out if the input midi note is out of range
Daniel O'Connor <darius@dons.net.au>
parents: 28
diff changeset
94 else:
767ba8ec90e6 Don't crap out if the input midi note is out of range
Daniel O'Connor <darius@dons.net.au>
parents: 28
diff changeset
95 note = self.midi2note[ev.note]
11
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
96 #print ctime, ev
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
97 if ev.type == 'note_on' and ev.velocity > 0:
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
98 if ev.note in channels[ev.channel]:
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
99 print 'Duplicate note_on message %d (%s)' % (ev.note, note)
0
0773354c7428 Initial commit, WIP.
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
100 else:
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
101 channels[ev.channel][ev.note] = ctime
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
102 elif ev.type == 'note_off' or (ev.type == 'note_on' and ev.velocity == 0):
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
103 if ev.note not in channels[ev.channel]:
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
104 print 'note_off with no corresponding note_on for channel %d note %d' % (ev.channel, ev.note)
0
0773354c7428 Initial commit, WIP.
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
105 else:
28
657bc32a0dfd Try transposing unplayable notes down or up an octave (in that order).
Daniel O'Connor <darius@dons.net.au>
parents: 27
diff changeset
106 start = channels[ev.channel][ev.note]
657bc32a0dfd Try transposing unplayable notes down or up an octave (in that order).
Daniel O'Connor <darius@dons.net.au>
parents: 27
diff changeset
107 notelen = ctime - start
657bc32a0dfd Try transposing unplayable notes down or up an octave (in that order).
Daniel O'Connor <darius@dons.net.au>
parents: 27
diff changeset
108 playable = True
657bc32a0dfd Try transposing unplayable notes down or up an octave (in that order).
Daniel O'Connor <darius@dons.net.au>
parents: 27
diff changeset
109
657bc32a0dfd Try transposing unplayable notes down or up an octave (in that order).
Daniel O'Connor <darius@dons.net.au>
parents: 27
diff changeset
110 if note in self.note2slot:
657bc32a0dfd Try transposing unplayable notes down or up an octave (in that order).
Daniel O'Connor <darius@dons.net.au>
parents: 27
diff changeset
111 slot = self.note2slot[note]
36
6874140c9c11 Fix transposition.
Daniel O'Connor <darius@dons.net.au>
parents: 33
diff changeset
112 elif self.trytranspose and ((ev.note - 12) in self.midi2note and self.midi2note[ev.note - 12] in self.note2slot):
28
657bc32a0dfd Try transposing unplayable notes down or up an octave (in that order).
Daniel O'Connor <darius@dons.net.au>
parents: 27
diff changeset
113 print 'Transposing note %d (%s) down' % (ev.note, note)
657bc32a0dfd Try transposing unplayable notes down or up an octave (in that order).
Daniel O'Connor <darius@dons.net.au>
parents: 27
diff changeset
114 slot = self.note2slot[self.midi2note[ev.note - 12]]
657bc32a0dfd Try transposing unplayable notes down or up an octave (in that order).
Daniel O'Connor <darius@dons.net.au>
parents: 27
diff changeset
115 transposedowncount += 1
36
6874140c9c11 Fix transposition.
Daniel O'Connor <darius@dons.net.au>
parents: 33
diff changeset
116 elif self.trytranspose and (ev.note + 12 in self.midi2note and self.midi2note[ev.note + 12] in self.note2slot):
28
657bc32a0dfd Try transposing unplayable notes down or up an octave (in that order).
Daniel O'Connor <darius@dons.net.au>
parents: 27
diff changeset
117 print 'Transposing note %d (%s) up' % (ev.note, note)
657bc32a0dfd Try transposing unplayable notes down or up an octave (in that order).
Daniel O'Connor <darius@dons.net.au>
parents: 27
diff changeset
118 slot = self.note2slot[self.midi2note[ev.note + 12]]
657bc32a0dfd Try transposing unplayable notes down or up an octave (in that order).
Daniel O'Connor <darius@dons.net.au>
parents: 27
diff changeset
119 transposeupcount += 1
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
120 else:
28
657bc32a0dfd Try transposing unplayable notes down or up an octave (in that order).
Daniel O'Connor <darius@dons.net.au>
parents: 27
diff changeset
121 unplayablecount += 1
657bc32a0dfd Try transposing unplayable notes down or up an octave (in that order).
Daniel O'Connor <darius@dons.net.au>
parents: 27
diff changeset
122 playable = False
657bc32a0dfd Try transposing unplayable notes down or up an octave (in that order).
Daniel O'Connor <darius@dons.net.au>
parents: 27
diff changeset
123
657bc32a0dfd Try transposing unplayable notes down or up an octave (in that order).
Daniel O'Connor <darius@dons.net.au>
parents: 27
diff changeset
124 if playable:
657bc32a0dfd Try transposing unplayable notes down or up an octave (in that order).
Daniel O'Connor <darius@dons.net.au>
parents: 27
diff changeset
125 #print 'Note %s (%d) at %.2f length %.2f' % (note, slot, start, notelen)
30
f46cc9401e79 Make transposition optional and add note scale parameter (to get rearticulation)
Daniel O'Connor <darius@dons.net.au>
parents: 29
diff changeset
126 self.emitnote(pdfs, slot, start, notelen * self.notescale)
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
127 playablecount += 1
28
657bc32a0dfd Try transposing unplayable notes down or up an octave (in that order).
Daniel O'Connor <darius@dons.net.au>
parents: 27
diff changeset
128
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
129 del channels[ev.channel][ev.note]
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
130 elif ev.type == 'end_of_track':
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
131 print 'EOT, not flushing, check for missed notes'
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
132 for chan in channels:
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
133 for ev in chan:
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
134 print ev
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
135
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
136 print 'Playable count:', playablecount
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
137 print 'Unplayable count:', unplayablecount
30
f46cc9401e79 Make transposition optional and add note scale parameter (to get rearticulation)
Daniel O'Connor <darius@dons.net.au>
parents: 29
diff changeset
138 if self.trytranspose:
f46cc9401e79 Make transposition optional and add note scale parameter (to get rearticulation)
Daniel O'Connor <darius@dons.net.au>
parents: 29
diff changeset
139 print 'Transpose down:', transposedowncount
f46cc9401e79 Make transposition optional and add note scale parameter (to get rearticulation)
Daniel O'Connor <darius@dons.net.au>
parents: 29
diff changeset
140 print 'Transpose up:', transposeupcount
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
141
31
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
142 for pindx in range(npages):
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
143 pdf = pdfs[pindx / self.pagesperpdf] # PDF for this page
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
144 # Offset into PDF where the page starts
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
145 pageofs = self.pagewidth * (self.pagesperpdf - (pindx % self.pagesperpdf) - 1)
13
5f4c21bb5140 Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents: 12
diff changeset
146 # Add title and page number
31
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
147 Midi2PDF.textHelper(pdf, pageofs * mm, 1 * mm,
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
148 ENGRAVE_COLOUR, True, self.fontname, self.fontsize,
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
149 '%s (%d / %d)' % (title, pindx + 1, npages))
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
150 pdf.saveState()
13
5f4c21bb5140 Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents: 12
diff changeset
151 pdf.setLineWidth(0)
17
c50427f1da2d - Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents: 16
diff changeset
152
31
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
153 # Draw time marks every 5 seconds
19
ffaf97818ce3 - Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents: 18
diff changeset
154 if self.timemarks:
31
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
155 pdfidx = pindx / self.pagesperpdf
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
156 # Work out start and end times (pdf 1 is special due to leadin)
19
ffaf97818ce3 - Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents: 18
diff changeset
157 tstart = self.leadin / self.timescale
31
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
158 tend = (self.pagewidth * self.pagesperpdf) / self.timescale
18
cf93a76eda92 The laser cutter software barfs on these lines and stops processing
Daniel O'Connor <darius@dons.net.au>
parents: 17
diff changeset
159 if pindx > 0:
31
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
160 tsize = self.pagewidth / self.timescale # Amount of time per pdf
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
161 tstart = tend + tsize * pdfidx
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
162 tend = tend + tsize * (pdfidx + 1)
18
cf93a76eda92 The laser cutter software barfs on these lines and stops processing
Daniel O'Connor <darius@dons.net.au>
parents: 17
diff changeset
163 for s in range(tstart, tend, 5):
19
ffaf97818ce3 - Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents: 18
diff changeset
164 x = self.pagewidth - (float(s * self.timescale + self.leadin) % self.pagewidth)
24
71b78f06ff03 Highest notes are at the bottom not the top.
Daniel O'Connor <darius@dons.net.au>
parents: 23
diff changeset
165 pdf.line(x * mm, self.heel, x * mm, self.pageheight * mm)
18
cf93a76eda92 The laser cutter software barfs on these lines and stops processing
Daniel O'Connor <darius@dons.net.au>
parents: 17
diff changeset
166 Midi2PDF.textHelper(pdf, x * mm, 1 * mm, ENGRAVE_COLOUR, False, self.fontname, self.fontsize, str(s) + 's')
cf93a76eda92 The laser cutter software barfs on these lines and stops processing
Daniel O'Connor <darius@dons.net.au>
parents: 17
diff changeset
167
25
ce367392806c comment tweaks
Daniel O'Connor <darius@dons.net.au>
parents: 24
diff changeset
168 # Draw rectangle around page (upper and right hand ends don't seem to render though)
19
ffaf97818ce3 - Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents: 18
diff changeset
169 if self.drawrect:
31
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
170 pdf.rect((pindx % self.pagesperpdf) * self.pagewidth * mm, 0,
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
171 self.pagewidth * mm, self.pageheight * mm, fill = False, stroke = True)
18
cf93a76eda92 The laser cutter software barfs on these lines and stops processing
Daniel O'Connor <darius@dons.net.au>
parents: 17
diff changeset
172
13
5f4c21bb5140 Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents: 12
diff changeset
173 # Draw lines per note
5f4c21bb5140 Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents: 12
diff changeset
174 for slot in sorted(self.slot2note.keys()):
26
f492b70f5e49 Fix notename/line drawing.
Daniel O'Connor <darius@dons.net.au>
parents: 25
diff changeset
175 ofs = self.pageheight - (self.heel + slot * self.pitch) - self.slotsize / 2
20
9bb72ae63651 - Make various things optional.
Daniel O'Connor <darius@dons.net.au>
parents: 19
diff changeset
176 if self.notelines:
31
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
177 pdf.line(0, ofs * mm, self.pdfwidth * mm, ofs * mm)
13
5f4c21bb5140 Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents: 12
diff changeset
178 # Note name
20
9bb72ae63651 - Make various things optional.
Daniel O'Connor <darius@dons.net.au>
parents: 19
diff changeset
179 if self.notenames:
31
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
180 Midi2PDF.textHelper(pdf, (self.pdfwidth - 10) * mm, (ofs + 0.5) * mm, ENGRAVE_COLOUR, False, self.fontname, self.fontsize, self.slot2note[slot])
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
181 pdf.restoreState()
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
182 for pdf in pdfs:
26
f492b70f5e49 Fix notename/line drawing.
Daniel O'Connor <darius@dons.net.au>
parents: 25
diff changeset
183 pdf.save()
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
184
12
6e46ceee57a7 Use correct MIDI note generation, previous version did not agree with
Daniel O'Connor <darius@dons.net.au>
parents: 11
diff changeset
185 # http://newt.phys.unsw.edu.au/jw/notes.html
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
186 @staticmethod
27
87cf66e04ef9 Handle offsetting note pitch in a better way.
Daniel O'Connor <darius@dons.net.au>
parents: 26
diff changeset
187 def genmidi2note():
87cf66e04ef9 Handle offsetting note pitch in a better way.
Daniel O'Connor <darius@dons.net.au>
parents: 26
diff changeset
188 '''Create forward & reverse tables for midi number to note name (assuming 69 = A4 = A440)'''
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
189 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']
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
190 midi2note = {}
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
191 note2midi = {}
13
5f4c21bb5140 Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents: 12
diff changeset
192 for midi in range(21, 128):
12
6e46ceee57a7 Use correct MIDI note generation, previous version did not agree with
Daniel O'Connor <darius@dons.net.au>
parents: 11
diff changeset
193 octave = midi / len(names) - 1
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
194 index = midi % len(names)
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
195 name = names[index] % (octave)
27
87cf66e04ef9 Handle offsetting note pitch in a better way.
Daniel O'Connor <darius@dons.net.au>
parents: 26
diff changeset
196 midi2note[midi] = name
87cf66e04ef9 Handle offsetting note pitch in a better way.
Daniel O'Connor <darius@dons.net.au>
parents: 26
diff changeset
197 note2midi[name] = midi
4
9f4fa5f231e6 Rework to use mido iterator and paginate.
Daniel O'Connor <darius@dons.net.au>
parents: 3
diff changeset
198
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
199 return midi2note, note2midi
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
200
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
201 @staticmethod
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
202 def loadnote2slot(fname, note2midi):
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
203 note2slot = {}
13
5f4c21bb5140 Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents: 12
diff changeset
204 slot2note = {}
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
205 index = 0
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
206
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
207 for note in file(fname):
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
208 note = note.strip()
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
209 if note[0] == '#':
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
210 continue
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
211 if note not in note2midi:
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
212 raise exceptions.ValueError('Note \'%s\' not valid' % note)
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
213 note2slot[note] = index
13
5f4c21bb5140 Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents: 12
diff changeset
214 slot2note[index] = note
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
215 index += 1
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
216
13
5f4c21bb5140 Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents: 12
diff changeset
217 return note2slot, slot2note
4
9f4fa5f231e6 Rework to use mido iterator and paginate.
Daniel O'Connor <darius@dons.net.au>
parents: 3
diff changeset
218
11
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
219 def emitnote(self, pdfs, slot, start, notelen):
19
ffaf97818ce3 - Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents: 18
diff changeset
220 x = start * self.timescale + self.leadin # Convert start time to distance
31
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
221 pdfidx = int(x / self.pdfwidth) # Determine which pdf
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
222 x = x % self.pdfwidth # and where on that pdf
16
20337b22977d Add left margin and slot size support.
Daniel O'Connor <darius@dons.net.au>
parents: 14
diff changeset
223 h = self.slotsize
24
71b78f06ff03 Highest notes are at the bottom not the top.
Daniel O'Connor <darius@dons.net.au>
parents: 23
diff changeset
224 y = self.pageheight - (self.heel + slot * self.pitch - self.slotsize / 2) - self.slotsize
19
ffaf97818ce3 - Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents: 18
diff changeset
225 w = notelen * self.timescale # Convert note length in time to distance
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
226
31
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
227 print 'pdf = %d x = %.3f y = %.3f w = %.3f h = %.3f' % (pdfidx, x, y, w, h)
11
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
228 w1 = w
31
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
229 # Check if the note crosses a pdf
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
230 if x + w > self.pdfwidth:
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
231 w1 = self.pdfwidth - x # Crop first note
19
ffaf97818ce3 - Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents: 18
diff changeset
232 w2 = w - w1 # Calculate length of second note
31
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
233 assert w2 <= self.pdfwidth, 'note extends for more than a pdf'
11
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
234 # Emit second half of note
31
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
235 print 'split note, pdf %d w2 = %.3f' % (pdfidx + 1, w2)
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
236 Midi2PDF._emitnote(pdfs[pdfidx + 1], self.pdfwidth - w2, y, w2, h)
11
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
237
31
ea98c9507f47 Preliminary multi-page support. Breaks time marks though.
Daniel O'Connor <darius@dons.net.au>
parents: 30
diff changeset
238 Midi2PDF._emitnote(pdfs[pdfidx], self.pdfwidth - x - w1, y, w1, h)
7
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
239
31db42ce72b8 Rework to be class-y
Daniel O'Connor <darius@dons.net.au>
parents: 5
diff changeset
240 @staticmethod
11
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
241 def _emitnote(pdf, x, y, w, h):
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
242 pdf.saveState()
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
243 pdf.setStrokeColor(CUT_COLOUR)
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
244 pdf.setLineWidth(0)
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
245 pdf.rect(x * mm, y * mm, w * mm, h * mm, fill = False, stroke = True)
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents: 9
diff changeset
246 pdf.restoreState()
0
0773354c7428 Initial commit, WIP.
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
247
17
c50427f1da2d - Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents: 16
diff changeset
248 @staticmethod
c50427f1da2d - Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents: 16
diff changeset
249 def textHelper(pdf, x, y, colour, fill, fontname, fontsize, text):
c50427f1da2d - Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents: 16
diff changeset
250 tobj = pdf.beginText()
c50427f1da2d - Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents: 16
diff changeset
251 tobj.setTextOrigin(x, y)
c50427f1da2d - Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents: 16
diff changeset
252 tobj.setFont(fontname, fontsize)
c50427f1da2d - Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents: 16
diff changeset
253 tobj.setStrokeColor(colour)
c50427f1da2d - Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents: 16
diff changeset
254 tobj.setFillColor(colour)
c50427f1da2d - Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents: 16
diff changeset
255 if fill:
c50427f1da2d - Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents: 16
diff changeset
256 tobj.setTextRenderMode(0)
c50427f1da2d - Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents: 16
diff changeset
257 else:
c50427f1da2d - Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents: 16
diff changeset
258 tobj.setTextRenderMode(1)
c50427f1da2d - Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents: 16
diff changeset
259 tobj.textLine(text)
c50427f1da2d - Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents: 16
diff changeset
260 pdf.drawText(tobj)
c50427f1da2d - Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents: 16
diff changeset
261
0
0773354c7428 Initial commit, WIP.
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
262 if __name__ == '__main__':
0773354c7428 Initial commit, WIP.
Daniel O'Connor <darius@dons.net.au>
parents:
diff changeset
263 main()