Mercurial > hg > amuse

comparison implementations/midi/methods.lisp @ 281:4a03a1478c02

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add identifier and timebase slots to midifile composition class Ignore-this: 4e72a0860344399452bea196c3739bbf darcs-hash:20090524150506-16a00-bce845ccf20a9289a4015fb58287f25ebfa178ad.gz
author j.forth <j.forth@gold.ac.uk>
date Sun, 24 May 2009 16:05:06 +0100
parents 8ec5cc5466fb
children ac78ce3d0b10
comparison
equal deleted inserted replaced
280:9ce6b954d403 281:4a03a1478c02
52 (setf (%midi-tempi composition) sequence)) 52 (setf (%midi-tempi composition) sequence))
53 (defmethod key-signatures ((composition midi-composition)) 53 (defmethod key-signatures ((composition midi-composition))
54 (%midi-key-signatures composition)) 54 (%midi-key-signatures composition))
55 (defmethod (setf key-signatures) (sequence (composition midi-composition)) 55 (defmethod (setf key-signatures) (sequence (composition midi-composition))
56 (setf (%midi-key-signatures composition) sequence)) 56 (setf (%midi-key-signatures composition) sequence))
57
58 (defgeneric midi-timebase (composition))
59 (defmethod midi-timebase ((composition midi-composition))
60 (%midi-timebase composition))
57 61
58 ;; FIXME: This ought to call-next-method and operate on the result, 62 ;; FIXME: This ought to call-next-method and operate on the result,
59 ;; rather than calling internals from the other package 63 ;; rather than calling internals from the other package
60 (defmethod copy-event ((event midi-pitched-event)) 64 (defmethod copy-event ((event midi-pitched-event))
61 (with-slots (channel track (number amuse::number) (time amuse::time) (interval amuse::interval) velocity patch) 65 (with-slots (channel track (number amuse::number) (time amuse::time) (interval amuse::interval) velocity patch)