musiccutter: musiccutter.py annotate

annotate musiccutter.py @ 40:5c47f9361d93

Use unpacked argument lists to make it easier to work out which parameters you're editing.

author	Daniel O'Connor <darius@dons.net.au>
date	Tue, 24 May 2016 11:12:20 +0930
parents	86622ba474e4
children	21da8af1cdd2

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
37 c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	3 from IPython.core.debugger import Tracer
0 0773354c7428 Initial commit, WIP. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	4 import exceptions
4 9f4fa5f231e6 Rework to use mido iterator and paginate. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	5 import itertools
7 31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	6 import math
0 0773354c7428 Initial commit, WIP. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	7 import mido
22 65e8298f5800 Remove extension and path name from title. Daniel O'Connor <darius@dons.net.au> parents: 21 diff changeset	8 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	9 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	10 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	11 from reportlab.lib.units import mm
0 0773354c7428 Initial commit, WIP. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	12 import sys
0773354c7428 Initial commit, WIP. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	13
11 9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing Daniel O'Connor <darius@dons.net.au> parents: 9 diff changeset	14 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	15 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	16
37 c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	17 class Stats(object):
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	18 pass
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	19
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	20 class EVWrap(object):
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	21 def __init__(self, ev):
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	22 self.ev = ev
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	23
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	24 def test(filename = None, shift = 0):
3 49a33c431b45 Accept filename for test function Daniel O'Connor <darius@dons.net.au> parents: 2 diff changeset	25 if filename == None:
49a33c431b45 Accept filename for test function Daniel O'Connor <darius@dons.net.au> parents: 2 diff changeset	26 filename = 'test.midi'
7 31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	27 # 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	28 # 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	29 # 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	30 # fold fold
f053dd6e9e68 Add l33t ASCII diagram to show how folds should be Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	31 # in out
f053dd6e9e68 Add l33t ASCII diagram to show how folds should be Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	32 # V ^
f053dd6e9e68 Add l33t ASCII diagram to show how folds should be Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	33 # +---+---+---+ lowest note
f053dd6e9e68 Add l33t ASCII diagram to show how folds should be Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	34 # \| \| \| \|
f053dd6e9e68 Add l33t ASCII diagram to show how folds should be Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	35 # +---+---+---+ highest note
f053dd6e9e68 Add l33t ASCII diagram to show how folds should be Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	36 #
40 5c47f9361d93 Use unpacked argument lists to make it easier to work out which Daniel O'Connor <darius@dons.net.au> parents: 39 diff changeset	37 m = Midi2PDF(**{
5c47f9361d93 Use unpacked argument lists to make it easier to work out which Daniel O'Connor <darius@dons.net.au> parents: 39 diff changeset	38 'notefile' : 'notes',
5c47f9361d93 Use unpacked argument lists to make it easier to work out which Daniel O'Connor <darius@dons.net.au> parents: 39 diff changeset	39 'pagewidth' : 120,
5c47f9361d93 Use unpacked argument lists to make it easier to work out which Daniel O'Connor <darius@dons.net.au> parents: 39 diff changeset	40 'pageheight' : 155,
5c47f9361d93 Use unpacked argument lists to make it easier to work out which Daniel O'Connor <darius@dons.net.au> parents: 39 diff changeset	41 'pitch' : 5.5,
5c47f9361d93 Use unpacked argument lists to make it easier to work out which Daniel O'Connor <darius@dons.net.au> parents: 39 diff changeset	42 'slotsize' : 3.3,
5c47f9361d93 Use unpacked argument lists to make it easier to work out which Daniel O'Connor <darius@dons.net.au> parents: 39 diff changeset	43 'heel' : 6.0,
5c47f9361d93 Use unpacked argument lists to make it easier to work out which Daniel O'Connor <darius@dons.net.au> parents: 39 diff changeset	44 'leadin' : 50,
5c47f9361d93 Use unpacked argument lists to make it easier to work out which Daniel O'Connor <darius@dons.net.au> parents: 39 diff changeset	45 'timemarks' : False,
5c47f9361d93 Use unpacked argument lists to make it easier to work out which Daniel O'Connor <darius@dons.net.au> parents: 39 diff changeset	46 'trytranspose' : True,
5c47f9361d93 Use unpacked argument lists to make it easier to work out which Daniel O'Connor <darius@dons.net.au> parents: 39 diff changeset	47 'drawrect' : False,
5c47f9361d93 Use unpacked argument lists to make it easier to work out which Daniel O'Connor <darius@dons.net.au> parents: 39 diff changeset	48 'notenames' : False,
5c47f9361d93 Use unpacked argument lists to make it easier to work out which Daniel O'Connor <darius@dons.net.au> parents: 39 diff changeset	49 'notelines' : False,
5c47f9361d93 Use unpacked argument lists to make it easier to work out which Daniel O'Connor <darius@dons.net.au> parents: 39 diff changeset	50 'noteoffset' : shift,
5c47f9361d93 Use unpacked argument lists to make it easier to work out which Daniel O'Connor <darius@dons.net.au> parents: 39 diff changeset	51 'pagesperpdf' : 1,
5c47f9361d93 Use unpacked argument lists to make it easier to work out which Daniel O'Connor <darius@dons.net.au> parents: 39 diff changeset	52 'timescale' : 30,
5c47f9361d93 Use unpacked argument lists to make it easier to work out which Daniel O'Connor <darius@dons.net.au> parents: 39 diff changeset	53 'notescale' : 0.9,
5c47f9361d93 Use unpacked argument lists to make it easier to work out which Daniel O'Connor <darius@dons.net.au> parents: 39 diff changeset	54 'fontname' : 'Helvetica',
5c47f9361d93 Use unpacked argument lists to make it easier to work out which Daniel O'Connor <darius@dons.net.au> parents: 39 diff changeset	55 'fontsize' : 12,
5c47f9361d93 Use unpacked argument lists to make it easier to work out which Daniel O'Connor <darius@dons.net.au> parents: 39 diff changeset	56 })
11 9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing Daniel O'Connor <darius@dons.net.au> parents: 9 diff changeset	57 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	58 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	59 m.processMidi(filename, base + '-%02d.pdf')
0 0773354c7428 Initial commit, WIP. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	60
11 9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing Daniel O'Connor <darius@dons.net.au> parents: 9 diff changeset	61 class Midi2PDF(object):
31 ea98c9507f47 Preliminary multi-page support. Breaks time marks though. Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	62 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	63 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	64 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	65 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	66 self.pageheight = pageheight
13 5f4c21bb5140 Add lines and notes engraved on the paper. Daniel O'Connor <darius@dons.net.au> parents: 12 diff changeset	67 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	68 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	69 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	70 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	71 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	72 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	73 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	74 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	75 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	76 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	77 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	78 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	79 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	80 self.fontname = fontname
16 20337b22977d Add left margin and slot size support. Daniel O'Connor <darius@dons.net.au> parents: 14 diff changeset	81 self.fontsize = fontsize # Points
0 0773354c7428 Initial commit, WIP. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	82
31 ea98c9507f47 Preliminary multi-page support. Breaks time marks though. Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	83 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	84
7 31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	85 def processMidi(self, midifile, outpat):
37 c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	86 stats = Stats()
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	87 stats.playablecount = 0
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	88 stats.unplayablecount = 0
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	89 stats.transposeupcount = 0
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	90 stats.transposedowncount = 0
7 31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	91 midi = mido.MidiFile(midifile)
31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	92 ctime = 0
31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	93 channels = []
31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	94 for i in range(16):
31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	95 channels.append({})
0 0773354c7428 Initial commit, WIP. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	96
19 ffaf97818ce3 - Music needs to run right to left. Daniel O'Connor <darius@dons.net.au> parents: 18 diff changeset	97 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	98 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	99 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	100
11 9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing Daniel O'Connor <darius@dons.net.au> parents: 9 diff changeset	101 pdfs = []
31 ea98c9507f47 Preliminary multi-page support. Breaks time marks though. Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	102 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	103 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	104 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	105 pdfs.append(pdf)
0 0773354c7428 Initial commit, WIP. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	106
22 65e8298f5800 Remove extension and path name from title. Daniel O'Connor <darius@dons.net.au> parents: 21 diff changeset	107 title = os.path.basename(midifile)
65e8298f5800 Remove extension and path name from title. Daniel O'Connor <darius@dons.net.au> parents: 21 diff changeset	108 title, ext = os.path.splitext(title)
7 31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	109 for ev in midi:
38 9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	110 # Adjust pitch
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	111 if hasattr(ev, 'note'):
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	112 ev.note += self.noteoffset
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	113 ctime += ev.time
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	114 #print ctime, ev
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	115 #Tracer()()
11 9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing Daniel O'Connor <darius@dons.net.au> parents: 9 diff changeset	116
38 9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	117 if ev.type == 'text' and ctime == 0:
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	118 title = ev.text
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	119 if ev.type == 'note_on' and ev.velocity > 0:
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	120 if ev.note in channels[ev.channel]:
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	121 print 'Duplicate note_on message at %.1f sec channel %d note %d' % (ctime, ev.channel, ev.note)
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	122 else:
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	123 channels[ev.channel][ev.note] = ctime
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	124 elif ev.type == 'note_off' or (ev.type == 'note_on' and ev.velocity == 0):
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	125 if ev.note not in channels[ev.channel]:
39 86622ba474e4 add some comments Daniel O'Connor <darius@dons.net.au> parents: 38 diff changeset	126 # These can be rests (iWriteMusic)
38 9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	127 print 'note_off with no corresponding note_on at %.1f sec for channel %d note %d' % (ctime, ev.channel, ev.note)
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	128 continue
0 0773354c7428 Initial commit, WIP. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	129 else:
38 9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	130 orignote = ev.note
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	131 start = channels[ev.channel][orignote]
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	132 evw = EVWrap(ev)
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	133 # Find a slot (plus adjust pitch, attempt transposition etc)
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	134 if hasattr(ev, 'note'):
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	135 self.getslotfornote(evw, stats, ctime)
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	136 # Check if it was unplayable
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	137 if not evw.slot:
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	138 continue
37 c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	139 notelen = ctime - start
38 9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	140 #print 'Note %s (%d) at %.2f length %.2f' % (evw.notename, ev.slot, start, notelen)
37 c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	141 self.emitnote(pdfs, evw.slot, start, notelen * self.notescale)
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	142
38 9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	143 del channels[ev.channel][orignote]
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	144 elif ev.type == 'end_of_track':
7 31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	145 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	146 for chan in channels:
38 9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	147 for ev in chan:
9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	148 print ev
7 31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	149
37 c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	150 print 'Playable count:', stats.playablecount
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	151 print 'Unplayable count:', stats.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	152 if self.trytranspose:
37 c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	153 print 'Transpose down:', stats.transposedowncount
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	154 print 'Transpose up:', stats.transposeupcount
7 31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	155
39 86622ba474e4 add some comments Daniel O'Connor <darius@dons.net.au> parents: 38 diff changeset	156 # Do per-page things
31 ea98c9507f47 Preliminary multi-page support. Breaks time marks though. Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	157 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	158 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	159 # 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	160 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	161 # 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	162 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	163 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	164 '%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	165 pdf.saveState()
13 5f4c21bb5140 Add lines and notes engraved on the paper. Daniel O'Connor <darius@dons.net.au> parents: 12 diff changeset	166 pdf.setLineWidth(0)
17 c50427f1da2d - Draw vertical time lines. Daniel O'Connor <darius@dons.net.au> parents: 16 diff changeset	167
31 ea98c9507f47 Preliminary multi-page support. Breaks time marks though. Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	168 # 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	169 if self.timemarks:
31 ea98c9507f47 Preliminary multi-page support. Breaks time marks though. Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	170 pdfidx = pindx / self.pagesperpdf
ea98c9507f47 Preliminary multi-page support. Breaks time marks though. Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	171 # 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	172 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	173 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	174 if pindx > 0:
31 ea98c9507f47 Preliminary multi-page support. Breaks time marks though. Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	175 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	176 tstart = tend + tsize * pdfidx
ea98c9507f47 Preliminary multi-page support. Breaks time marks though. Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	177 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	178 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	179 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	180 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	181 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	182
25 ce367392806c comment tweaks Daniel O'Connor <darius@dons.net.au> parents: 24 diff changeset	183 # 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	184 if self.drawrect:
31 ea98c9507f47 Preliminary multi-page support. Breaks time marks though. Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	185 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	186 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	187
13 5f4c21bb5140 Add lines and notes engraved on the paper. Daniel O'Connor <darius@dons.net.au> parents: 12 diff changeset	188 # Draw lines per note
5f4c21bb5140 Add lines and notes engraved on the paper. Daniel O'Connor <darius@dons.net.au> parents: 12 diff changeset	189 for slot in sorted(self.slot2note.keys()):
26 f492b70f5e49 Fix notename/line drawing. Daniel O'Connor <darius@dons.net.au> parents: 25 diff changeset	190 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	191 if self.notelines:
31 ea98c9507f47 Preliminary multi-page support. Breaks time marks though. Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	192 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	193 # Note name
20 9bb72ae63651 - Make various things optional. Daniel O'Connor <darius@dons.net.au> parents: 19 diff changeset	194 if self.notenames:
31 ea98c9507f47 Preliminary multi-page support. Breaks time marks though. Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	195 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	196 pdf.restoreState()
ea98c9507f47 Preliminary multi-page support. Breaks time marks though. Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	197 for pdf in pdfs:
26 f492b70f5e49 Fix notename/line drawing. Daniel O'Connor <darius@dons.net.au> parents: 25 diff changeset	198 pdf.save()
7 31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	199
37 c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	200 def noteisplayable(self, midi):
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	201 slot = None
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	202 if midi in self.midi2note:
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	203 notename = self.midi2note[midi]
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	204 if notename in self.note2slot:
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	205 slot = self.note2slot[notename]
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	206
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	207 return slot
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	208
39 86622ba474e4 add some comments Daniel O'Connor <darius@dons.net.au> parents: 38 diff changeset	209 # Check if the organ can play the note
37 c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	210 def transposenote(self, evw, amount):
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	211 evw.ev.note += amount
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	212 evw.notename = self.midi2note[evw.ev.note]
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	213 evw.slot = self.note2slot[evw.notename]
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	214
39 86622ba474e4 add some comments Daniel O'Connor <darius@dons.net.au> parents: 38 diff changeset	215 # Work out which slot to use for the note, transpose if desired
37 c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	216 def getslotfornote(self, evw, stats, ctime):
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	217 evw.slot = None
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	218 evw.notename = None
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	219
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	220 # First off, is the note in our midi table?
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	221 if evw.ev.note in self.midi2note:
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	222 evw.notename = self.midi2note[evw.ev.note]
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	223 # Is it playable?
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	224 if self.noteisplayable(evw.ev.note) != None:
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	225 evw.slot = self.note2slot[evw.notename]
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	226 # Nope, maybe we can transpose?
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	227 elif self.trytranspose:
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	228 # Go for -3 to +3 octaves (going down first)
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	229 for i in [-12, -24, -36, 12, 24, 36]:
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	230 if self.noteisplayable(evw.ev.note + i) != None:
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	231 self.transposenote(evw, i)
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	232 if i < 0:
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	233 stats.transposedowncount += 1
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	234 tmp = 'down'
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	235 else:
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	236 stats.transposeupcount += 1
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	237 tmp = 'up'
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	238 print 'Transposed note at %.1f sec %s (%d) %s %d octave(s) to %s (%d)' % (
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	239 ctime, self.midi2note[evw.ev.note - i], evw.ev.note - i, tmp,
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	240 abs(i / 12), evw.notename, evw.ev.note)
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	241 break
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	242 if evw.slot != None:
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	243 stats.playablecount += 1
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	244 else:
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	245 print 'Note at %.1f sec %d (%s) not playable' % (ctime, evw.ev.note, self.midi2note[evw.ev.note])
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	246 stats.unplayablecount += 1
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	247 else:
38 9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	248 print 'Note at %.1f sec, %d not in MIDI table' % (ctime, evw.ev.note)
37 c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	249 stats.unplayablecount += 1
c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	250
12 6e46ceee57a7 Use correct MIDI note generation, previous version did not agree with Daniel O'Connor <darius@dons.net.au> parents: 11 diff changeset	251 # http://newt.phys.unsw.edu.au/jw/notes.html
38 9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	252 # But this seems dumb since the lowest MIDI note is 0 which would be C-1..
7 31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	253 @staticmethod
27 87cf66e04ef9 Handle offsetting note pitch in a better way. Daniel O'Connor <darius@dons.net.au> parents: 26 diff changeset	254 def genmidi2note():
87cf66e04ef9 Handle offsetting note pitch in a better way. Daniel O'Connor <darius@dons.net.au> parents: 26 diff changeset	255 '''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	256 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	257 midi2note = {}
31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	258 note2midi = {}
38 9e8ed92b477c Re-jig note translation to only happen when we are going to emit a Daniel O'Connor <darius@dons.net.au> parents: 37 diff changeset	259 for midi in range(12, 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	260 octave = midi / len(names) - 1
7 31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	261 index = midi % len(names)
31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	262 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	263 midi2note[midi] = name
87cf66e04ef9 Handle offsetting note pitch in a better way. Daniel O'Connor <darius@dons.net.au> parents: 26 diff changeset	264 note2midi[name] = midi
4 9f4fa5f231e6 Rework to use mido iterator and paginate. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	265
7 31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	266 return midi2note, note2midi
31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	267
31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	268 @staticmethod
31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	269 def loadnote2slot(fname, note2midi):
31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	270 note2slot = {}
13 5f4c21bb5140 Add lines and notes engraved on the paper. Daniel O'Connor <darius@dons.net.au> parents: 12 diff changeset	271 slot2note = {}
7 31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	272 index = 0
31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	273
31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	274 for note in file(fname):
31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	275 note = note.strip()
31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	276 if note[0] == '#':
31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	277 continue
31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	278 if note not in note2midi:
31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	279 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	280 note2slot[note] = index
13 5f4c21bb5140 Add lines and notes engraved on the paper. Daniel O'Connor <darius@dons.net.au> parents: 12 diff changeset	281 slot2note[index] = note
7 31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	282 index += 1
31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	283
13 5f4c21bb5140 Add lines and notes engraved on the paper. Daniel O'Connor <darius@dons.net.au> parents: 12 diff changeset	284 return note2slot, slot2note
4 9f4fa5f231e6 Rework to use mido iterator and paginate. Daniel O'Connor <darius@dons.net.au> parents: 3 diff changeset	285
11 9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing Daniel O'Connor <darius@dons.net.au> parents: 9 diff changeset	286 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	287 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	288 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	289 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	290 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	291 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	292 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	293
37 c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	294 #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	295 w1 = w
31 ea98c9507f47 Preliminary multi-page support. Breaks time marks though. Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	296 # 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	297 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	298 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	299 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	300 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	301 # Emit second half of note
37 c490fecec0ef Have another crack at fixing transposition. Daniel O'Connor <darius@dons.net.au> parents: 36 diff changeset	302 #print 'split note, pdf %d w2 = %.3f' % (pdfidx + 1, w2)
31 ea98c9507f47 Preliminary multi-page support. Breaks time marks though. Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	303 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	304
31 ea98c9507f47 Preliminary multi-page support. Breaks time marks though. Daniel O'Connor <darius@dons.net.au> parents: 30 diff changeset	305 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	306
31db42ce72b8 Rework to be class-y Daniel O'Connor <darius@dons.net.au> parents: 5 diff changeset	307 @staticmethod
11 9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing Daniel O'Connor <darius@dons.net.au> parents: 9 diff changeset	308 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	309 pdf.saveState()
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing Daniel O'Connor <darius@dons.net.au> parents: 9 diff changeset	310 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	311 pdf.setLineWidth(0)
9faad813e39e switch to PDF to avoid dealing with CorelDraw crashing Daniel O'Connor <darius@dons.net.au> parents: 9 diff changeset	312 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	313 pdf.restoreState()
0 0773354c7428 Initial commit, WIP. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	314
17 c50427f1da2d - Draw vertical time lines. Daniel O'Connor <darius@dons.net.au> parents: 16 diff changeset	315 @staticmethod
c50427f1da2d - Draw vertical time lines. Daniel O'Connor <darius@dons.net.au> parents: 16 diff changeset	316 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	317 tobj = pdf.beginText()
c50427f1da2d - Draw vertical time lines. Daniel O'Connor <darius@dons.net.au> parents: 16 diff changeset	318 tobj.setTextOrigin(x, y)
c50427f1da2d - Draw vertical time lines. Daniel O'Connor <darius@dons.net.au> parents: 16 diff changeset	319 tobj.setFont(fontname, fontsize)
c50427f1da2d - Draw vertical time lines. Daniel O'Connor <darius@dons.net.au> parents: 16 diff changeset	320 tobj.setStrokeColor(colour)
c50427f1da2d - Draw vertical time lines. Daniel O'Connor <darius@dons.net.au> parents: 16 diff changeset	321 tobj.setFillColor(colour)
c50427f1da2d - Draw vertical time lines. Daniel O'Connor <darius@dons.net.au> parents: 16 diff changeset	322 if fill:
c50427f1da2d - Draw vertical time lines. Daniel O'Connor <darius@dons.net.au> parents: 16 diff changeset	323 tobj.setTextRenderMode(0)
c50427f1da2d - Draw vertical time lines. Daniel O'Connor <darius@dons.net.au> parents: 16 diff changeset	324 else:
c50427f1da2d - Draw vertical time lines. Daniel O'Connor <darius@dons.net.au> parents: 16 diff changeset	325 tobj.setTextRenderMode(1)
c50427f1da2d - Draw vertical time lines. Daniel O'Connor <darius@dons.net.au> parents: 16 diff changeset	326 tobj.textLine(text)
c50427f1da2d - Draw vertical time lines. Daniel O'Connor <darius@dons.net.au> parents: 16 diff changeset	327 pdf.drawText(tobj)
c50427f1da2d - Draw vertical time lines. Daniel O'Connor <darius@dons.net.au> parents: 16 diff changeset	328
0 0773354c7428 Initial commit, WIP. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	329 if __name__ == '__main__':
0773354c7428 Initial commit, WIP. Daniel O'Connor <darius@dons.net.au> parents: diff changeset	330 main()

Mercurial > ~darius > hgwebdir.cgi > musiccutter

annotate musiccutter.py @ 40:5c47f9361d93