desc: Mono

slider1:22000<0,22000,1>freq
slider2:0<0,0.9,0.001>res

@init
y1=0;
y2=0;
y3=0;
y4=0;
oldx=0;
oldy1=0;
oldy2=0;
oldy3=0;

@slider
f = (slider1+slider1) / srate;
p = f*(1.8-0.8*f);
k = p+p-1.0;
t = (1.0-p)*1.386249;
t2 = 12.0+t*t;
r = slider2*(t2+6.0*t)/(t2-6.0*t);

@sample
inp=0.5*(spl0+spl1);

x=inp - r*y4;
y1=x*p + oldx*p - k*y1;
y2=y1*p+oldy1*p - k*y2;
y3=y2*p+oldy2*p - k*y3;
y4=y3*p+oldy3*p - k*y4;
y4=y4 - ((y4*y4*y4)/6.0);
oldx=x;
oldy1=y1+_kd;
oldy2=y2+_kd;;
oldy3=y3+_kd;;
outlp=y4;

spl0=y4;
spl1=y4;
