comparison tools/midi-output.lisp @ 136:fd85f52d9f9d

Class revolution

* PITCH-DESIGNATOR -> PITCH (PITCH removed)
* MOMENT-DESIGNATOR -> MOMENT , MOMENT -> STANDARD-MOMENT
* PERIOD-DESIGNATOR -> PERIOD , PERIOD -> STANDARD-PERIOD
* ANCHORED-PERIOD-DESIGNATOR -> ANCHORED-PERIOD , ANCHORED-PERIOD -> STANDARD-ANCHORED-PERIOD
* FLOATING-PERIOD removed
* TIME-SIGNATURE-DESIGNATOR -> TIME-SIGNATURE & TIME-SIGNATURE-PERIOD
* TIME-SIGNATURE -> STANDARD-TIME-SIGNATURE & STANDARD-TIME-SIGNATURE-PERIOD
* KEY-SIGNATURE-DESIGNATOR -> KEY-SIGNATURE (& ...-PERIOD)
* KEY-SIGNATURE -> STANDARD-KEY-SIGNATURE (& ...-PERIOD)
* TEMPO now abstract (& TEMPO-PERIOD)
* STANDARD-TEMPO AND STANDARD-TEMPO-PERIOD
* COMPOSITION, CONSTITUENT & TIME-ORDERED-CONSTITUENT all have STANDARD- forms

make-x methods and specialisers changes appropriately

darcs-hash:20070831142943-f76cc-7be0d08963de06d87b36e4922076287d565c7ee2.gz

 (defgeneric time-sig-message (time-sig)
   (:method (ts) (declare (ignore ts)) nil))
 
 (defgeneric event-messages (event)
   (:method (e) (declare (ignore e)) nil))
-(defmethod event-messages ((event pitched-event))
+(defmethod event-messages ((event standard-chromatic-pitched-event))
   (list (make-instance 'midi:note-on-message
 		       :status (+ (get-channel-for-midi event) 144)
 		       :key (midi-pitch-number event)
 		       :velocity (get-velocity-for-midi event)
 		       :time (timepoint event))

 		       :status (+ (get-channel-for-midi event) 128)
 		       :key (midi-pitch-number event)
 		       :velocity (get-velocity-for-midi event)
 		       :time (timepoint (cut-off event)))))
 
-(defmethod event-messages ((event percussive-event))
+(defmethod event-messages ((event standard-percussive-event))
   (list (make-instance 'midi:note-on-message
 		       :status 153
 		       :key (get-pitch-for-midi event)
 		       :velocity (get-velocity-for-midi event)
 		       :time (timepoint event))