import("stdfaust.lib");
frequency = hslider("frequency",8,0.01,5000,0.01) : si.smoo;
dpth = hslider("depth",0,0,1,0.01) : si.smoo;

ringMod(freq,depth) = *(modSig)
with{
	modSig = 1 - (os.osc(freq)+1)*0.5*depth;
};

process = ringMod(frequency,dpth);