            [xtract_window_types_]
            [xtract_spectrum_]
            [xtract_subband_scales_]
+           [xtractConstants]
 
           [javax.sound.sampled AudioSystem]))
 
 (defonce xtract-spectrum (.swigValue (xtract_features_/XTRACT_SPECTRUM)))
 (defonce xtract-windowed (.swigValue (xtract_features_/XTRACT_WINDOWED)))
+(defonce xtract-bark-coefficents (.swigValue (xtract_features_/XTRACT_BARK_COEFFICIENTS)))
+
+(defonce xtract-bark-bands (xtractConstants/XTRACT_BARK_BANDS))
+
 (defonce xtract-hann     (.swigValue (xtract_window_types_/XTRACT_HANN)))
 
 (defonce xtract-equal-gain (.swigValue (xtract_mfcc_types_/XTRACT_EQUAL_GAIN)))

;;                            public static int xtract_rms_amplitude(SWIGTYPE_p_double data, int N, SWIGTYPE_p_void argv, double[] result)

                            (let [rms (double-array [0])
                                  argv [(/ SAMPLERATE block-size)]

                                  spectral-inharmonicity (spectral-inharmonicity

                             MFCC_FREQ_MAX
                             MFCC_FREQ_BANDS
                             (xtract_mel_filter/.getFilters mel-filters))

    ;;  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)

;;    (println (xtract/int_array_getitem bark-band-limits 0))

    (let [w    (xtract/xtract_init_window block-size xtract-hann)
          subw (xtract/xtract_init_window half-block-size xtract-hann)
