exile/v1/examples/otf_07.ck

   1 //----------------------------|
   2 // on-the-fly synchronization
   3 // adapted from Perry's ChucK Drummin' + Ge's sine poops
   4 //
   5 // authors: Perry Cook (prc@cs.princeton.edu)
   6 //          Ge Wang (gewang@cs.princeton.edu)
   7 // --------------------|
   8 // add one by one into VM (in pretty much any order):
   9 //
  10 // terminal-1%> chuck --loop
  11 // ---
  12 // terminal-2%> chuck + otf_01.ck
  13 // (anytime later)
  14 // terminal-2%> chuck + otf_02.ck
  15 // (etc...)
  16 //--------------------------------------|
  17
  18 // this synchronizes to period
  19 .5::second => dur T;
  20 T - (now % T) => now;
  21
  22 // construct the patch
  23 sndbuf buf => gain g => JCRev r => dac;
  24 "data/snare.wav" => buf.read;
  25 .5 => g.gain;
  26 .05 => r.mix;
  27
  28 // where we actually want to start
  29 25 => int where;
  30
  31 // time loop
  32 while( true )
  33 {
  34     std.rand2f(.8,.9) => buf.gain;
  35
  36     if( std.randf() > .5 )
  37     {
  38         0 => int i;
  39         while( i < 8 )
  40         {
  41             (float)i / 8.0 => buf.gain;
  42             where => buf.pos;
  43             (1.0/8.0)::T => now;
  44             i++;
  45         }
  46
  47         while( i > 0 )
  48         {
  49             (float)i / 8.0 => buf.gain;
  50             where => buf.pos;
  51             (1.0/8.0)::T => now;
  52             i--;
  53         }
  54     }
  55     else
  56     {
  57             .9 => buf.gain;
  58             where => buf.pos;
  59             .25::T => now;
  60             .3 => buf.gain;
  61             where => buf.pos;
  62             .25::T => now;
  63             .3 => buf.gain;
  64             where => buf.pos;
  65             .25::T => now;
  66
  67             .9 => buf.gain;
  68             where => buf.pos;
  69             .25::T => now;
  70             .3 => buf.gain;
  71             where => buf.pos;
  72             .25::T => now;
  73             .3 => buf.gain;
  74             where => buf.pos;
  75             .25::T => now;
  76
  77             .9 => buf.gain;
  78             where => buf.pos;
  79             .25::T => now;
  80             .3 => buf.gain;
  81             where => buf.pos;
  82             .25::T => now;
  83     }
  84 }