# HG changeset patch
# User David Lewis <d.lewis@gold.ac.uk>
# Date 1166448211 0
# Node ID 5e705b6f94b6ccd9ca66dd7c85f372a98409bbc7
# Parent  8e94c41f71039d5d321091165825d98c1e904b93
Exported midi accessors

darcs-hash:20061218132331-f76cc-f06a82a1a957a4e0b193272329e9f246a8d6c17b.gz

diff -r 8e94c41f7103 -r 5e705b6f94b6 amuse.asd
--- 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")))))))
+
diff -r 8e94c41f7103 -r 5e705b6f94b6 implementations/midi/classes.lisp
--- 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)))
 
diff -r 8e94c41f7103 -r 5e705b6f94b6 implementations/midi/package.lisp
--- 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))