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