v2/examples/basic/curly.ck

   1 // run each stooge, or run three stooges concurrently
   2 // %> chuck moe larry curly
   3 \r
   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 )
  17 {
  18     // set the current sample/impulse
  19     1.0 => i.next;
  20     // sweep the filter resonant frequency
  21     Std.fabs(Math.sin(v)) * 800.0 => f.pfreq;
  22     // increment v
  23     v + .1 => v;
  24     // advance time
  25     101::ms => now;
  26 }
  27