exile/i-robot2.ck

   1 // take me to your leader (talk into the mic)
   2 // gewang, prc
   3
   4 // our patch - feedforward part
   5 impulse i => gain g => DelayL d => dac;
   6 i => gain g2 => dac;
   7 adc => gain g4 => dac;
   8 0.0 => g4.gain;
   9 // feedback
  10 d => gain g3 => d;
  11 // set parameters
  12 15::ms => d.delay;
  13 0.05 => g.gain;
  14 0.025 => g2.gain;
  15 0.95 => g3.gain;
  16
  17 // time loop
  18 while( true )
  19 {
  20     3.0 * adc.last * adc.last => i.next;
  21     1::samp => now;
  22 }