Chords cl-musicman

2006-07-21 19:34:33

Alright! cl-musicman can figure out chords now and it does a decent job on the voicings. Examples? sure:

MUSIC-THEORY> (find-chord (define-guitar) (major-13th-chord 'e) :root-string 6)
(0 2 1 1 0 2)

MUSIC-THEORY> (find-chord (define-guitar :tuning '(d a d g b e)) (major-13th-chord 'e) :root-string 6)
(2 2 1 1 0 2)

MUSIC-THEORY> (find-chord (define-guitar :tuning '(d a d g b e)) (major-13th-chord 'e) :root-string 3)
(NIL NIL NIL 9 9 7)

MUSIC-THEORY> (find-chord (define-guitar) (inversion (major-chord 'c)) :root-string 5)
(NIL 7 5 5 5 3)