(bind-func cerberus_delay_cc
(lambda ()
(let ((val 0.0:f))
(lambda (inst offset:i32 cc:i32 value:i32)
;; (println 'cerberus_delay_cc cc value)
(set! val (/ (i32tof value) 127.0))
(cond ((= cc (+ offset 0)) ;; delay time left ms
(set_delay_time_left inst (* val 2000.0)))
((= cc (+ offset 1)) ;; delay time right ms
(set_delay_time_right inst (* val 2000.0)))
((= cc (+ offset 2)) ;; delay mix
(set_delay_mix inst val))
((= cc (+ offset 3)) ;; delay fb
(set_delay_fb inst val)))))))