;; make sure you put your stereo IR file in here!!
(bind-func dsp:DSP 100000000
(let ((conv (convolution_c "assets/ir/minsterl.aif" (* 512 8)))
(out 0.0)
(dry 1.0)
(wet 0.2))
(lambda (in time chan dat)
(if (= chan 0)
(set! out (convl (sampler in time chan dat) dry wet))
(set! out (convr (sampler in time chan dat) dry wet)))
out)))