diff classes.lisp @ 22:99ccd775245a

Moved midi out of main files

darcs-hash:20061214125711-f76cc-c9e7f9af1054c67473ff6d8a8e3b84e45fe43f35.gz

--- a/classes.lisp	Wed Dec 13 16:42:49 2006 +0000
+++ b/classes.lisp	Thu Dec 14 12:57:11 2006 +0000
@@ -40,23 +40,12 @@
 (defclass pitch-interval (pitch-interval-designator) 
   ((span :accessor %pitch-interval-span :initarg :span)))
 
-(defclass midi-message () ;?
-  ((channel :accessor %midi-message-channel :initarg :channel)
-   (track :accessor %midi-message-track :initarg :track)))
-
 ;; events
 
 (defclass event (anchored-period) ())
 (defclass pitched-event (event pitch-designator) ())
 (defclass chromatic-pitched-event (pitched-event chromatic-pitch) ())
-(defclass midi-pitched-event (chromatic-pitched-event midi-message)
-  ((velocity :initarg :velocity)
-   (patch :initarg :patch)))
 (defclass percussive-event (event) ())
-(defclass midi-percussive-event (percussive-event midi-message)
-  ((velocity :initarg :velocity)
-   (patch :initarg :patch)
-   (sound :initarg :sound)))
 
 ;;; Range-based `constituents'
 ;; Whilst these are all constituents in the CHARM sense, their
@@ -81,12 +70,6 @@
   ((sharp-count :accessor %basic-key-signature-sharp-count
 		:initarg sharp-count)))
 
-(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)))
-
 (defclass tempo (anchored-period)
   ;; accel and rit in symbolic encoding will need other structures, as
   ;; will textual tempo markings.