comparison base/methods.lisp @ 276:3180b03d436a

add move-to-first-bar method

darcs-hash:20090124002529-16a00-b7802e0488f4e2f0c442d6735845503b50440a25.gz

         ;; If no time-sig, there's no way of answering this
         ;; directly. There may be sensible defaults, but it's the job
         ;; of an implementation's author to solve that.
         (error 'insufficient-information :operation 'beat-period :datatype (class-of composition)))))
 
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Copying events in time
+
+(defmethod move-to-first-bar ((composition composition))
+  (let ((offset (floor (timepoint (car composition)))))
+    (loop
+       for event in (%list-slot-sequence-data)
+       do (setf event (copy-event event))
+       do (setf (timepoint event)
+		(- (timepoint event) offset))
+       collect event into shifted-events
+       finally (return shifted-events))))