;Generate a half rectangular window function of buffer_size N 1100
(bind-func half_rectangular_window_func:[void,float*,i64]*
(lambda (wn:float* N:i64)
(let ((n:i64 0))
(dotimes (n N)
(cond ((< n (/ N 2))
(pset! wn n 1.0))
(else (pset! wn n 0.0))))
void)))