;Generate hamming window function of buffer_size N
(bind-func hanning_window_func:[void,float*,i64]*
(lambda (wn:float* N:i64)
(let ((n:i64 0))
(dotimes (n N)
(pset! wn n (* 0.5 (- 1.0 (cos (/ (* TWOPIf (i64tof n)) (i64tof (- N 1))))))))
void)))