Mercurial > hg > amuse
diff base/methods.lisp @ 260:f5836b2bf334
add bps (analogous to bpm)
| author | Jamie Forth <j.forth@gold.ac.uk> |
|---|---|
| date | Sat, 19 Mar 2011 18:51:23 +0000 |
| parents | c4e9a7bb9897 |
| children | 8e5f306b7e47 |
line wrap: on
line diff
--- a/base/methods.lisp Sat Mar 19 18:50:24 2011 +0000 +++ b/base/methods.lisp Sat Mar 19 18:51:23 2011 +0000 @@ -165,6 +165,9 @@ (defmethod bpm ((tempo standard-tempo)) (%tempo-bpm tempo)) +(defmethod bps ((tempo standard-tempo)) + (/ (%tempo-bpm tempo) 60)) + (defmethod print-object ((tempo standard-tempo) stream) (print-unreadable-object (tempo stream :type t) (write (bpm tempo) :stream stream)))