;; phased between 0.0-1.0
(bind-func static osc_c
(lambda (phase)
(set! phase (- (* phase STWOPI) SPI))
(let ((t (/ STWOPI SAMPLERATE)))
(lambda (amp freq)
(set! phase (+ phase (* t (clamp freq (- 0.0 SRs) SRs))))
(if (> phase SPI) (set! phase (- phase STWOPI)))
(* amp -1.0 (parabolicSineHP phase))))))