 (real-part val))
                          (* interp (imag-part val)))))
        (set! cr (+ cr cr-incr))
        (set! md (+ md md-incr))))))

;(with-sound (:clipped #f :statistics #t) (fpmc 0 1 1000.0 1.0 0.1 0.5+0.5i 0.5))
;(with-sound (:clipped #f :statistics #t) (fpmc 0 1 1000.0 1.0 0.1 3.0+1.0i 0.5))

;(with-sound (:clipped #f :statistics #t) (fpmc 0 2 1000.0 1.0 0.1 0.0+3.0i 0.5)) use 65536 as fft size, mark the imag part? (maxamp 7.03)
(bes-in 0 3)
4.88079258586502 [1.0]
(/ (bes-in 1 3) (bes-in 0 3