;; same as osc_c
(bind-func static sin_c
(lambda (phase)
(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 (parabolicSineHP phase))))))