onbeat?   macro


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/libs/core/instruments-scm.xtm

Implementation

(define-macro (onbeat? b of t . f)
  (if (null? f)
      `(if (= (modulo beat ,of) (- ,b 1))
           ,t)
      `(if (= (modulo beat ,of) (- ,b 1))
           ,t ,(car f))))


Back to Index