home *** CD-ROM | disk | FTP | other *** search
/ Sound, Music & MIDI Collection 2 / SMMVOL2.bin / MIDI_PAT / MTOOLS.ZIP / PLAYRDEV.EXE / MIDI.INC < prev    next >
Encoding:
Text File  |  1992-11-07  |  1.2 KB  |  40 lines
  1. type
  2.  
  3.   messages = (noteoff, noteon, polyat, ctrlchange, progchange, chanat,
  4.                 pitchwheel,
  5.               sysex, quarter, songpos, songsel, tune, eox, undefsc,
  6.               clock, startc, continue, stopc, actsens, mreset, undefrt,
  7.               sxfrag, none);
  8.  
  9.   messageset = set of noteoff..none;
  10.  
  11.   midifcntype = function: integer;
  12.  
  13. const
  14.  
  15.   channelset:  messageset = [noteoff..pitchwheel];
  16.   syscomset:   messageset = [sysex..undefsc];
  17.   realtimeset: messageset = [clock..undefrt];
  18.  
  19.   msglen:  array [messages] of integer =
  20.              (3, 3, 3, 3, 2, 2, 3,
  21.               2, 2, 3, 2, 1, 1, 0,
  22.               1, 1, 1, 1, 1, 1, 0,
  23.               0, 0);
  24.  
  25.   chmsgs:  array [$8..$e] of messages =
  26.              (noteoff, noteon, polyat, ctrlchange, progchange, chanat,
  27.               pitchwheel);
  28.  
  29.   sysmsgs: array [0..15] of messages =
  30.              (sysex, quarter, songpos, songsel, undefsc, undefsc,
  31.              tune, eox, clock, undefrt, startc, continue, stopc, undefrt,
  32.              actsens, mreset);
  33.  
  34.   endex = $f7;
  35.  
  36.   msgvalues: array [messages] of byte =
  37.                ($80, $90, $a0, $b0, $c0, $d0, $e0,
  38.                 $f0, $f1, $f2, $f3, $f6, $f7, $f4, $f8,
  39.                 $fa, $fb, $fc, $fe, $ff, $f9, $00, $00);
  40.