slider1:0<-48,24,0.01>gain
slider2:20<0,250,1>HPF Hz

@slider
gain = 2^(slider1/6);
k = exp(-2*$pi*slider2/srate);

@sample

finl = (spl0*spl0)*gain;
finr = (spl1*spl1)*gain;
slider2 > 0 ?
(
foutl = (1-k)*finl+k*foutl;
foutr = (1-k)*finr+k*foutr;
spl0 = finl-foutl;
spl1 = finr-foutr;
):(
spl0 = finl;
spl1 = finr;
);