rectratio   macro


Defined in:  https://github.com/lambdamusic/extempore-extensions/blob/main/init/init_lisp.xtm

Implementation

;
; enhanced version of rectr that also floors the value - for ratios
(macro (rectratio args)
   (if (> (length args) 4)
       `(real->rational (+ ,(caddr args) (* ,(cadddr args) (rect (* TWOPI (+ beat ,(cadr args)) ,(car (cddddr args)))))))
       `(real->rational (+ ,(cadr args) (* ,(caddr args) (rect (* TWOPI beat ,(cadddr args))))))))
;
; enhanced version of rectr that also floors the value


Back to Index