[CM] moving-autocorrelation

[bil at ccrma.Stanford.EDU]

The moving-autocorrelation mus-data array does not
have any data until you call the generator.

(let* ((n 512)
        (hop 128)
        (ac (make-moving-autocorrelation (make-readin "oboe.snd") n hop 
))
        (mydata (make-float-vector hop)))
   ;; call it to get some data:
   (moving-autocorrelation ac) ; fill mus-data
   (format #t "mus-data:\n")
   (let* ((data  (mus-data ac))
	 (len (length data)))
     (format #t "length data: ~A\n " len )
     (set! mydata (mus-data ac))
     (do ((i 0 (+ i 1)))
	((= i hop))
       (format #t "~A ~0,12F\n " i (mydata i) ) )))