// run each stooge, or run three stooges concurrently
// %> chuck moe++ larry++ curly++

// source to filter to dac
SndBuf i => BiQuad f => Gain g => dac;
// second formant
i => BiQuad f2 => g;
// third formant
i => BiQuad f3 => g;

// set the filter's pole radius
.995 => f.prad; .995 => f2.prad; .995 => f3.prad;
// set equal gain zeros
1 => f.eqzs; 1 => f2.eqzs; 1 => f3.eqzs;
// initialize float variable
1.5 * 3.14 => float v;
// set filter gain
.2 => f.gain; .04 => f2.gain; .01 => f3.gain;
// load glottal pop
"special:glot_pop" => i.read;
// play
1.0 => i.rate;

  
// infinite time-loop   
while( true )
{
    // set the current pos
    0 => i.pos;

    // sweep the filter resonant frequency
    660.0 + Math.sin(v)*80.0 => f.pfreq;
    1780.0 + Math.sin(v*.5)*50.0 => f2.pfreq;
    2410.0 + Math.sin(v*.25)*150.0 => f3.pfreq;

    // increment v
    v + .05 => v;
    // gain
    0.2 + Math.sin(v)*.2 => g.gain;
    // advance time
    (80.0 + Math.sin(v*2.0)*10.0)::ms => now;
}