exile/v1/examples/delayp.ck

   1 //delayp.ck  sound check for delayph class
   2 // delay p - delay with variable write head ( vs read )
   3 // - philipd
   4
   5 Wurley wur => delayp dp => dac;
   6 Wurley w2 => dac;
   7 440.0 => wur.freq;
   8 wur => gain g => dac;
   9 0.2 => g.gain;
  10 impulse i => dac;
  11
  12 fun void ticksec ( int times ) {
  13     while ( times > 0 ) {
  14         0.3 => i.next;
  15         times - 1 => times;
  16         1::second => now;
  17     }
  18 }
  19 "listen for ticks..." => stdout;
  20 10::second => dp.max;
  21 0.05::second => dp.window;
  22
  23 6::second=>dp.delay;
  24 0.05::second => now;
  25 0.5 => wur.noteOn;
  26 ticksec( 2 );
  27 1::second => dp.delay;
  28 ticksec( 1 );
  29 880.0 => wur.freq;
  30 0.5 => wur.noteOn;
  31
  32 ticksec ( 10 ) ;
  33
  34 "end" => stdout;