Mercurial > hg > amuse
comparison implementations/midi/methods.lisp @ 153:74fc4c6cbf6c
Really saved that change this time
darcs-hash:20071114153611-f76cc-8bcc114d41915de8d720c833d450cbf0be508ade.gz
| author | David Lewis <d.lewis@gold.ac.uk> |
|---|---|
| date | Wed, 14 Nov 2007 15:36:11 +0000 |
| parents | a74494a94be9 |
| children | edf2322ea33f |
comparison
equal
deleted
inserted
replaced
| 152:3b588c566734 | 153:74fc4c6cbf6c |
|---|---|
| 90 o | 90 o |
| 91 (setf (%midi-time-signatures result) time-signatures | 91 (setf (%midi-time-signatures result) time-signatures |
| 92 (%midi-tempi result) tempi | 92 (%midi-tempi result) tempi |
| 93 (%midi-misc-controllers result) misc-controllers)) | 93 (%midi-misc-controllers result) misc-controllers)) |
| 94 result)) | 94 result)) |
| 95 | 95 |
| 96 | 96 |
| 97 ;; useful little function | 97 ;; useful little function |
| 98 | 98 |
| 99 (defun microsecond-per-crotchet-to-bpm (mu-per-c) | 99 (defun microsecond-per-crotchet-to-bpm (mu-per-c) |
| 100 (/ 60000000 mu-per-c)) | 100 (/ 60000000 mu-per-c)) |