v2/examples/basic/foo2.ck

   1 // bandlimited ugens (Blit, BlitSaw, BlitSquare)
   2 Blit s => Pan2 p;
   3 p.left => JCRev r1 => dac.left;
   4 p.right => JCRev r2 => dac.right;
   5
   6 // initial settings
   7 .5 => s.gain;
   8 .1 => r1.mix;
   9 .1 => r2.mix;
  10
  11 // an array
  12 [ 0, 2, 4, 7, 9, 11 ] @=> int hi[];
  13
  14 // set the harmonic
  15 4 => s.harmonics;
  16
  17 // spork the pan control
  18 spork ~ dopan();
  19
  20 // infinite time loop
  21 while( true )
  22 {
  23     Std.mtof( 33 + Std.rand2(0,3) * 12 +
  24         hi[Std.rand2(0,hi.cap()-1)] ) => s.freq;
  25     120::ms => now;
  26 }
  27
  28 // pan control
  29 fun void dopan()
  30 {
  31     float t;
  32     while( true )
  33     {
  34         .7 * Math.sin(t) => p.pan;
  35         .005 +=> t;
  36         10::ms => now;
  37     }
  38 }