v2/test/45.ck

   1 // 45.ck : midi event and writing to file (fail-correct)
   2 sinosc s => dac;
   3
   4 MidiIn min;
   5 MidiMsg msg;
   6 MidiRW mrw;
   7
   8 // open MIDI device - see 'chuck --probe'
   9 if( !min.open( 0 ) )
  10     me.exit();
  11
  12 // open
  13 mrw.open( "y.txt" );
  14
  15 // infinite time loop
  16 while( true )
  17 {
  18     // wait on event
  19     min => now;
  20
  21     // loop through msg
  22     while( min.recv( msg ) )
  23     {
  24         if( msg.data1 == 144 ) // note on
  25         {
  26             <<<"now: ", now, "msg: ", msg.data1, msg.data2, msg.data3>>>;
  27             std.mtof(msg.data2) => s.freq;
  28             msg.data3 / 128.0 => s.gain;
  29             mrw.write( msg, now );
  30         }
  31     }
  32 }
  33