Mercurial > hg > amuse
changeset 112:034ef8412ddb
asa-interval-string defgeneric
darcs-hash:20070726151905-dc3a5-6c39aefd80ba1ebbd1b6c84c5f5fd752a4065eb3.gz
| author | c.rhodes <c.rhodes@gold.ac.uk> |
|---|---|
| date | Thu, 26 Jul 2007 16:19:05 +0100 |
| parents | f49aa290b5c3 |
| children | 3ceaa5a08dc5 |
| files | base/generics.lisp |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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