diff base/generics.lisp @ 112:034ef8412ddb

asa-interval-string defgeneric

darcs-hash:20070726151905-dc3a5-6c39aefd80ba1ebbd1b6c84c5f5fd752a4065eb3.gz

--- a/base/generics.lisp	Thu Jul 26 16:12:44 2007 +0100
+++ b/base/generics.lisp	Thu Jul 26 16:19:05 2007 +0100
@@ -77,6 +77,12 @@
 pitch name which has three parts: a letter name in the set
 {A,B,C,D,E,F,G}, an inflection in the set {n,f,s,ff,ss,fff,sss,...}
 and an octave number. E.g., Cn4 = Middle C."))
+(defgeneric asa-interval-string (pitch-designator)
+  (:documentation "Returns a string representing the designated ASA
+interval name which has two or three parts: a direction in the set
+{r,f} (absent for unisons/primes), a type in the set
+{p,ma,mi,a,d,aa,dd,aaa,ddd,...}, and a size number.  E.g. rma2 =
+rising major second."))
 (defgeneric diatonic-pitch-name (pitch-designator)
   (:documentation "Returns a char in the set
 {#\A,#\B,#\C,#\D,#\E,#\F,#\G}, representing the pitch name of