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

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

@init
posA = 0;
speedA = 0;
posB = 0;
speedB = 0;

@slider
slider1 = min(slider1,7350);

amp = 10^(slider2/20);
fx = cos(2*$pi*slider1 / srate);
c = 2-2*fx;
r = (sqrt(2)*sqrt(-(fx-1)^3)+amp*(fx-1))/(amp*(fx-1));

gain = 10^(slider3/20);

@sample
inA = spl0;
inB = spl1;

speedA = speedA + (inA - posA) * c;
posA = posA + speedA;
speedA = speedA * r;

speedB = speedB + (inB - posB) * c;
posB = posB + speedB;
speedB = speedB * r;

spl0 = posA*gain;
spl1 = posB*gain;
