Mercurial > hg > amuse

comparison utils/utils.lisp @ 56:13033824fa7d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 df1482ef96fe
children 32314fefc706
comparison
equal deleted inserted replaced
55:ba65f66a713e 56:13033824fa7d
147 do (when (> (aref minors i) best-score) 147 do (when (> (aref minors i) best-score)
148 (setf key (list i :minor) 148 (setf key (list i :minor)
149 best-score (aref minors i)))) 149 best-score (aref minors i))))
150 (values key (key->midi-key-signature key anchored-period)))) 150 (values key (key->midi-key-signature key anchored-period))))
151 151
152 (defvar *line-of-fifths* (list 5 10 3 8 1 0 7 2 9 4 11 6)) 152 (defvar *line-of-fifths* (list 1 8 3 10 5 0 7 2 9 4 11 6))
153 153
154 (defun key->midi-key-signature (key anchored-period) 154 (defun key->midi-key-signature (key anchored-period)
155 (let* ((tonic (car key)) 155 (let* ((tonic (car key))
156 (mode (cadr key)) 156 (mode (cadr key))
157 (sharps (- (ecase mode 157 (sharps (- (ecase mode