v2/examples/basic/comb.ck

   1 // a simple comb filter
   2 // Ge Wang (gewang@cs.princeton.edu)
   3
   4 // feedforward
   5 Impulse imp => Gain out => dac;
   6 // feedback
   7 out => Delay delay => out;
   8
   9 // our radius
  10 .99999 => float R;
  11 // our delay order
  12 500 => float L;
  13 // set delay
  14 L::samp => delay.delay;
  15 // set dissipation factor
  16 Math.pow( R, L ) => delay.gain;
  17
  18 // fire impulse
  19 1 => imp.next;
  20
  21 // advance time
  22 (Math.log(.0001) / Math.log(R))::samp => now;