comparison classes.lisp @ 22:99ccd775245a

Moved midi out of main files

darcs-hash:20061214125711-f76cc-c9e7f9af1054c67473ff6d8a8e3b84e45fe43f35.gz

    (octave :accessor %diatonic-pitch-octave :initarg :octave)))
   
 (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
 ;; properties apply to a timed range rather than to a set of
 ;; events. As such, they can be regarded as anchored-periods with

   ;; Only has line-of-fifths distance from c, so custom signatures
   ;; won't work
   ((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.
   ((bpm :accessor %tempo-bpm
 	:initarg :bpm)))