;; tivial one pole LPF ;; cutoff controlled via g (0.0-1.0) (bind-func static lpf_1p_c (lambda () (let ((y-1 0.0)) (lambda (x:SAMPLE g) (set! y-1 (+ (* x (- 1.0 g)) (* y-1 g))) y-1))))