                                                       peaks)
 
                          (let [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])
-                               irregularity_k        (double-array [0])
-                               spectral-irregularity (double-array [0])
-                               spectral-centroid     (double-array [0])
-                               spectral-variance     (double-array [0])
 
                                spectral-inharmonicity (spectral-inharmonicity
                                                        peaks block-size

                               :spectral-kurtosis      (first spectral-kurtosis)
                               :rms_amplitude          (first rms)

                               ;;                              :noisiness (first noiseness)
                               ;;                                :loudness (first loudness)
                               ;;                               :tonality (first tonality)
                               :midi midi
                               :f0 f0}
                              })))

                             (xtract/xtract_variance spectrum block-size (xtract-args (first spectral-mean)) spectral-variance)
                             (xtract/xtract_spectral_standard_deviation spectrum block-size (xtract-args (first spectral-variance)) spectral-std-deviation)

                             (let [argv (xtract-args (first spectral-mean) (first spectral-std-deviation))]
                               (xtract/xtract_spectral_skewness spectrum block-size argv spectral-skewness)
                               (xtract/xtract_spectral_kurtosis spectrum block-size argv spectral-kurtosis))

                             ;;(xtract/xtract_noisiness     wav-data block-size (xtract-args NUM_HARMONICS ) noiseness)

