         [neuhon.spectral]
         [neuhon.fft]
         [neuhon.utils]))
-
-
-;; Instance of the JTransforms DoubleFFT_1D class,
-;; with a given spectral window size
-(def jtransformer (DoubleFFT_1D. window-size))
 
 ;; hardcoded path
 ;; Base folder where the wav files are located

  "Compute the direct spectral kernel transform of
  an input sequence"
  [frame]
  (let [frame-array (double-array (* 2 window-size) frame)]
    (do
      (.realForwardFull jtransformer frame-array)
      (take
        window-size
        (dsk-transform
          (complex-to-real-seq
            ;; frame-array))))))
            (iterative-radix2-fft (to-complex-array frame))))))))

(defn extract-chromatic-vector
  "Compute the chromatic vector of a song's segment"

  ^{:doc "Main features of the software"
    :author "Antoine Passemiers"}
  (:gen-class)
  (:require [clojure.data.csv :as csv]
            [clojure.java.io :as io])
  (:use [clojure.java.io]
