Mercurial > hg > amuse
diff implementations/geerdes/constructors.lisp @ 281:4a03a1478c02
add identifier and timebase slots to midifile composition class
Ignore-this: 4e72a0860344399452bea196c3739bbf
darcs-hash:20090524150506-16a00-bce845ccf20a9289a4015fb58287f25ebfa178ad.gz
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Sun, 24 May 2009 16:05:06 +0100 |
| parents | 8ec5cc5466fb |
| children | d8f650e3796e |
line wrap: on
line diff
--- a/implementations/geerdes/constructors.lisp Fri May 22 22:12:15 2009 +0100 +++ b/implementations/geerdes/constructors.lisp Sun May 24 16:05:06 2009 +0100 @@ -4,7 +4,7 @@ (defmethod %initialise-notes ((composition geerdes-composition)) (let ((notes) (l 0) (last-time 0) (monody-notes) (monody (make-instance 'geerdes-monody :file-id (file-id composition))) - (timebase (%midi-timebase composition))) + (timebase (midi-timebase composition))) (dolist (row (%midi-events composition)) (let* ((note (if (pitched-row-p row) (make-geerdes-pitched-event (%fast-pitch row) @@ -47,7 +47,7 @@ ;; FIXME: Should the duration of composition be affected by this? On ;; the one hand, it makes no difference to the musical content, but ;; on the other, it seems illogical to reach outside the period. - (let ((timebase (%midi-timebase composition)) + (let ((timebase (midi-timebase composition)) (time-sigs) (tempi) (mystery 0))