Mercurial > hg > amuse

comparison implementations/midi/methods.lisp @ 115:cf198383852d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Re-instated get-applicable-x for midi-related implementations and added key-sigs to midi darcs-hash:20070726144704-f76cc-a24c9e6c07b43c4084a73218f76a0b345fac5369.gz
author David Lewis <d.lewis@gold.ac.uk>
date Thu, 26 Jul 2007 15:47:04 +0100
parents 956f4c6f8571
children b849c4fc4c26
comparison
equal deleted inserted replaced
114:956f4c6f8571 115:cf198383852d
28 (setf (%midi-time-signatures composition) sequence)) 28 (setf (%midi-time-signatures composition) sequence))
29 (defmethod tempi ((composition midi-composition)) 29 (defmethod tempi ((composition midi-composition))
30 (%midi-tempi composition)) 30 (%midi-tempi composition))
31 (defmethod (setf tempi) (sequence (composition midi-composition)) 31 (defmethod (setf tempi) (sequence (composition midi-composition))
32 (setf (%midi-tempi composition) sequence)) 32 (setf (%midi-tempi composition) sequence))
33 (defmethod key-signatures ((composition midi-composition))
34 (%midi-key-signatures composition))
35 (defmethod (setf key-signatures) (sequence (composition midi-composition))
36 (setf (%midi-key-signatures composition) sequence))
33 37
34 (defgeneric copy-event (event)) 38 (defgeneric copy-event (event))
35 ;; FIXME: This ought to call-next-method and operate on the result, 39 ;; FIXME: This ought to call-next-method and operate on the result,
36 ;; rather than calling internals from the other package 40 ;; rather than calling internals from the other package
37 (defmethod copy-event ((event midi-pitched-event)) 41 (defmethod copy-event ((event midi-pitched-event))