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