Mercurial > hg > amuse
comparison utils/utils.lisp @ 144:70c716a6eb72
implementations/midi/: add and export make-midifile-identifier
darcs-hash:20070924113352-c0ce4-784da935f20dcfda828184780e37f5d961ca8390.gz
| author | Marcus Pearce <m.pearce@gold.ac.uk> |
|---|---|
| date | Mon, 24 Sep 2007 12:33:52 +0100 |
| parents | f4e7892c017f |
| children |
comparison
equal
deleted
inserted
replaced
| 143:b753a56c373b | 144:70c716a6eb72 |
|---|---|
| 32 (s 0)) | 32 (s 0)) |
| 33 (dolist (tempo tempi (/ s 1000000)) | 33 (dolist (tempo tempi (/ s 1000000)) |
| 34 (incf s (if (disjoint tempo object1) | 34 (incf s (if (disjoint tempo object1) |
| 35 0 | 35 0 |
| 36 (* (/ (duration (period-intersection tempo object1)) | 36 (* (/ (duration (period-intersection tempo object1)) |
| 37 (duration (crotchet constituent))) | 37 (duration (crotchet object2))) |
| 38 (amuse:microseconds-per-crotchet tempo))))))) | 38 (amuse:microseconds-per-crotchet tempo))))))) |
| 39 (defmethod beats-to-seconds ((object1 standard-moment) | 39 (defmethod beats-to-seconds ((object1 standard-moment) |
| 40 (object2 constituent)) | 40 (object2 constituent)) |
| 41 (beats-to-seconds (time- (onset object1) | 41 (beats-to-seconds (time- (onset object1) |
| 42 (make-standard-moment 0)) | 42 (make-standard-moment 0)) |