slider1:16<1,16,1>Bit Reduction
slider2:22050<100,22050,50>Freq Reduction (Hz)
slider3:0<0,100,1>Filter (%)
slider4:0<-24,24,0.1>Output (dB)

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

@init
phasorA = 0;
phasorB = 0;
lastA = 0;
lastB = 0;

@slider
step = 1/2^(slider1);
normfreq = (slider2/srate);
filter = max(min(1-slider3*0.01,1),0.01);
gain = 10^(slider4/20);

@sample
inputA = spl0;
inputB = spl1;

phasorA = phasorA+normfreq;
(phasorA >= 1) ? (
phasorA = phasorA - 1;
lastA = step * floor( inputA/step + 0.5 );
);

phasorB = phasorB+normfreq;
(phasorB >= 1) ? (
phasorB = phasorB - 1;
lastB = step * floor( inputB/step + 0.5 );
);

fa = fa + filter * ((lastA-inputA) + inputA - fa);
fb = fb + filter * ((lastB-inputB) + inputB - fb);

spl0 = fa * gain;
spl1 = fb * gain;
