Mercurial > hg > amuse
changeset 32:5e705b6f94b6
Exported midi accessors
darcs-hash:20061218132331-f76cc-f06a82a1a957a4e0b193272329e9f246a8d6c17b.gz
| author | David Lewis <d.lewis@gold.ac.uk> |
|---|---|
| date | Mon, 18 Dec 2006 13:23:31 +0000 |
| parents | 8e94c41f7103 |
| children | d1010755f507 |
| files | amuse.asd implementations/midi/classes.lisp implementations/midi/package.lisp |
| diffstat | 3 files changed, 14 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/amuse.asd Fri Dec 15 17:00:58 2006 +0000 +++ b/amuse.asd Mon Dec 18 13:23:31 2006 +0000 @@ -21,4 +21,6 @@ :components ((:file "package") (:file "classes") - (:file "constructors"))))))) + (:file "constructors") + (:file "methods"))))))) +
--- a/implementations/midi/classes.lisp Fri Dec 15 17:00:58 2006 +0000 +++ b/implementations/midi/classes.lisp Mon Dec 18 13:23:31 2006 +0000 @@ -5,11 +5,14 @@ (track :accessor %midi-message-track :initarg :track))) (defclass midi-pitched-event (chromatic-pitched-event midi-message) - ((velocity :initarg :velocity) - (patch :initarg :patch))) + ((velocity :initarg :velocity + :accessor %midi-pitched-event-velocity) + (patch :initarg :patch + :accessor %midi-pitched-event-patch))) (defclass midi-percussive-event (percussive-event midi-message) - ((velocity :initarg :velocity) + ((velocity :initarg :velocity + :accessor %midi-percussive-event-velocity) (patch :initarg :patch) (sound :initarg :sound)))
--- a/implementations/midi/package.lisp Fri Dec 15 17:00:58 2006 +0000 +++ b/implementations/midi/package.lisp Mon Dec 18 13:23:31 2006 +0000 @@ -5,5 +5,9 @@ #:midi-key-signature #:make-midi-pitched-event #:make-midi-percussive-event - #:make-midi-key-signature)) + #:make-midi-key-signature + #:midi-channel + #:midi-track + #:midi-velocity + #:midi-patch))