diff base/generics.lisp @ 307:a85c59bcd88b

add some time-related generic functions to base

Ignore-this: 8ad91dcfa5c8a0301c29dda7d2f27802

darcs-hash:20100212101520-16a00-6821cd98b78bf27be148e3e7e4b46c8f0b80928b.gz

--- a/base/generics.lisp	Sun Apr 04 22:05:37 2010 +0100
+++ b/base/generics.lisp	Fri Feb 12 10:15:20 2010 +0000
@@ -451,15 +451,22 @@
   bar which contains moment"))
 
 (defgeneric beat-period (moment time-signature implementation-object)
-  (:documentation "Takes a moment, time signature object and crotchet and returns
-  an <anchored-period> for the containing beat containing moment. This
-  is more useful when there's a complex time signature (not currently
-  possible) in which tactus is different in different parts of the
-  bar (e.g. 3+3+2/8)"))
+  (:documentation "Takes a moment, time signature object and crotchet
+  and returns an <anchored-period> for the containing beat containing
+  moment. This is more useful when there's a complex time
+  signature (not currently possible) in which tactus is different in
+  different parts of the bar (e.g. 3+3+2/8)"))
 (defgeneric current-beat (moment composition)
   (:documentation "Returns an <anchored-period> representing the
   tactus unit which contains moment"))
 
+(defgeneric ioi-from-bar (moment)
+  (:documentation "Returns the IOI of moment (i.e. an event) from the
+  bar line."))
+
+(defgeneric onset-in-bar (moment)
+  (:documentation "The position of moment in the bar, measured in
+  beats."))
 
 ;;;;;;;;;;;;;;
 ;;