Mercurial > hg > amuse
comparison utils/harmony/chord-labelling.lisp @ 34:81b4228e26f5
Primarily corrections to large push earlier, including one missed file
darcs-hash:20070418135009-f76cc-011412bf4b5a6bb20bd43b41a8a145f69e941926.gz
author | David Lewis <d.lewis@gold.ac.uk> |
---|---|
date | Wed, 18 Apr 2007 14:50:09 +0100 |
parents | d1010755f507 |
children | 90abdf9adb60 |
comparison
equal
deleted
inserted
replaced
33:d1010755f507 | 34:81b4228e26f5 |
---|---|
23 ;; * likelihoods are currently alists with a host of methods. (FIXME: | 23 ;; * likelihoods are currently alists with a host of methods. (FIXME: |
24 ;; this doesn't seem very clever) | 24 ;; this doesn't seem very clever) |
25 ;; | 25 ;; |
26 | 26 |
27 ;; FIXME: this is in the wrong place | 27 ;; FIXME: this is in the wrong place |
28 (defparameter *keys* (make-array 12 :initial-contents '(:c :c# :d :eb :e :f :f# :g :g# :a :bb :b))) | 28 (defparameter *keys* (make-array 12 :initial-contents '(:c :c# :d :eb :e :f :f# :g :ab :a :bb :b))) |
29 | 29 |
30 (defparameter *path-options* | 30 (defparameter *path-options* |
31 ;; Each of these is a set of division-of-the-bar options for each | 31 ;; Each of these is a set of division-of-the-bar options for each |
32 ;; metrical type. | 32 ;; metrical type. |
33 ;; | 33 ;; |