//---------------------------------- (fail-correct)// name: polyfony.ck// desc: polyfonic midi//// by: Ananya Misra and Ge Wang// send all complaints to prc@cs.princeton.edu//-------------------------------------------- MidiMsg msg; class NoteEvent extends Event{    int note;    int velocity;} // the eventNoteEvent on;// array of ugen's handling each noteEvent us[128]; gain g => dac;.1 => g.gain; fun void handler(){    // don't connect to dac until we need it    Mandolin m;    PRCRev r => dac;    .2 => r.mix;    Event off;    int note;     while( true )    {        on => now;        on.note => note;        // dynamically repatch        m => r;        std.mtof( note ) => m.freq;        std.rand2f( .6, .8 ) => m.pluckPos;        on.velocity / 128.0 => m.pluck;        off @=> us[note];         off => now;        null @=> us[note];        m =< r;    }} // spork handlersfor( 0 => int i; i < 10; i++ ) spork ~ handler(); MidiMsgIn mrw; mrw.open( "zz.txt" ); 1 => float scale; time t;now => t; // get the midimsgwhile( mrw.read( msg ) != 0 ){    scale * (msg.when - t) => now;    msg.when => t;     if( msg.data1 != 144 )  // !noteon        continue;     if( msg.data3 > 0 )    {        // store midi note number        msg.data2 => on.note;        // store velocity        msg.data3 => on.velocity;        // signal the event        on.signal();        // yield without advancing time to allow shred to run        me.yield();    }    else    {        if( us[msg.data2] != null ) us[msg.data2].signal();    }} mrw.close();