exile/v1/examples/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 => JCRev 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 0.0 => float v;
  13
  14 // infinite time-loop
  15 while( true )
  16 {
  17     // set the current sample/impulse
  18     0 => i.pos;
  19     // randomize gain
  20     math.cos(v) * std.rand2f( 1.5, 2.0 ) => r.gain;
  21     v + .05 => v;
  22     // advance time
  23     81.0::ms => now;
  24 }