(bind-func set_reverb
(lambda (inst:i8* mix:float size:float predel:float absorb:float )
(let ((effect (cref (cast inst [void]*) effect_kernel [void]*)))
(cset! effect reverb_mix mix float)
(cset! effect reverb_size (clamp size 0.0 1.0) float)
(cset! effect reverb_predelay size float)
(cset! effect reverb_absorb (clamp absorb 0.0 1.0) float)
void)))