comparison implementations/midi/methods.lisp @ 243:93f8768b12dd

Add some more midi setf methods.

Ignore-this: 2e61873995aee02ee7092e76cff9909b

darcs-hash:20100604153347-16a00-6c337a78b01a227049aaa1ce996da506d4951af1.gz

committer: Jamie Forth <[e-mail]>

 (cl:in-package #:amuse-midi)
-
-(defgeneric (setf midi-velocity) (value event)
-    (:method (v e) (declare (ignore v)) e))
-(defmethod (setf midi-velocity) (value (event midi-pitched-event))
-     (setf (%midi-pitched-event-velocity event) value)
-     event)
-
-(defgeneric (setf midi-patch) (value event)
-   (: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)
   (:documentation "MIDI channel. Also used for midi output"))
 (defmethod midi-channel ((midi-message midi-message))
   (%midi-message-channel midi-message))
 
+(defgeneric (setf midi-channel) (value event))
+(defmethod (setf midi-channel) (value (event midi-message))
+  (setf (%midi-message-channel event) value) event)
+
 (defgeneric midi-track (midi-message)
   (:documentation "MIDI track. Also used for midi output"))
 (defmethod midi-track ((midi-message midi-message))
   (%midi-message-track midi-message))
+
+(defgeneric (setf midi-track) (value event))
+(defmethod (setf midi-track) (value (event midi-message))
+  (setf (%midi-message-track event) value) event)
 
 (defgeneric midi-velocity (event)
   (:documentation "MIDI velocity. Also used for midi output"))
 (defmethod midi-velocity ((event midi-pitched-event))
   (%midi-pitched-event-velocity event))
 (defmethod midi-velocity ((event midi-percussive-event))
   (%midi-percussive-event-velocity event))
 
+(defgeneric (setf midi-velocity) (value event))
+(defmethod (setf midi-velocity) (value (event midi-pitched-event))
+  (setf (%midi-pitched-event-velocity event) value) event)
+(defmethod (setf midi-velocity) (value (event midi-percussive-event))
+  (setf (%midi-percussive-event-velocity event) value) event)
+
 (defgeneric midi-patch (event)
   (: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))
+(defmethod midi-patch ((event midi-percussive-event))
+  (%midi-percussive-event-patch event))
+
+(defgeneric (setf midi-patch) (value event))
+(defmethod (setf midi-patch) (value (event midi-pitched-event))
+  (setf (%midi-pitched-event-patch event) value) event)
+(defmethod (setf midi-patch) (value (event midi-percussive-event))
+  (setf (%midi-percussive-event-patch event) value) 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 (setf midi-drum-sound) (value event))
+(defmethod (setf midi-drum-sound) (value (event midi-percussive-event))
+  (setf (%midi-percussive-event-sound event) value) event)
+
+(defgeneric midi-note-number (event)
+  (:documentation "Same as get-pitch-for-midi"))
+(defmethod midi-note-number ((event midi-pitched-event))
+  (midi-pitch-number event))
+(defmethod midi-note-number ((event midi-percussive-event))
+  (midi-drum-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)))