Mercurial > hg > amuse
changeset 155:fc6848dda767
Added setf methods for midi-channel and velocity
darcs-hash:20071204143920-1f211-9505a88618b3b0532b314ef809f8ee7819c956d5.gz
| author | d.mullensiefen <d.mullensiefen@gold.ac.uk> |
|---|---|
| date | Tue, 04 Dec 2007 14:39:20 +0000 |
| parents | edf2322ea33f |
| children | cc7724248043 |
| files | implementations/midi/methods.lisp implementations/midi/package.lisp |
| diffstat | 2 files changed, 14 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/implementations/midi/methods.lisp Mon Nov 19 17:31:47 2007 +0000 +++ b/implementations/midi/methods.lisp Tue Dec 04 14:39:20 2007 +0000 @@ -1,6 +1,18 @@ (cl:in-package #:amuse-midi) -(defgeneric midi-channel (midi-message) +(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))