2.3 Relaxatie-oscillator

}
{
if (mvrl) mvrl--;
switch (metaevnt)
{
case SQTRNM:
{
putc((char)c,o); // write text meta evnt
break;
}
}
if (!mvrl) // start again with finding delta-time before event
{
dtm=TRUE;
vrl=0;
evtdsp=FALSE;
switch (metaevnt) // finish of with CR/LF etc.
{
case SQTRNM:
putc(10,o); // finish off with CR/LF
ascnum.Format(“%d”,mres);
fputs(ascnum,o);
putc(10,o); // finish off with CR/LF
break;
}
} // end switch (metaevnt)
break; // end case META_DATA
}
} // end switch(meta)
break; // end case MTAEVNT
}
} // end switch evntknd
if(dtm && (evtknd==MIDIEVNT)) // show package of data; only be checked if !dtm
{
switch (cmdsize) // cmdsize 0 is not specified in midi files
{
case 1: // command with 1 byte data: mcmd, data1
{
sdtm+=cumdtm;
cumdtm=sdtm;
sdtm=250*sdtm/mres; // value range: [0,10000>
ascnum.Format(“%d”,sdtm);
fputs(ascnum,o);
putc(‘,’,o); // put division marker
ascnum.Format(“%d”,data1);
fputs(ascnum,o);
putc(10,o); // finish off with CR/LF
break;
}
case 2: // command with 2 bytes data
{
mch=mch;
data2=data2;
break;
}
} // end switch (cmdsize)
} // end if (dtm && ....)
} // end else (dtm)
if (!chunkl)
{
stri.Format(“finish with track %d”,track);
SaveMsg(stri);
i=0;
vrl=0;
cumdtm=0;
track++;
dtm=TRUE;
fclose(o); // ready with file
what2do=THDR;
}
break; // end case TTAIL
73