Mercurial > hg > amuse
changeset 187:aa2b33f83ac6
fix middle-c diatonic-pitch method
darcs-hash:20090103005452-16a00-53c8ce96af2ff8f77aeec5ccbbcf74d0ccc3c965.gz
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Sat, 03 Jan 2009 00:54:52 +0000 |
| parents | 03be243f9003 |
| children | 18d3480e7ec8 |
| files | base/methods.lisp |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/base/methods.lisp Mon Nov 03 12:41:42 2008 +0000 +++ b/base/methods.lisp Sat Jan 03 00:54:52 2009 +0000 @@ -34,7 +34,7 @@ (elt (asa-pitch-string mp) 0)) (defmethod middle-c ((mp diatonic-pitch)) - (make-diatonic-pitch 39 23)) + (make-diatonic-pitch #\C 0 4)) (defmethod midi-pitch-number ((mp diatonic-pitch)) (+ (%p-pc mp) 21))