Mercurial > hg > amuse

comparison base/generics.lisp @ 260:f5836b2bf334

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add bps (analogous to bpm)
author Jamie Forth <j.forth@gold.ac.uk>
date Sat, 19 Mar 2011 18:51:23 +0000
parents aac79c0ac1b9
children 8e5f306b7e47
comparison
equal deleted inserted replaced
259:c4e9a7bb9897 260:f5836b2bf334
187 (:documentation "Query that only makes sense for midi-like key 187 (:documentation "Query that only makes sense for midi-like key
188 signatures")) 188 signatures"))
189 189
190 (defgeneric bpm (tempo) 190 (defgeneric bpm (tempo)
191 (:documentation "Basic tempo query")) ;; in bpm 191 (:documentation "Basic tempo query")) ;; in bpm
192
193 (defgeneric bps (tempo)
194 (:documentation "Basic tempo query")) ;; in bps
195
192 (defgeneric microseconds-per-crotchet (tempo) 196 (defgeneric microseconds-per-crotchet (tempo)
193 ;; As used (when rounded) in MIDI 197 ;; As used (when rounded) in MIDI
194 (:method (tp) (/ 60000000 (bpm tp))) 198 (:method (tp) (/ 60000000 (bpm tp)))
195 (:documentation "Basic tempo query for MIDI. N.B. This will be 199 (:documentation "Basic tempo query for MIDI. N.B. This will be
196 a fraction and must be rounded before being used for output.")) 200 a fraction and must be rounded before being used for output."))