v2/test/larry2.ck

   1
   2 // impulse to filter to dac
   3 impulse i => biquad f => pan2 p => dac;
   4 // set the filter's pole radius
   5 .99 => f.prad;
   6 // set equal gain zeros
   7 1 => f.eqzs;
   8 // set filter gain
   9 .5 => f.gain;
  10
  11 // infinite time-loop
  12 while( true )
  13 {
  14     // set the current sample/impulse
  15     1.0 => i.next;
  16     // set filter resonant frequency
  17     std.rand2f( 500, 5000 ) => f.pfreq;
  18     // pan
  19     std.rand2f( -1, 1 ) => p.pan;
  20     // advance time
  21     101::ms => now;
  22 }
  23