v2/examples/basic/curly++.ck

   1 // run each stooge, or run three stooges concurrently
   2 // %> chuck moe++ larry++ curly++
   3
   4 // impulse to filter to dac
   5 SndBuf i => NRev r => dac;
   6
   7 // load glottal ooo
   8 "special:glot_ooo" => i.read;
   9 // play
  10 //5.0 => i.rate;
  11 .1 => r.mix;
  12
  13 0.0 => float v;
  14
  15 // infinite time-loop
  16 while( true )
  17 {
  18     // set the current sample/impulse
  19     0 => i.pos;
  20     // control gain
  21     Math.cos(v) => i.gain;
  22     // increment v
  23     .05 +=> v;
  24     // advance time
  25     81.0::ms => now;
  26 }
  27
  28
  29
  30