 (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

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

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

           [xtract_mel_filter]
           [xtract_features_]
           [xtract_window_types_]
           [xtract_spectrum_]

          [javax.sound.sampled AudioSystem]))

