comparison implementations/geerdes/constructors.lisp @ 133:d041118612d4

Fixed monody import for geerdes

darcs-hash:20070821110338-f76cc-6958b98c5ece929c14f7faa5bc837810254621b9.gz

 						     (%fast-track row)
 						     (%fast-onset row timebase)
 						     (%fast-duration row timebase)
 						     (%fast-id row)))))
 	(when (%fast-monodyp row)
-	  (push note monody-notes))
+	  (let ((monody-note (copy-event note)))
+	     (setf (duration monody-note) (%fast-monody-duration row timebase))
+	     (push monody-note monody-notes)))
 	(when (> (timepoint (cut-off note)) last-time)
 	  (setf last-time (timepoint (cut-off note))))
 	(push note notes)
 	(incf l)))
     (sequence:adjust-sequence composition l :initial-contents (reverse notes))

   (seventh event-row))
 (defun %fast-id (event-row)
   (eighth event-row))
 (defun %fast-monodyp (event-row)
   (ninth event-row))
+(defun %fast-monody-duration (event-row timebase)
+  (/ (tenth event-row) timebase))
 
 (defun %fast-tempo (tp-row)
   (eighth tp-row))
 (defun %fast-numerator (ts-row)
   (ninth ts-row))

 		   :time time
 		   :interval interval
 		   :velocity velocity
 		   :patch patch
 		   :id id)))
-(defmethod copy-event ((event geerdes-percussive-event)) 
+(defmethod copy-event ((event geerdes-percussive-event))
   (with-slots ((channel amuse-midi::channel)
 	       (track amuse-midi::track)
 	       (time amuse::time)
 	       (interval amuse::interval)
 	       (velocity amuse-midi::velocity)
 	       (patch amuse-midi::patch)
 	       (sound amuse-midi::sound) id)
       event
     (make-instance 'geerdes-percussive-event
-		   :channel channel 
+		   :channel channel
 		   :track track
 		   :time time
 		   :interval interval
 		   :velocity velocity
 		   :patch patch