exile/v1/examples/moe.ck

   1 // run each stooge, or run three stooges concurrently
   2 // %> chuck moe larry curly
   3
   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.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     100::ms => now;
  26 }
  27