# HG changeset patch
# User c.rhodes <c.rhodes@gold.ac.uk>
# Date 1185463145 -3600
# Node ID 034ef8412ddbe98b8a7b7f5b1fd0ff3b12d19103
# Parent  f49aa290b5c38ef73ba785eb4e409527b60e1ac2
asa-interval-string defgeneric

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

diff -r f49aa290b5c3 -r 034ef8412ddb base/generics.lisp
--- 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