0.72_Clicks_Generator_Envelope.dsp

// ---------------------------------------------------------------------------------

// import Standard Faust library
// https://github.com/grame-cncm/faustlibraries/
import("stdfaust.lib");

clicks(seed,f,samples,amp) = phase
with{
varnoise = (((seed) : (+ @(ma.SR/f)~ *(1103515245)))/2147483647.0);
routeimpulse(a,b) = a : mem, b :> - : _ > 0;
noisemaj = varnoise>0;
noisemin = varnoise<0;
majimpulse = noisemaj <: routeimpulse;
minimpulse = noisemin <: routeimpulse *-1;
outimpulse = majimpulse + minimpulse :  _*amp;
phase = outimpulse : (+ : _*samples) ~ _;
};

// clicks(seed,f,samples,amp)
process = clicks(1020,10,0.1,1) <: _,_;

// ---------------------------------------------------------------------------------