Mercurial > hg > amuse

comparison base/generics.lisp @ 45:0f31919a855d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Implement and export KEY-SIGNATURE-MODE, export {MAKE-,}MIDI-KEY-SIGNATURE. darcs-hash:20070614181742-aa3d6-8a81a04b3df6db990c71a8aef653b69249e331c8.gz
author m.pearce <m.pearce@gold.ac.uk>
date Thu, 14 Jun 2007 19:17:42 +0100
parents d1010755f507
children 8b31d54c95be
comparison
equal deleted inserted replaced
44:085c1728480c 45:0f31919a855d
63 (* (/ 4 (beat-units ts)) 63 (* (/ 4 (beat-units ts))
64 3)) 64 3))
65 (t (/ 4 (beat-units ts)))))) 65 (t (/ 4 (beat-units ts))))))
66 66
67 (defgeneric key-signature-sharps (key-signature)) 67 (defgeneric key-signature-sharps (key-signature))
68 (defgeneric key-signature-mode (ks))
68 69
69 (defgeneric bpm (tempo)) ;; in bpm 70 (defgeneric bpm (tempo)) ;; in bpm
70 (defgeneric microseconds-per-crotchet (tempo) 71 (defgeneric microseconds-per-crotchet (tempo)
71 ;; As used (when rounded) in MIDI 72 ;; As used (when rounded) in MIDI
72 (:method (tp) (/ 60000000 (bpm tp)))) 73 (:method (tp) (/ 60000000 (bpm tp))))