v2/test/48.ck

   1 // 48.ck : midi read (fail-correct)
   2
   3 MidiOut mout;
   4 MidiMsg mg;
   5 MidiMsgIn mrw;
   6
   7 // open MIDI output - see 'chuck --probe'
   8 if( !mout.open( 0 ) )
   9     me.exit();
  10
  11 Mandolin m => JCRev r => dac;
  12 .2 => r.mix;
  13
  14 // open file for read
  15 mrw.open( "z.txt" );
  16 //"foo.wav" => s.read;
  17
  18 // time scale
  19 0.5 => float scale;
  20
  21 // get current time
  22 time t;
  23 now => t;
  24
  25 int count;
  26
  27 // while there is more to read
  28 while( mrw.read( mg ) != 0 )
  29 {
  30     // advance time
  31     scale * (mg.when - t) => now;
  32     mg.when => t;
  33
  34     mout.send( mg );
  35     std.rand2f( .8, .9 ) => m.pluckPos;
  36     std.mtof( mg.data2 ) => m.freq;
  37     mg.data3 / 128.0 => m.pluck;
  38
  39     <<< "when:", mg.when, mg.data1, mg.data2, mg.data3 >>>;
  40     // <<<count + 1 => count>>>;
  41 }
  42
  43 mrw.close();
  44
  45 //<<<mrw.read( mg, t )>>>;