Mercurial > hg > amuse

comparison implementations/mtp/methods.lisp @ 68:95dce8c7f08c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
midi-key-signature: 0 darcs-hash:20070706094145-c0ce4-eedb2b03b6557c4dba4cdd1170c925c471744a71.gz
author Marcus Pearce <m.pearce@gold.ac.uk>
date Fri, 06 Jul 2007 10:41:45 +0100
parents 8b31d54c95be
children 873d7546d2fe
comparison
equal deleted inserted replaced
67:8b31d54c95be 68:95dce8c7f08c
131 131
132 ;;; Constituents from compositions: key-signatures 132 ;;; Constituents from compositions: key-signatures
133 133
134 (defgeneric key-signature (event)) 134 (defgeneric key-signature (event))
135 (defmethod key-signature ((e mtp-event)) 135 (defmethod key-signature ((e mtp-event))
136 (let ((keysig (%mtp-keysig e)) 136 (let* ((keysig (%mtp-keysig e))
137 (mode (%mtp-mode e)) 137 (mode (%mtp-mode e))
138 (onset (timepoint e))) 138 (midi-mode (and mode (if (= mode 0) 0 1)))
139 (amuse:make-midi-key-signature keysig mode onset nil))) 139 (onset (timepoint e)))
140 140 (amuse:make-midi-key-signature keysig midi-mode onset nil)))
141 (defmethod key-signatures ((c mtp-composition)) 141
142 (defmethod key-signatures ((c mtp-composition))
142 (let ((results nil) 143 (let ((results nil)
143 (interval 0) 144 (interval 0)
144 (current nil)) 145 (current nil))
145 (sequence:dosequence (event c) 146 (sequence:dosequence (event c)
146 (let ((ks (key-signature event))) 147 (let ((ks (key-signature event)))