*** empty log message ***
[chuck-blob.git] / exile / v1 / examples / larry.ck
bloba8a25db2187bd5136406ff12dadff2e6d2685d84
1 // run each stooge, or run three stooges concurrently
2 // %> chuck moe larry curly
4 // impulse to filter to dac
5 impulse i => biquad f => dac;
6 // set the filter's pole radius
7 .99 => f.prad; 
8 // set equal gain zeros
9 1 => f.eqzs;
10 // initialize float variable
11 0.0 => float v;
12 // set filter gain
13 .5 => f.gain;
14   
15 // infinite time-loop   
16 while( true )
18     // set the current sample/impulse
19     1.0 => i.value;
20     // sweep the filter resonant frequency
21     std.abs(math.sin(v)) * 4000.0 => f.pfreq;
22     // increment v
23     v + .1 => v;
24     // advance time
25     99::ms => now;