Mercurial > hg > amuse
changeset 119:f07d4596290b
Key-sig support in midi library
darcs-hash:20070727112429-f76cc-0e47bea65bc3f0eb90749a023442e992104a88b2.gz
| author | David Lewis <d.lewis@gold.ac.uk> |
|---|---|
| date | Fri, 27 Jul 2007 12:24:29 +0100 |
| parents | d574d015f5af |
| children | d2f68cedf573 |
| files | implementations/midi/midifile-import.lisp |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/implementations/midi/midifile-import.lisp Fri Jul 27 12:23:32 2007 +0100 +++ b/implementations/midi/midifile-import.lisp Fri Jul 27 12:24:29 2007 +0100 @@ -91,8 +91,8 @@ (push (make-instance 'midi-key-signature :time (/ (midi:message-time event) division) - :sharp-count (message-sf event) - :mode (message-mi event)) + :sharp-count (midi:message-sf event) + :mode (midi:message-mi event)) key-sigs)) ((typep event 'midi:tempo-message) (when tempi @@ -127,7 +127,7 @@ :numerator 4 :denominator 4))) :tempi (sort tempi #'time<) - :key-signatures (sort key-signatures #'time<)))) + :key-signatures (sort key-sigs #'time<)))) (sequence:adjust-sequence composition (length notes) :initial-contents (sort notes #'time<)))))