(bind-func set_dl_main (lambda (inst:i8* gain:float pan:float) (let ((effect (cref (cast inst [void]*) effect_kernel [void]*))) (cset! effect gain (clamp gain 0.0 5.0) float) (cset! effect pan_pos pan float) void)))