Mercurial > ~darius > hgwebdir.cgi > musiccutter
annotate musiccutter.py @ 24:71b78f06ff03
Highest notes are at the bottom not the top.
Rename margin to heel to match the builders nomenclature.
| author | Daniel O'Connor <darius@dons.net.au> |
|---|---|
| date | Sat, 30 Apr 2016 16:37:14 +0930 |
| parents | 63d13efa040f |
| children | ce367392806c |
| rev | line source |
|---|---|
| 0 | 1 #!/usr/bin/env python |
| 2 | |
| 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 | 5 import math |
| 0 | 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 | 11 import sys |
| 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 | 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) |
|
71b78f06ff03
Highest notes are at the bottom not the top.
Daniel O'Connor <darius@dons.net.au>
parents:
23
diff
changeset
|
22 m = Midi2PDF('notes', 120, 155, 5.5, 3.3, 6.0, 50, False, False, False, False, 0, 10, 'Helvetica', 12) |
|
11
9faad813e39e
switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents:
9
diff
changeset
|
23 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
|
24 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
|
25 m.processMidi(filename, base + '-%02d.pdf') |
| 0 | 26 |
|
11
9faad813e39e
switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents:
9
diff
changeset
|
27 class Midi2PDF(object): |
|
24
71b78f06ff03
Highest notes are at the bottom not the top.
Daniel O'Connor <darius@dons.net.au>
parents:
23
diff
changeset
|
28 def __init__(self, notefile, pagewidth, pageheight, pitch, slotsize, heel, leadin, timemarks, drawrect, notenames, notelines, noteoffset, timescale, fontname, fontsize): |
|
21
c710c4c3f44f
Add pitch offset (number of midi notes to move up/down)
Daniel O'Connor <darius@dons.net.au>
parents:
20
diff
changeset
|
29 self.midi2note, self.note2midi = Midi2PDF.genmidi2note(noteoffset) |
|
13
5f4c21bb5140
Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents:
12
diff
changeset
|
30 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
|
31 self.pagewidth = pagewidth # Dimensions are in millimetres |
| 7 | 32 self.pageheight = pageheight |
|
13
5f4c21bb5140
Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents:
12
diff
changeset
|
33 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
|
34 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
|
35 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
|
36 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
|
37 self.timemarks = timemarks # Draw vertical time lines |
|
ffaf97818ce3
- Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents:
18
diff
changeset
|
38 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
|
39 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
|
40 self.notelines = notelines # Draw line rulers |
|
16
20337b22977d
Add left margin and slot size support.
Daniel O'Connor <darius@dons.net.au>
parents:
14
diff
changeset
|
41 self.timescale = timescale # Width per second |
|
11
9faad813e39e
switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents:
9
diff
changeset
|
42 self.fontname = fontname |
|
16
20337b22977d
Add left margin and slot size support.
Daniel O'Connor <darius@dons.net.au>
parents:
14
diff
changeset
|
43 self.fontsize = fontsize # Points |
| 0 | 44 |
| 7 | 45 def processMidi(self, midifile, outpat): |
| 46 playablecount = 0 | |
| 47 unplayablecount = 0 | |
| 48 midi = mido.MidiFile(midifile) | |
| 49 ctime = 0 | |
| 50 channels = [] | |
| 51 for i in range(16): | |
| 52 channels.append({}) | |
| 0 | 53 |
|
19
ffaf97818ce3
- Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents:
18
diff
changeset
|
54 npages = int(math.ceil(((midi.length * self.timescale) + self.leadin) / self.pagewidth)) |
| 7 | 55 print 'npages', npages |
|
11
9faad813e39e
switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents:
9
diff
changeset
|
56 pdfs = [] |
| 7 | 57 for i in range(npages): |
|
11
9faad813e39e
switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents:
9
diff
changeset
|
58 pdf = reportlab.pdfgen.canvas.Canvas(file(outpat % (i + 1), 'w'), pagesize = (self.pagewidth * mm, self.pageheight * mm)) |
|
9faad813e39e
switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents:
9
diff
changeset
|
59 pdfs.append(pdf) |
| 0 | 60 |
|
22
65e8298f5800
Remove extension and path name from title.
Daniel O'Connor <darius@dons.net.au>
parents:
21
diff
changeset
|
61 title = os.path.basename(midifile) |
|
65e8298f5800
Remove extension and path name from title.
Daniel O'Connor <darius@dons.net.au>
parents:
21
diff
changeset
|
62 title, ext = os.path.splitext(title) |
| 7 | 63 for ev in midi: |
|
11
9faad813e39e
switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents:
9
diff
changeset
|
64 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
|
65 title = ev.text |
|
9faad813e39e
switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents:
9
diff
changeset
|
66 |
| 7 | 67 ctime += ev.time |
| 68 if ev.type == 'note_on' or ev.type == 'note_off': | |
| 69 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
|
70 #print ctime, ev |
| 7 | 71 if ev.type == 'note_on' and ev.velocity > 0: |
| 72 if ev.note in channels[ev.channel]: | |
| 73 print 'Duplicate note_on message %d (%s)' % (ev.note, note) | |
| 0 | 74 else: |
| 7 | 75 channels[ev.channel][ev.note] = ctime |
| 76 elif ev.type == 'note_off' or (ev.type == 'note_on' and ev.velocity == 0): | |
| 77 if ev.note not in channels[ev.channel]: | |
| 78 print 'note_off with no corresponding note_on for channel %d note %d' % (ev.channel, ev.note) | |
| 0 | 79 else: |
| 7 | 80 if note not in self.note2slot: |
|
21
c710c4c3f44f
Add pitch offset (number of midi notes to move up/down)
Daniel O'Connor <darius@dons.net.au>
parents:
20
diff
changeset
|
81 print 'Skipping unplayable note %d (%s)' % (ev.note, note) |
| 7 | 82 unplayablecount += 1 |
| 83 else: | |
| 84 start = channels[ev.channel][ev.note] | |
| 85 notelen = ctime - start | |
| 86 slot = self.note2slot[note] | |
| 87 print 'Note %s (%d) at %.2f length %.2f' % (note, slot, start, notelen) | |
|
11
9faad813e39e
switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents:
9
diff
changeset
|
88 self.emitnote(pdfs, slot, start, notelen) |
| 7 | 89 playablecount += 1 |
| 90 del channels[ev.channel][ev.note] | |
| 91 elif ev.type == 'end_of_track': | |
| 92 print 'EOT, not flushing, check for missed notes' | |
| 93 for chan in channels: | |
| 94 for ev in chan: | |
| 95 print ev | |
| 96 | |
| 97 print 'Playable count:', playablecount | |
| 98 print 'Unplayable count:', unplayablecount | |
| 99 | |
|
17
c50427f1da2d
- Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents:
16
diff
changeset
|
100 for pindx in range(len(pdfs)): |
|
c50427f1da2d
- Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents:
16
diff
changeset
|
101 pdf = pdfs[pindx] |
|
13
5f4c21bb5140
Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents:
12
diff
changeset
|
102 # Add title and page number |
|
19
ffaf97818ce3
- Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents:
18
diff
changeset
|
103 Midi2PDF.textHelper(pdf, 0 * mm, 1 * mm, ENGRAVE_COLOUR, True, self.fontname, self.fontsize, '%s (%d / %d)' % (title, pindx + 1, npages)) |
|
13
5f4c21bb5140
Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents:
12
diff
changeset
|
104 |
|
17
c50427f1da2d
- Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents:
16
diff
changeset
|
105 pdf.saveState() # Not really necessary since this is last thing we do |
|
13
5f4c21bb5140
Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents:
12
diff
changeset
|
106 pdf.setLineWidth(0) |
|
17
c50427f1da2d
- Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents:
16
diff
changeset
|
107 |
|
18
cf93a76eda92
The laser cutter software barfs on these lines and stops processing
Daniel O'Connor <darius@dons.net.au>
parents:
17
diff
changeset
|
108 # Draw time marks |
|
19
ffaf97818ce3
- Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents:
18
diff
changeset
|
109 if self.timemarks: |
|
ffaf97818ce3
- Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents:
18
diff
changeset
|
110 tstart = self.leadin / self.timescale |
|
ffaf97818ce3
- Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents:
18
diff
changeset
|
111 tend = self.pagewidth / 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
|
112 if pindx > 0: |
|
cf93a76eda92
The laser cutter software barfs on these lines and stops processing
Daniel O'Connor <darius@dons.net.au>
parents:
17
diff
changeset
|
113 tsize = self.pagewidth / self.timescale |
|
cf93a76eda92
The laser cutter software barfs on these lines and stops processing
Daniel O'Connor <darius@dons.net.au>
parents:
17
diff
changeset
|
114 tstart = tend + tsize * pindx |
|
cf93a76eda92
The laser cutter software barfs on these lines and stops processing
Daniel O'Connor <darius@dons.net.au>
parents:
17
diff
changeset
|
115 tend = tend + tsize * (pindx + 1) |
|
cf93a76eda92
The laser cutter software barfs on these lines and stops processing
Daniel O'Connor <darius@dons.net.au>
parents:
17
diff
changeset
|
116 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
|
117 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
|
118 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
|
119 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
|
120 |
|
cf93a76eda92
The laser cutter software barfs on these lines and stops processing
Daniel O'Connor <darius@dons.net.au>
parents:
17
diff
changeset
|
121 # Draw rectangle around page |
|
19
ffaf97818ce3
- Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents:
18
diff
changeset
|
122 if self.drawrect: |
|
18
cf93a76eda92
The laser cutter software barfs on these lines and stops processing
Daniel O'Connor <darius@dons.net.au>
parents:
17
diff
changeset
|
123 pdf.rect(0, 0, self.pagewidth * mm, self.pageheight * mm, fill = False, stroke = True) |
|
cf93a76eda92
The laser cutter software barfs on these lines and stops processing
Daniel O'Connor <darius@dons.net.au>
parents:
17
diff
changeset
|
124 |
|
13
5f4c21bb5140
Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents:
12
diff
changeset
|
125 # Draw lines per note |
|
5f4c21bb5140
Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents:
12
diff
changeset
|
126 for slot in sorted(self.slot2note.keys()): |
|
24
71b78f06ff03
Highest notes are at the bottom not the top.
Daniel O'Connor <darius@dons.net.au>
parents:
23
diff
changeset
|
127 ofs = (self.heel - self.slotsize / 2 + slot * self.pitch) * mm |
|
20
9bb72ae63651
- Make various things optional.
Daniel O'Connor <darius@dons.net.au>
parents:
19
diff
changeset
|
128 if self.notelines: |
|
9bb72ae63651
- Make various things optional.
Daniel O'Connor <darius@dons.net.au>
parents:
19
diff
changeset
|
129 pdf.line(0, ofs, self.pagewidth * mm, ofs) |
|
13
5f4c21bb5140
Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents:
12
diff
changeset
|
130 # Note name |
|
20
9bb72ae63651
- Make various things optional.
Daniel O'Connor <darius@dons.net.au>
parents:
19
diff
changeset
|
131 if self.notenames: |
|
9bb72ae63651
- Make various things optional.
Daniel O'Connor <darius@dons.net.au>
parents:
19
diff
changeset
|
132 Midi2PDF.textHelper(pdf, (self.pagewidth - 10) * mm, ofs + 1 * mm, ENGRAVE_COLOUR, False, self.fontname, self.fontsize, self.slot2note[slot]) |
|
9bb72ae63651
- Make various things optional.
Daniel O'Connor <darius@dons.net.au>
parents:
19
diff
changeset
|
133 pdf.save() |
| 7 | 134 |
|
12
6e46ceee57a7
Use correct MIDI note generation, previous version did not agree with
Daniel O'Connor <darius@dons.net.au>
parents:
11
diff
changeset
|
135 # http://newt.phys.unsw.edu.au/jw/notes.html |
| 7 | 136 @staticmethod |
|
21
c710c4c3f44f
Add pitch offset (number of midi notes to move up/down)
Daniel O'Connor <darius@dons.net.au>
parents:
20
diff
changeset
|
137 def genmidi2note(offset): |
|
c710c4c3f44f
Add pitch offset (number of midi notes to move up/down)
Daniel O'Connor <darius@dons.net.au>
parents:
20
diff
changeset
|
138 '''Create forward & reverse tables for midi number to note name (assuming 69 = A4 = A440) |
|
c710c4c3f44f
Add pitch offset (number of midi notes to move up/down)
Daniel O'Connor <darius@dons.net.au>
parents:
20
diff
changeset
|
139 offset is amount to shift notes (+12 = +1 octave)''' |
| 7 | 140 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'] |
| 141 midi2note = {} | |
| 142 note2midi = {} | |
|
13
5f4c21bb5140
Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents:
12
diff
changeset
|
143 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
|
144 octave = midi / len(names) - 1 |
| 7 | 145 index = midi % len(names) |
| 146 name = names[index] % (octave) | |
|
21
c710c4c3f44f
Add pitch offset (number of midi notes to move up/down)
Daniel O'Connor <darius@dons.net.au>
parents:
20
diff
changeset
|
147 midi2note[midi - offset] = name |
|
c710c4c3f44f
Add pitch offset (number of midi notes to move up/down)
Daniel O'Connor <darius@dons.net.au>
parents:
20
diff
changeset
|
148 note2midi[name] = midi - offset |
|
4
9f4fa5f231e6
Rework to use mido iterator and paginate.
Daniel O'Connor <darius@dons.net.au>
parents:
3
diff
changeset
|
149 |
| 7 | 150 return midi2note, note2midi |
| 151 | |
| 152 @staticmethod | |
| 153 def loadnote2slot(fname, note2midi): | |
| 154 note2slot = {} | |
|
13
5f4c21bb5140
Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents:
12
diff
changeset
|
155 slot2note = {} |
| 7 | 156 index = 0 |
| 157 | |
| 158 for note in file(fname): | |
| 159 note = note.strip() | |
| 160 if note[0] == '#': | |
| 161 continue | |
| 162 if note not in note2midi: | |
| 163 raise exceptions.ValueError('Note \'%s\' not valid' % note) | |
| 164 note2slot[note] = index | |
|
13
5f4c21bb5140
Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents:
12
diff
changeset
|
165 slot2note[index] = note |
| 7 | 166 index += 1 |
| 167 | |
|
13
5f4c21bb5140
Add lines and notes engraved on the paper.
Daniel O'Connor <darius@dons.net.au>
parents:
12
diff
changeset
|
168 return note2slot, slot2note |
|
4
9f4fa5f231e6
Rework to use mido iterator and paginate.
Daniel O'Connor <darius@dons.net.au>
parents:
3
diff
changeset
|
169 |
|
11
9faad813e39e
switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents:
9
diff
changeset
|
170 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
|
171 x = start * self.timescale + self.leadin # Convert start time to distance |
|
ffaf97818ce3
- Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents:
18
diff
changeset
|
172 pageidx = int(x / self.pagewidth) # Determine which page |
|
ffaf97818ce3
- Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents:
18
diff
changeset
|
173 x = x % self.pagewidth # and where on that page |
|
16
20337b22977d
Add left margin and slot size support.
Daniel O'Connor <darius@dons.net.au>
parents:
14
diff
changeset
|
174 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
|
175 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
|
176 w = notelen * self.timescale # Convert note length in time to distance |
| 7 | 177 |
|
11
9faad813e39e
switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents:
9
diff
changeset
|
178 print 'page = %d x = %.3f y = %.3f w = %.3f h = %.3f' % (pageidx, 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
|
179 w1 = w |
|
9faad813e39e
switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents:
9
diff
changeset
|
180 # Check if the note crosses a page |
|
9faad813e39e
switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents:
9
diff
changeset
|
181 if x + w > self.pagewidth: |
|
19
ffaf97818ce3
- Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents:
18
diff
changeset
|
182 w1 = self.pagewidth - x # Crop first note |
|
ffaf97818ce3
- Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents:
18
diff
changeset
|
183 w2 = w - w1 # Calculate length of second note |
|
ffaf97818ce3
- Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents:
18
diff
changeset
|
184 assert w2 <= self.pagewidth, 'note extends for more than a page' |
|
11
9faad813e39e
switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents:
9
diff
changeset
|
185 # Emit second half of note |
|
9faad813e39e
switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents:
9
diff
changeset
|
186 print 'split note, page %d w2 = %.3f' % (pageidx + 1, w2) |
|
19
ffaf97818ce3
- Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents:
18
diff
changeset
|
187 Midi2PDF._emitnote(pdfs[pageidx + 1], self.pagewidth - 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
|
188 |
|
19
ffaf97818ce3
- Music needs to run right to left.
Daniel O'Connor <darius@dons.net.au>
parents:
18
diff
changeset
|
189 Midi2PDF._emitnote(pdfs[pageidx], self.pagewidth - x - w1, y, w1, h) |
| 7 | 190 |
| 191 @staticmethod | |
|
11
9faad813e39e
switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents:
9
diff
changeset
|
192 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
|
193 pdf.saveState() |
|
9faad813e39e
switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents:
9
diff
changeset
|
194 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
|
195 pdf.setLineWidth(0) |
|
9faad813e39e
switch to PDF to avoid dealing with CorelDraw crashing
Daniel O'Connor <darius@dons.net.au>
parents:
9
diff
changeset
|
196 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
|
197 pdf.restoreState() |
| 0 | 198 |
|
17
c50427f1da2d
- Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents:
16
diff
changeset
|
199 @staticmethod |
|
c50427f1da2d
- Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents:
16
diff
changeset
|
200 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
|
201 tobj = pdf.beginText() |
|
c50427f1da2d
- Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents:
16
diff
changeset
|
202 tobj.setTextOrigin(x, y) |
|
c50427f1da2d
- Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents:
16
diff
changeset
|
203 tobj.setFont(fontname, fontsize) |
|
c50427f1da2d
- Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents:
16
diff
changeset
|
204 tobj.setStrokeColor(colour) |
|
c50427f1da2d
- Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents:
16
diff
changeset
|
205 tobj.setFillColor(colour) |
|
c50427f1da2d
- Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents:
16
diff
changeset
|
206 if fill: |
|
c50427f1da2d
- Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents:
16
diff
changeset
|
207 tobj.setTextRenderMode(0) |
|
c50427f1da2d
- Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents:
16
diff
changeset
|
208 else: |
|
c50427f1da2d
- Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents:
16
diff
changeset
|
209 tobj.setTextRenderMode(1) |
|
c50427f1da2d
- Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents:
16
diff
changeset
|
210 tobj.textLine(text) |
|
c50427f1da2d
- Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents:
16
diff
changeset
|
211 pdf.drawText(tobj) |
|
c50427f1da2d
- Draw vertical time lines.
Daniel O'Connor <darius@dons.net.au>
parents:
16
diff
changeset
|
212 |
| 0 | 213 if __name__ == '__main__': |
| 214 main() |