Mercurial > hg > amuse

diff 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
line wrap: on
line diff
--- a/base/generics.lisp	Sat Mar 19 18:50:24 2011 +0000
+++ b/base/generics.lisp	Sat Mar 19 18:51:23 2011 +0000
@@ -189,6 +189,10 @@
 
 (defgeneric bpm (tempo)
   (:documentation "Basic tempo query")) ;; in bpm
+
+(defgeneric bps (tempo)
+  (:documentation "Basic tempo query")) ;; in bps
+
 (defgeneric microseconds-per-crotchet (tempo)
   ;; As used (when rounded) in MIDI
   (:method (tp) (/ 60000000 (bpm tp)))