   (let [windowed (c-double block-size)]
     (xtract/xtract_windowed wave-data block-size (xtract/doublea_to_voidp full-window) windowed)
     (xtract/xtract_init_fft block-size xtract-spectrum)
-
     (let [spectrum (extract-spectrum windowed block-size (/ sample-rate block-size) xtract-spectrum-magnitude)]
       (xtract/xtract_free_fft)
       (xtract/delete_double_array windowed)

                                 (Integer/parseInt (format "%.0f" (/ cents 100)))
                                 0)

                      spectrum (extract-fft-spectrum wav-data block-size SAMPLE_RATE full-window)
                      peaks (extract-peaks spectrum block-size SAMPLE_RATE_RATIO 10.0)

                      rms                   (double-array [0])
                      spectral-irregularity (double-array [0])
                      spectral-centroid     (double-array [0])
                      spectral-variance     (double-array [0])

                      ;;TODO
                      noiseness             (double-array [0])
                      loudness              (double-array [0])
                      tonality              (double-array [0])]



                  (xtract/xtract_spectral_centroid spectrum block-size (xtract-args 0.0) spectral-centroid)
                  (xtract/xtract_irregularity_j    spectrum half-block-size nil spectral-irregularity)
