exile/v1/examples/demo4.ck

   1 // sweep midi keyboards
   2 // some hand - assembled midi instructions here
   3 // -gewang
   4
   5 0xb04444 => int prog;
   6 0x90007f => int msg;
   7 0x80007f => int off;
   8
   9 prog => midiout;
  10 while( msg < 0x907f7f )
  11 {
  12     msg => midiout;
  13     msg + 0x000100 => msg;
  14     off + 0x000100 => off;
  15     40::ms => now;
  16     off => midiout;
  17 }
  18