21 lines
600 B
Clojure
21 lines
600 B
Clojure
|
(ns app.block
|
||
|
|
(:use app.wav)
|
||
|
|
(:require [hiphip.double :as v]
|
||
|
|
[app.listen :as listen]))
|
||
|
|
|
||
|
|
;; whacks pcm
|
||
|
|
(defn build [pcm]
|
||
|
|
;(listen/normalise! pcm)
|
||
|
|
(listen/fadeinout! pcm 50 100)
|
||
|
|
{:pcm pcm
|
||
|
|
:fft (listen/fftify (v/aclone pcm))
|
||
|
|
:mfcc (first (listen/mfccify (v/aclone pcm)))})
|
||
|
|
|
||
|
|
;; scores fft and mfcc simulataneosly with a weighting
|
||
|
|
(defn diff [a b ratio]
|
||
|
|
(cond
|
||
|
|
(= ratio 0) (listen/diff (:fft a) (:fft b))
|
||
|
|
(= ratio 1) (listen/diff (:mfcc a) (:mfcc b))
|
||
|
|
:else (+ (* (listen/diff (:fft a) (:fft b)) (- 1 ratio))
|
||
|
|
(* (listen/diff (:mfcc a) (:mfcc b))) ratio)))
|