                               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)


(defn- xtract-args [& args] (xtract/doublea_to_voidp (clojure->c-double args)))

(defn with-result [t xtract-fn]
  (let [r t]
    (xtract-fn r)
    (let [out (nth (vec r) 0)]
      out)))

(defn spectral-inharmonicity [peaks-data block-size & args]
  (with-result
    (double-array [0])
    (fn [r] (xtract/xtract_spectral_inharmonicity peaks-data block-size (apply xtract-args args) r))))

(defn mean [vs]
  (let [result (double-array 1)

    peaks))

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