Mercurial > hg > amuse
diff implementations/midi/classes.lisp @ 25:fe73cc3f1605
implementations/midi: move MIDI implementation to subdirectory.
darcs-hash:20061215162417-aa3d6-164486669cc7e76206afd76f5c9cdd4fb2ba5b75.gz
| author | m.pearce <m.pearce@gold.ac.uk> |
|---|---|
| date | Fri, 15 Dec 2006 16:24:17 +0000 |
| parents | |
| children | 5e705b6f94b6 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/implementations/midi/classes.lisp Fri Dec 15 16:24:17 2006 +0000 @@ -0,0 +1,20 @@ +(cl:in-package #:amuse-midi) + +(defclass midi-message () ;? + ((channel :accessor %midi-message-channel :initarg :channel) + (track :accessor %midi-message-track :initarg :track))) + +(defclass midi-pitched-event (chromatic-pitched-event midi-message) + ((velocity :initarg :velocity) + (patch :initarg :patch))) + +(defclass midi-percussive-event (percussive-event midi-message) + ((velocity :initarg :velocity) + (patch :initarg :patch) + (sound :initarg :sound))) + +(defclass midi-key-signature (basic-key-signature) + ;; Is mode ever used in real life? Is it ever accurately used in + ;; real life? + ((mode :accessor %midi-key-signature-mode + :initarg mode)))