(bind-func window_hanning
(let ((i:i64 0))
(lambda (window_buffer:float* window_length)
(dotimes (i window_length)
(pset! window_buffer i
(* (pref window_buffer i)
(- 0.5 (* 0.5 (cos (/ (* TWOPIf (i64tof i))
(i64tof (- window_length 1)))))))))
void)))