;; recompile dsp to produce two sine wave in left and right using the
;; (input) time:i64 argument
(bind-func dsp
(lambda (in:SAMPLE time:i64 channel:i64 data:SAMPLE*)
(cond ((= channel 0)
(* 0.5 (sin (* STWOPI 200.0 (/ (i64tof time) SRf)))))
((= channel 1)
(* 0.5 (sin (* STWOPI 210.0 (/ (i64tof time) SRf)))))
(else 0.0))))