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 ;;