// Music 256a / CS 476a | fall 2016
// CCRMA, Stanford University
//
// Author: Romain Michon (rmichonATccrmaDOTstanfordDOTedu)
// Description: Mono flanger audio effect.

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;

flanger(maxDelay,depth,speed) = comb(delLength,depth)
with{
	delLength = maxDelay*(os.osc(speed)+1)/2;
	comb(delLength,b1) = _ <: (de.fdelay4(2048,delLength) : *(b1)),_ : + ;
};

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