import("stdfaust.lib");
flangerMaxDelay = vslider("[2]Delay[style:knob]",10,0,20,0.01)*0.001*ma.SR : si.smoo;
flangerDepth = vslider("[1]Depth[style:knob]",0,0,1,0.01) : si.smoo;
flangerSpeed = vslider("[0]Speed[style:knob]",1,0.1,10,0.01) : si.smoo;

comb(delLength,b1) = _ <: (de.fdelay4(2048,delLength) : *(b1)),_ : + ;

flanger(maxDelay,depth,speed) = comb(delLength,depth)
with{
	delLength = maxDelay*(os.osc(speed)+1)/2;
};

process = vgroup("[1]Flanger",par(i,2,flanger(flangerMaxDelay,flangerDepth,flangerSpeed)));