comparison base/generics.lisp @ 305:39f5fc572953

DRAFT: kludge for tactus-duration

Ignore-this: b5cb875a6d31e7ea35394f335abaddc0

darcs-hash:20091024170612-16a00-3a9ab095515a8510393ac4e61767ddae7a811870.gz

 (defgeneric time-signature-denominator (time-signature)
   (:method (ts) (beat-units ts))
   (:documentation "Not obviously meaningful for non fraction-like
   time signatures"))
 (defgeneric tactus-duration (time-signature)
-  ;; basic, but should do?
+  ;; basic, but should do? NO! This defines 6/4 as compound. We need
+  ;; proper simplep and compoundp predicates.
   (:method (ts)
+    (warn "FIXME: tactus-duration is broken")
     (cond
-      ((and (not (= (beat-units-per-bar ts) 3))
+      ;; ((and (not (= (beat-units-per-bar ts) 3))
+      ;; 	    (= (rem (beat-units-per-bar ts) 3) 0))
+      ((and (= (beat-units ts) 8)
 	    (= (rem (beat-units-per-bar ts) 3) 0))
        ;; compound time
        (* (/ 4 (beat-units ts))
 	  3))
       (t (/ 4 (beat-units ts)))))