Mercurial > hg > amuse

comparison base/methods.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 c4e9a7bb9897
children 8e5f306b7e47
comparison
equal deleted inserted replaced
259:c4e9a7bb9897 260:f5836b2bf334
162 (and s1 s2 (= s1 s2) 162 (and s1 s2 (= s1 s2)
163 m1 m2 (= m1 m2)))) 163 m1 m2 (= m1 m2))))
164 164
165 (defmethod bpm ((tempo standard-tempo)) 165 (defmethod bpm ((tempo standard-tempo))
166 (%tempo-bpm tempo)) 166 (%tempo-bpm tempo))
167
168 (defmethod bps ((tempo standard-tempo))
169 (/ (%tempo-bpm tempo) 60))
167 170
168 (defmethod print-object ((tempo standard-tempo) stream) 171 (defmethod print-object ((tempo standard-tempo) stream)
169 (print-unreadable-object (tempo stream :type t) 172 (print-unreadable-object (tempo stream :type t)
170 (write (bpm tempo) :stream stream))) 173 (write (bpm tempo) :stream stream)))
171 174