42 lines · 991 B · Text
RawDownload
// run each stooge, or run three stooges concurrently// %> chuck moe++ larry++ curly++ // source to filter to dacSndBuf i => BiQuad f => Gain g => dac;// second formanti => BiQuad f2 => g;// third formanti => BiQuad f3 => g; // set the filter's pole radius.995 => f.prad; .995 => f2.prad; .995 => f3.prad;// set equal gain zeros1 => f.eqzs; 1 => f2.eqzs; 1 => f3.eqzs;// initialize float variable1.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;// play1.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;}

Keyboard shortcuts

General

Show keyboard shortcuts
?
Focus the current search
/

Issues and pull requests

Open filters
f

Issues, pull requests and Inbox

Select next item
j↓
Select previous item
k↑
Open selected item
Enter
Dismiss filters or clear selection
Esc

Repository code

Go to file
t