comparison base/methods.lisp @ 250:b3260d1d2419

Add onset-in-bar-relative-to-tactus.

This depends on tactus-duration, which needs revisiting.

 (defmethod ioi-from-bar ((constituent constituent))
   (- (timepoint (onset constituent))
      (timepoint (current-bar constituent constituent))))
 
 (defmethod onset-in-bar ((o moment))
+  "FIXME: Won't actually work for standard-moments because they do not
+  have a composition slot! So either we allow for 'linked moments', or
+  change the method to have an optional composition parameter."
   (1+ (ioi-from-bar o)))
+
+(defmethod onset-in-bar-relative-to-tactus ((o moment))
+  (1+ (/ (ioi-from-bar o)
+	 (tactus-duration
+	  (car (get-applicable-time-signatures o (composition o)))))))
 
 (defmethod beat-period ((moment standard-moment)
                         (time-signature standard-time-signature)
                         (composition composition))
   ;; Simple example - standard-time-signature has constant tactus