comparison implementations/mtp/methods.lisp @ 292:80c227c1c0da

The MTP implementation of AMUSE:MONODY now uses the voice of the first event in the piece.

darcs-hash:20090723085710-c0ce4-0324442e9897c7a903fa20cfd16d18f880718439.gz

 
 (defmethod monody ((identifier mtp-composition-identifier))
   (monody (get-composition identifier)))
 
 (defmethod monody ((c mtp-composition))
+  ;; using the voice of the first event in the piece
   (let ((monody (make-instance 'mtp-monody 
                                :dataset-id (dataset-id c)
                                :composition-id (composition-id c)
                                :description (description c)
                                :time 0 
                                :interval (duration c)))
         (events nil)
-        (monody-voice 1))
+        (monody-voice nil))
     (sequence:dosequence (event c)
+      (when (null monody-voice)
+        (setf monody-voice (%mtp-voice event)))
       (when (= (%mtp-voice event) monody-voice)
         (push event events)))
     (sequence:adjust-sequence 
      monody (length events)
      :initial-contents (sort events #'< :key #'amuse:timepoint))