//The description says don't go above a frequency of srate/4. (slider3)
//I found out that a frequency of 7347 is totally flat. (With a srate of 44100)

desc: Read info...

slider1:7347<0,11020,1>freq
slider2:0<0,0.9,0.001>res
slider3:0,maxfreq (read only)

@init
pi=22/7;
pos = 0;
speed = 0;

@slider
c = 2-2*cos(2*pi*slider1 / srate);
r=slider2;

tmp=srate/4;
slider3=tmp;
sliderchange(slider3);

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

speed = speed + (input - pos) * c;
pos = pos + speed;
speed = speed * r;
spl0 = pos;
spl1=pos;

