(macro (rectrfloor args)
(if (> (length args) 4)
`(floor (+ ,(caddr args) (* ,(cadddr args) (rect (* TWOPI (+ beat ,(cadr args)) ,(car (cddddr args)))))))
`(floor (+ ,(cadr args) (* ,(caddr args) (rect (* TWOPI beat ,(cadddr args))))))))