exile/v1/examples/ring.ck

   1 //--------------------------------------------
   2 // simple ring modulation
   3 //
   4 // any ugen has .op:
   5 // ---
   6 // -1 pass through the input
   7 // 0 stop input
   8 // 1 add inputs (default)
   9 // 2 subtract from first input
  10 // 3 multiply inputs
  11 // 4 divide from first input
  12 //--------------------------------------------
  13
  14 // the patch
  15 adc => gain g => JCRev r => dac;
  16 sinosc s => g;
  17
  18 // multiply inputs at g
  19 3 => g.op;
  20
  21 // presets
  22 .2 => r.mix;
  23 400.0 => s.freq;
  24
  25 // time loop
  26 while( true )
  27     1::second => now;