(bind-func set_delay
(lambda (inst:i8* mix:float left:float right:float fb:float) ;; lpf_frq:float lpf_res:float)
(let ((effect (cref (cast inst [void]*) effect_kernel [void]*)))
(cset! effect delay_mix mix float)
(cset! effect delay_time_left left float)
(cset! effect delay_time_right right float)
(cset! effect delay_fb (clamp fb 0.0 1.0) float)
; (cset! effect delay_frq (clamp lpf_frq 10.0 19000.0) float)
; (cset! effect delay_res (clamp lpf_res 0.0 1.0) float)
void)))