exile/v1/examples/unchuck.ck

   1 // noise generator, biquad filter, dac (audio output)
   2 noise n => biquad f => dac;
   3 // set biquad pole radius
   4 .99 => f.prad;
   5 // set biquad gain
   6 .025 => f.gain;
   7 // set equal zeros
   8 1 => f.eqzs;
   9 // our float
  10 0.0 => float t;
  11
  12 3::second + now => time later;
  13 // time-loop
  14 while( now < later )
  15 {
  16     // sweep the filter resonant frequency
  17     100.0 + std.abs(math.sin(t)) * 1000.0 => f.pfreq;
  18     t + .05 => t;
  19     // advance time
  20     100::ms => now;
  21 }
  22
  23 // unlink the ugen f from dac
  24 f =< dac;
  25
  26 // let more time pass
  27 3::second => now;
  28
  29 // relink
  30 f => dac;
  31
  32 // time-loop
  33 3::second + now => later;
  34 while( now < later )
  35 {
  36     // resume sweep
  37     100.0 + std.abs(math.sin(t)) * 1000.0 => f.pfreq;
  38     t + .05 => t;
  39     // advance time
  40     100::ms => now;
  41 }