bBandStop.help.hs

-- bBandStop ; warning=feedback
let i = soundIn (mce2 0 1)
    f = mouseX kr 20 20000 Exponential 0.2
    bw = mouseY kr 0 10 Linear 0.2
in bBandStop i f bw

-- bBandStop ; drill
let i = sinOsc ar 1000 0
    f = mouseX kr 800 1200 Exponential 0.2
    bw = mouseY kr 0 10 Linear 0.2
in bBandStop i f bw * 0.1

-- calculate coefficients and use sos ; warning=feedback
let i = soundIn (mce2 0 1)
    f = mouseX kr 800 1200 Exponential 0.2
    bw = mouseY kr 0 10 Linear 0.2
    (a0, a1, a2, b1, b2) = Sound.Sc3.Common.Math.Filter.Beq.bBandStopCoef sampleRate f bw
in sos i a0 a1 a2 b1 b2