;; filter drive (bind-func static set_filter_drive (lambda (inst:i8* val:float) (let ((note (cref (cast inst [void]*) note_kernel [void]*))) (cset! note filter_saturation (clamp (+ 1.0 val) 1.0 3.0) float) void)))