spectralEntropy.help.hs

-- spectralEntropy ; note numChannels and numBands must be equal
let sig = soundIn 0
    chn = fft' (localBufId 'α' 1 2048) sig
    entropy = X.spectralEntropy 1 kr chn 2048 1
in pan2 (blip ar 100 (sqrt entropy * 10)) 0 0.1

-- spectralEntropy
let sig = soundIn 0
    amp = amplitude kr sig 0.01 0.01
    chn = fft' (localBufId 'α' 1 1024) sig
    entropy = X.spectralEntropy 10 kr chn 1024 10 * (min amp 0.2) * 5
in splay (blip ar (sqrt entropy * 200) (sqrt entropy)) 1 0.1 0 True