comparison base/generics.lisp @ 86:7a0ee88f1edb

base/: new generics DIATONIC-PITCH-ACCIDENTAL and OCTAVE

darcs-hash:20070717165105-c0ce4-9f6acb06961d3413ceca604ca0285ababcdda377.gz

 				      ; in its ur form?
 (defgeneric chromatic-pitch (pitch-designator)) ; How simple are these
 (defgeneric diatonic-pitch (pitch-designator)) ; if has to be computed?
 (defgeneric mips-pitch (pitch-designator))
 (defgeneric frequency (object)) ;?
+
+(defgeneric octave (pitch-designator)
+  (:documentation "Return an integer representing the octave of
+pitch-designator where middle c is defined to be the lowest pitch in
+octave 4."))
+
+(defgeneric diatonic-pitch-accidental (pitch-designator)
+  (:documentation "Return an integer representing the inflection of a
+diatonic pitch where where negative values indicate numbers of flats,
+0 indicates natural and positive values indicate numbers of sharps."))
 
 (defgeneric middle-c (pitch-designator) 
   (:documentation "Returns the value of middle C in the particular
 representation of pitch used by PITCH-DESIGNATOR."))
 (defgeneric midi-pitch-number (pitch-designator)