comparison implementations/geerdes/constructors.lisp @ 281:4a03a1478c02

add identifier and timebase slots to midifile composition class

Ignore-this: 4e72a0860344399452bea196c3739bbf

darcs-hash:20090524150506-16a00-bce845ccf20a9289a4015fb58287f25ebfa178ad.gz

 
 (defgeneric %initialise-notes (composition))
 (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)
 						   (%fast-velocity row)
 						   (%fast-patch row)

 (defgeneric %initialise-constituents (composition))
 (defmethod %initialise-constituents ((composition geerdes-composition))
   ;; 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))
     (dolist (row (%midi-constituents composition))
       (cond