diff implementations/midi/classes.lisp @ 134:5e362d998f29

More documentation

darcs-hash:20070828101524-f76cc-6add2c3c254befc3cf767ac69706865b7830bc6a.gz

--- a/implementations/midi/classes.lisp	Tue Aug 21 12:03:38 2007 +0100
+++ b/implementations/midi/classes.lisp	Tue Aug 28 11:15:24 2007 +0100
@@ -1,6 +1,7 @@
 (cl:in-package #:amuse-midi) 
 
-(defclass midi-object (amuse:amuse-object) ())
+(defclass midi-object (amuse:amuse-object) ()
+  (:documentation "MIDI base class"))
 
 (defclass midi-composition (amuse:composition midi-object)
   ((time-signatures :initarg :time-signatures
@@ -14,7 +15,10 @@
 		    :accessor %midi-key-signatures)
    (misc-controllers :initarg :controllers
 		      :initform 'nil
-		      :accessor %midi-misc-controllers)))
+		      :accessor %midi-misc-controllers))
+  (:documentation "Class for midi compositions, with time
+  signatures, tempi, key signatures and other controllers as
+  lists in slots"))
 
 (defclass midi-message (midi-object) ;?
   ((channel :accessor %midi-message-channel :initarg :channel)
@@ -24,7 +28,8 @@
   ((velocity :initarg :velocity
 	     :accessor %midi-pitched-event-velocity)
    (patch :initarg :patch
-	  :accessor %midi-pitched-event-patch)))
+	  :accessor %midi-pitched-event-patch))
+  (:documentation "Adds MIDI information to chromatic-pitched-event"))
 
 (defclass midi-percussive-event (percussive-event midi-message)
   ((velocity :initarg :velocity
@@ -32,5 +37,6 @@
    (patch :initarg :patch
 	  :accessor %midi-percussive-event-patch)
    (sound :initarg :sound
-	  :accessor %midi-percussive-event-sound)))
+	  :accessor %midi-percussive-event-sound))
+  (:documentation "Adds MIDI information to percussive-event"))