Mercurial > hg > amuse
changeset 94:8b5818686d7c
krumhansl-key-finder is in amuse-harmony
darcs-hash:20070723170635-dc3a5-6129fc594c87c1ce5148451ad06a3c7a8a85b2fa.gz
| author | c.rhodes <c.rhodes@gold.ac.uk> |
|---|---|
| date | Mon, 23 Jul 2007 18:06:35 +0100 |
| parents | 291f3be180e9 |
| children | e99e51c2a8af |
| files | implementations/gsharp/gsharp-import.lisp implementations/tabcode/tabcode-import.lisp |
| diffstat | 2 files changed, 2 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/implementations/gsharp/gsharp-import.lisp Mon Jul 23 18:05:59 2007 +0100 +++ b/implementations/gsharp/gsharp-import.lisp Mon Jul 23 18:06:35 2007 +0100 @@ -95,7 +95,7 @@ () (let* ((segment (gsharp-cursor::segment (gsharp::current-cursor))) (composition (amuse-gsharp::segment-composition segment)) - (result (amuse-utils:krumhansl-key-finder composition composition)) + (result (amuse-harmony:krumhansl-key-finder composition composition)) (name (aref #("C" "C#" "D" "Eb" "E" "F" "F#" "G" "Ab" "A" "Bb" "B") (car result))) (string (format nil "Key: ~A ~(~A~)" name (cadr result)))) (esa:display-message string)))
--- a/implementations/tabcode/tabcode-import.lisp Mon Jul 23 18:05:59 2007 +0100 +++ b/implementations/tabcode/tabcode-import.lisp Mon Jul 23 18:06:35 2007 +0100 @@ -106,7 +106,7 @@ (syntax (climacs::syntax buffer)) (tabwords (slot-value syntax 'tabcode-syntax::tabwords)) (composition (amuse-tabcode::make-tabcode-composition tabwords)) - (result (amuse-utils:krumhansl-key-finder composition composition)) + (result (amuse-harmony:krumhansl-key-finder composition composition)) (name (aref #("C" "C#" "D" "Eb" "E" "F" "F#" "G" "Ab" "A" "Bb" "B") (car result))) (string (format nil "{<key>~A ~(~A~)</key>}~%" name (cadr result)))) (drei-buffer:insert-buffer-sequence buffer 0 string)))