         file-sample-rate     (.getSampleRate base-file-format)]
     file-sample-rate))
 
-(defn extract-fundemental-frequency [wave-data block-size sample-rate]
+(defn extract-fundemental-frequency
+  [wave-data block-size sample-rate]
     (let [r (double-array 1)]
       (xtract/xtract_wavelet_f0 wave-data block-size (xtract-args sample-rate) r)
       (first r)))
 
 (defn extract-spectrum
+  "Extract frequency domain spectrum from time domain signal"
   ([windowed-data block-size sample-ratio spectrum-type]
    (extract-spectrum windowed-data block-size sample-ratio spectrum-type 0.0 0.0))
   ([windowed-data block-size sample-ratio spectrum-type db-component normalised]

                                 (Integer/parseInt (format "%.0f" (/ cents 100)))
                                 0)

                      spectrum (extract-fft-spectrum wav-data block-size SAMPLE_RATE full-window)
                      peaks (extract-peaks spectrum block-size SAMPLE_RATE_RATIO 10.0)

                      rms                   (double-array [0])
                      spectral-irregularity (double-array [0])
                      spectral-centroid     (double-array [0])
                      spectral-variance     (double-array [0])

                      ;;TODO
                      noiseness             (double-array [0])
                      loudness              (double-array [0])
                      tonality              (double-array [0])]



                  (xtract/xtract_spectral_centroid spectrum block-size (xtract-args 0.0) spectral-centroid)
                  (xtract/xtract_irregularity_j    spectrum half-block-size nil spectral-irregularity)
