(bind-func static hann_c
"window of width samples - repeating every repeat samples"
(lambda ()
(let ((cnt -1))
(lambda (width:i64)
(set! cnt (+ cnt 1))
(* 0.5
(- 1.0
(cos (/ (* STWOPI (convert (% cnt width)))
(- (convert width) 1.0)))))))))