comparison base/generics.lisp @ 108:b445959f4cc1

MIPS generic functions and methods for diatonic pitches

Define and implement DIATONIC-PITCH-MP and DIATONIC-PITCH-CP for mips-pitches
(soon to be diatonic-pitches).  Supersedes MEREDITH-FOO

darcs-hash:20070726131018-dc3a5-3421fb2c4beceae2370932768fefa1115050cfdd.gz

 (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 diatonic-pitch-mp (pitch-designator)
+  (:documentation "Return an integer representing the morphetic pitch
+\(in MIPS terms) of a diatonic pitch."))
+(defgeneric diatonic-pitch-cp (pitch-designator)
+  (:documentation "Return an integer representing the chromatic pitch
+\(in MIPS terms) of a diatonic pitch."))
+
 (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)
   (:documentation "Takes a pitch-designator (usually a pitched