;; dspmt takes 3 inputs (i.e. from dsp1 dsp2 and dsp3)
;; in is of type double*
(bind-func dspmt:DSPMT 1000000
(let ((reverb (reverb_st_c)))
(lambda (in time chan dat)
(reverb chan
(+ (* 0.5 (pref in 0))
(* 0.5 (pref in 1))
(* 0.5 (pref in 2)))
0.5 20.0 0.2 0.4))))