comparison implementations/midi/methods.lisp @ 302:ac78ce3d0b10

Add some basic midi predicate and accessor functions.

Ignore-this: ab60873a92efc7f4c3cd98cdb938dcea

darcs-hash:20090918100419-16a00-bd8423ddea7a4700d7e1c5300e4dafd35113897c.gz

    (:method (v e) (declare (ignore v)) e))
 (defmethod (setf midi-patch) (value (event midi-pitched-event))
     (setf (%midi-pitched-event-patch event) value)
     event)
 
-(Defgeneric midi-channel (midi-message)
+(defgeneric midi-channel (midi-message)
   (:documentation "MIDI channel. Also used for midi output"))
 (defmethod midi-channel ((midi-message midi-message))
   (%midi-message-channel midi-message))
 
 (defgeneric midi-track (midi-message)

   (:documentation "MIDI patch (instrumental sound). Also used for
   midi output"))
 (defmethod midi-patch ((event midi-pitched-event))
   (%midi-pitched-event-patch event))
 
+(defgeneric midi-note-number (event)
+  (:documentation "Same as get-pitch-for-midi"))
+(defmethod midi-note-number ((event midi-percussive-event))
+  (midi-drum-sound event))
+(defmethod midi-note-number ((event midi-pitched-event))
+  (midi-pitch-number event))
+
 (defgeneric midi-drum-sound (event)
   (:documentation "MIDI pitch for unpitched events (usually, drum
   sound for drum kits on channel 10, but also for semi-pitched
   SFX, etc). Also used for midi output"))
 (defmethod midi-drum-sound ((event midi-percussive-event))
   (%midi-percussive-event-sound event))
+
+(defgeneric midi-drum-sound= (event1 event2))
+(defmethod midi-drum-sound= ((event1 midi-percussive-event)
+			     (event2 midi-percussive-event))
+  (= (midi-drum-sound event1) (midi-drum-sound event2)))
+(defmethod midi-drum-sound= ((event1 event)
+			     (event2 event))
+  "Return nil for any comparisons involving non-percussive events."
+  nil)
 
 (defmethod time-signatures ((composition midi-composition))
   (%midi-time-signatures composition))
 (defmethod (setf time-signatures) (sequence (composition midi-composition))
   (setf (%midi-time-signatures composition) sequence))