            [xtract_mel_filter]
            [xtract_features_]
            [xtract_window_types_]
+           [xtract_spectrum_]
 
           [javax.sound.sampled AudioSystem]))
 

              (when (not= f0 0.0)
                (println "f0       :" f0)
                (println "midi-note:" (/ cents 100)))))
          )))

    (xtract/xtract_free_window w)
    (xtract/xtract_free_window subw)

(defonce xtract-hann     (.swigValue (xtract_window_types_/XTRACT_HANN)))

(defonce xtract-equal-gain (.swigValue (xtract_mfcc_types_/XTRACT_EQUAL_GAIN)))

(defonce xtract-spectrum-magnitude (.swigValue (xtract_spectrum_/XTRACT_MAGNITUDE_SPECTRUM)))

(defn- double->clojure [vs len]
  (let [ls (map-indexed
