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

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 = vgroup("ringMod",ringMod(frequency,dpth));