Mercurial > hg > amuse
diff implementations/midi/midifile-import.lisp @ 249:bba5e8571b92
Hack in linked-events for the midi package.
Some refactoring of the constructors for this and geerdes might be helpful,
since neither lend themselves to using initialize-instance for performing
the linking.
| author | Jamie Forth <j.forth@gold.ac.uk> |
|---|---|
| date | Thu, 24 Feb 2011 11:23:18 +0000 |
| parents | de60993404c1 |
| children | 30b6b848ec75 |
line wrap: on
line diff
--- a/implementations/midi/midifile-import.lisp Thu Feb 24 11:23:18 2011 +0000 +++ b/implementations/midi/midifile-import.lisp Thu Feb 24 11:23:18 2011 +0000 @@ -128,7 +128,10 @@ :midi-timebase division))) (sequence:adjust-sequence composition (length notes) - :initial-contents (sort notes #'time<))))) + :initial-contents (sort notes #'time<)) + (sequence:dosequence (e composition t) + (%set-composition composition e)) + composition))) (defun make-event-from-on-off-pair (note-on cut-off divisions track patch) (cond