                               MFCC_FREQ_BANDS
                               (xtract_mel_filter/.getFilters mel-filters))
 
-     (xtract/xtract_init_wavelet_f0_state)
 
      ;;public static int xtract_init_bark(int N, double sr, SWIGTYPE_p_int band_limits) {
      ;;(xtract/xtract_init_bark block-size SAMPLERATE bark-band-limits)

    peaks))

(defn extract-rms-amp
  "Extract the RMS amplitude"
  [wav-data block-size sample-ratio]
  (let [rms (double-array 1)]
    (xtract/xtract_rms_amplitude wav-data block-size (xtract-args sample-ratio) rms)

         half-block-size (/ block-size 2)
         SAMPLE_RATE_RATIO (/ SAMPLE_RATE block-size)

         s           (ssample/read-sound sample-path)
         data-chunks (ssample/chunks s SAMPLE_RATE)
         ;;TODO: Merging channels?
         ;;with sliding window, overlap
         data (partition block-size half-block-size (mapcat (fn [bit] bit) (flatten (flatten data-chunks))))         ;;seperate
         ;;data (partition block-size (mapcat (fn [bit] bit) (flatten (flatten data-chunks))))
         mel-filters  (xtract/create_filterbank  MFCC_FREQ_BANDS block-size)

         ;;bark-band-limits (xtract/new_int_array 0)
