//Robo Echo By Joaquins Void
desc: Robo Echo

slider1:1<1,24,1>Note
slider2:0.3<0,0.99,0.01>Feedback
slider3:-12<-120,0,1>Wet
slider4:-3<-120,0,1>Dry

@init
pos=0;
d != dl ? ( freembuf(dl*2); );

@slider
wet = 2 ^(slider3 / 6);
dry = 2 ^(slider4 / 6);
F = 440 * pow(2,(slider1+12 - 57)/12)

@block
d = dl;
dl = srate / F;
d != dl ? ( freembuf(dl*2); );


@sample
buf = pos*2;
out1=buf[0];
out2=buf[1];

buf[0] = spl0 + out1*slider2;
buf[1] = spl1 + out2*slider2;

(pos+=1) >= dl ? pos=0;

spl0 = spl0*dry + out1*wet;
spl1 = spl1*dry + out2*wet;
