comparison generics.lisp @ 22:99ccd775245a

Moved midi out of main files

darcs-hash:20061214125711-f76cc-c9e7f9af1054c67473ff6d8a8e3b84e45fe43f35.gz

 (defgeneric pitch (object &key kind)) ; ? Maybe this returns the pitch
 				      ; in its ur form?
 (defgeneric chromatic-pitch (pitch-designator)) ; How simple are these
 (defgeneric diatonic-pitch (pitch-designator)) ; if has to be computed?
 (defgeneric frequency (object)) ;?
-(defgeneric chromatic-pitch-number (pitch-designator))
+(defgeneric midi-pitch-number (pitch-designator))
 (defgeneric meredith-chromatic-pitch-number (pitch-designator)
   ;; David Meredith's PhD and ps13 code
-  (:method (p) (- (chromatic-pitch-number p) 21)))
+  (:method (p) (- (midi-pitch-number p) 21)))
 (defgeneric pitch-class (pitch-designator)
-  (:method (p) (mod (chromatic-pitch-number p) 12)))
+  (:method (p) (mod (midi-pitch-number p) 12)))
 (defgeneric span (pitch-interval-designator))
 
 ;; time
 
 (defgeneric duration (period-designator))