examples/curly.ck

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