Mercurial > hg > amuse
changeset 56:13033824fa7d
utils.lisp: oops - correct line of fifths
darcs-hash:20070621141536-c0ce4-0bb572ad8357f0f19dae3a5d276d69b896386735.gz
| author | Marcus Pearce <m.pearce@gold.ac.uk> |
|---|---|
| date | Thu, 21 Jun 2007 15:15:36 +0100 |
| parents | ba65f66a713e |
| children | f308c2b7b796 |
| files | utils/utils.lisp |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/utils/utils.lisp Thu Jun 21 13:13:19 2007 +0100 +++ b/utils/utils.lisp Thu Jun 21 15:15:36 2007 +0100 @@ -149,7 +149,7 @@ best-score (aref minors i)))) (values key (key->midi-key-signature key anchored-period)))) -(defvar *line-of-fifths* (list 5 10 3 8 1 0 7 2 9 4 11 6)) +(defvar *line-of-fifths* (list 1 8 3 10 5 0 7 2 9 4 11 6)) (defun key->midi-key-signature (key anchored-period) (let* ((tonic (car key))