Mercurial > hg > amuse
comparison base/methods.lisp @ 300:ed3ace83c975
Fix bug in move-to-first-bar.
Ignore-this: 52a48e8771d159294e9ad51cbe04034d
darcs-hash:20090905200027-16a00-539b473b27ebd6b75282dac335cc8617403ed3ad.gz
| author | j.forth <j.forth@gold.ac.uk> |
|---|---|
| date | Sat, 05 Sep 2009 21:00:27 +0100 |
| parents | 435834b86119 |
| children | fbeaedd242c6 |
comparison
equal
deleted
inserted
replaced
| 299:f5734df598f4 | 300:ed3ace83c975 |
|---|---|
| 568 | 568 |
| 569 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 569 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| 570 ;; Copying events in time | 570 ;; Copying events in time |
| 571 | 571 |
| 572 (defmethod move-to-first-bar ((composition composition)) | 572 (defmethod move-to-first-bar ((composition composition)) |
| 573 (let ((offset (floor (timepoint (car composition))))) | 573 (let ((offset (floor (timepoint (elt composition 0))))) |
| 574 (loop | 574 (loop |
| 575 for event in (%list-slot-sequence-data composition) | 575 for event in (%list-slot-sequence-data composition) |
| 576 do (setf event (copy-event event)) | 576 do (setf event (copy-event event)) |
| 577 do (setf (timepoint event) | 577 do (setf (timepoint event) |
| 578 (- (timepoint event) offset)) | 578 (- (timepoint event) offset)) |