2.3 Relaxatie-oscillator

switch(evtknd)
{
case MIDIEVNT: //(in running status vrl is initialized with cmdsize)
{
if (!vrl) // if 1st byte is midi cmd, init. variables cmdsize,mcmd
{
cmdsize=2; // most midi channel commands have 2 data bytes
// in midi-file only sys excl and common are supported
// ; no sys. realtime!
mch=c & 0x0f; // get midi channel
mcmd=c >> 4; // filter out midi channel, shift 4 places to the right
switch( mcmd ) // test for commands with only 1 byte data
{
case AFTER_TOUCH: cmdsize=1; break;
case PRG_CHNG: cmdsize=1; break;
} // endswitch (c)
vrl=cmdsize; // initialize vrl
} // end if (!vrl)
else // proces following byte(s) after midi command byte
{
if(cmdsize==1)data1=c; // need only this byte with command mcmd
if(cmdsize==2)
{
if (vrl==2) data1=c;
else data2=c;
}
vrl--;
if (!vrl) dtm=TRUE; // ready with event, find delta time
} // end else if(!vrl)
break; // end case MIDIEVNT
}
case SYSEXEVNT:
break;
case MTAEVNT:
{
switch (meta)
{
case META_FF:
{
meta++; // ignore this byte ff, next byte will be type
break;
}
case META_TP:
{
(char)metaevnt=c;
if ( metaevnt