;; hann with time (bind-func static hann_t_mc_c (lambda (offset) (let ((h (hann_t_c offset)) (mem 0.0)) (lambda (chan:i64 time:i64 width:i64) (if (= chan 0) (set! mem (h time width))) mem))))