ifbeat-btw   macro

;
;
;; IFBEAT-BTW X Y Z
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; if beat between X and Y 
;
; (ifbeat-btw denominator numerator-left numerator-right (do ...) (else do ....))
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(impc:aot:do-or-emit
    (define-macro (ifbeat-btw x y z args . elseargs)
    `(if (and (> (modulo beat ,x) ,y) (< (modulo beat ,x) ,z))
            ,args
            ,@elseargs))
)