(define-macro (ramp x) `(let* ((xx (+ ,x 0.000000001)) (xmod2pi (- xx (* TWOPI (floor (/ xx TWOPI)))))) (* (/ 1.0 TWOPI) xmod2pi)))