slider1:7018<10,7018,1>Frequency (Hz)
slider2:0<0,0.8,0.001>Resonance
slider3:0<-24,24,0.1>Output (dB)

in_pin:L in
in_pin:R in
out_pin:L out
out_pin:R out

@slider
slider1 = min(slider1,7018);
slider2 = min(slider2,0.999);

f = (2*$pi*slider1/srate);
q = slider2;
fb = q + q/(1 - f);
output = 10^(slider3/20);

@sample
inA = spl0;
inB = spl1;

buf0A = buf0A + f * (inA - buf0A + fb * (buf0A - buf1A));
buf1A = buf1A + f * (buf0A - buf1A);
outA = buf1A;

buf0B = buf0B + f * (inB - buf0B + fb * (buf0B - buf1B));
buf1B = buf1B + f * (buf0B - buf1B);
outB = buf1B;

spl0 = outA*output;
spl1 = outB*output;
