home *** CD-ROM | disk | FTP | other *** search
/ Multimédia la Compil' 2 / Sybex_Multimedia_La_Compil_2.iso / cooltool / midconst.bas < prev    next >
BASIC Source File  |  1995-04-20  |  4KB  |  148 lines
  1. Option Explicit
  2.  
  3. '
  4. ' State Constants
  5. '
  6. Global Const MIDISTATE_CLOSED = 0
  7. Global Const MIDISTATE_OPEN = 1
  8. Global Const MIDISTATE_STARTED = 2
  9. Global Const MIDISTATE_STOPPED = 3
  10. Global Const MIDISTATE_PAUSED = 4
  11. '
  12. ' MidiOut actions
  13. '
  14. Global Const MIDIOUT_NONE = 0
  15. Global Const MIDIOUT_OPEN = 1
  16. Global Const MIDIOUT_CLOSE = 2
  17. Global Const MIDIOUT_RESET = 3
  18. Global Const MIDIOUT_START = 4
  19. Global Const MIDIOUT_STOP = 5
  20. Global Const MIDIOUT_QUEUE = 6
  21. Global Const MIDIOUT_SEND = 7
  22. Global Const MIDIOUT_TIMER = 8
  23. Global Const MIDIOUT_PAUSE = 9
  24. '
  25. ' MidiIn actions
  26. '
  27. Global Const MIDIIN_NONE = 0
  28. Global Const MIDIIN_OPEN = 1
  29. Global Const MIDIIN_CLOSE = 2
  30. Global Const MIDIIN_RESET = 3
  31. Global Const MIDIIN_START = 4
  32. Global Const MIDIIN_STOP = 5
  33. Global Const MIDIIN_REMOVE = 6
  34. '
  35. ' MidiOut device types
  36. '
  37. Global Const MIDIOUT_PORT = 0
  38. Global Const MIDIOUT_SQUARESYNTH = 1
  39. Global Const MIDIOUT_FMSYNTH = 2
  40. Global Const MIDIOUT_MIDIMAPPER = 3
  41. '
  42. ' MidiFile actions
  43. '
  44. Global Const MIDIFILE_NONE = 0
  45. Global Const MIDIFILE_OPEN = 1
  46. Global Const MIDIFILE_CLOSE = 2
  47. Global Const MIDIFILE_CREATE = 3
  48. Global Const MIDIFILE_SAVE = 4
  49. Global Const MIDIFILE_CLEAR = 5
  50. Global Const MIDIFILE_INSERT_MESSAGE = 6
  51. Global Const MIDIFILE_MODIFY_MESSAGE = 7
  52. Global Const MIDIFILE_DELETE_MESSAGE = 8
  53. Global Const MIDIFILE_INSERT_TRACK = 9
  54. Global Const MIDIFILE_DELETE_TRACK = 10
  55. Global Const MIDIFILE_SAVE_AS = 11
  56.  
  57. '
  58. ' Standard MIDI File Meta Event Constants
  59. '
  60. Global Const META = &HFF
  61. Global Const META_SEQUENCE_NUMBER = &H0
  62. Global Const META_TEXT = &H1
  63. Global Const META_COPYRIGHT = &H2
  64. Global Const META_NAME = &H3
  65. Global Const META_INST_NAME = &H4
  66. Global Const META_LYRIC = &H5
  67. Global Const META_MARKER = &H6
  68. Global Const META_CUE_POINT = &H7
  69. Global Const META_CHAN_PREFIX = &H20
  70. Global Const META_EOT = &H2F
  71. Global Const META_TEMPO = &H51
  72. Global Const META_SMPTE_OFFSET = &H54
  73. Global Const META_TIME_SIG = &H58
  74. Global Const META_KEY_SIG = &H59
  75. Global Const META_SEQ_SPECIFIC = &H7F
  76.  
  77.  
  78. ' MIDI System Command Filter
  79. Global Const FILTER_MTC = &HF1          'filter MTC
  80. Global Const FILTER_SNGPTR = &HF2       'filter Song Position Pointer F2
  81. Global Const FILTER_SNGSEL = &HF3       'filter Song Select F3
  82. Global Const FILTER_F4 = &HF4           'filter undefined F4
  83. Global Const FILTER_F5 = &HF5           'filter undefined F5
  84. Global Const FILTER_TUNE = &HF6         'filter Tune Request F6
  85. Global Const FILTER_CLOCK = &HF8        'filter MIDI Clock F8
  86. Global Const FILTER_F9 = &HF9           'filter undefined F9
  87. Global Const FILTER_START = &HFA        'filter MIDI Start FA
  88. Global Const FILTER_CONT = &HFB         'filter MIDI Continue FB
  89. Global Const FILTER_STOP = &HFC         'filter MIDI Stop FC
  90. Global Const FILTER_FD = &HFD           'filter undefined FD
  91. Global Const FILTER_ACTIVE_SENSE = &HFE 'filter Active Sensing FE
  92. Global Const FILTER_RESET = &HFF        'filter System Reset FF
  93.  
  94. '
  95. ' MIDI status messages
  96. '
  97. Global Const NOTE_OFF = &H80
  98. Global Const NOTE_ON = &H90
  99. Global Const POLY_KEY_PRESS = &HA0
  100. Global Const CONTROLLER_CHANGE = &HB0
  101. Global Const PROGRAM_CHANGE = &HC0
  102. Global Const CHANNEL_PRESSURE = &HD0
  103. Global Const PITCH_BEND = &HE0
  104. Global Const SYSEX = &HF0
  105. Global Const MTC_QFRAME = &HF1
  106. Global Const EOX = &HF7
  107. Global Const MIDI_CLOCK = &HF8
  108. Global Const MIDI_START = &HFA
  109. Global Const MIDI_CONTINUE = &HFB
  110. Global Const MIDI_STOP = &HFC
  111.  
  112. '
  113. ' CONTROLLER_CHANGE, MIDI Controller Numbers Constants
  114. '
  115. Global Const MOD_WHEEL = 1
  116. Global Const BREATH_CONTROLLER = 2
  117. Global Const FOOT_CONTROLLER = 4
  118. Global Const PORTAMENTO_TIME = 5
  119. Global Const MAIN_VOLUME = 7
  120. Global Const BALANCE = 8
  121. Global Const PAN = 10
  122. Global Const EXPRESS_CONTROLLER = 11
  123. Global Const DAMPER_PEDAL = 64
  124. Global Const PORTAMENTO = 65
  125. Global Const SOSTENUTO = 66
  126. Global Const SOFT_PEDAL = 67
  127. Global Const HOLD_2 = 69
  128. Global Const EXTERNAL_FX_DEPTH = 91
  129. Global Const TREMELO_DEPTH = 92
  130. Global Const CHORUS_DEPTH = 93
  131. Global Const DETUNE_DEPTH = 94
  132. Global Const PHASER_DEPTH = 95
  133. Global Const DATA_INCREMENT = 96
  134. Global Const DATA_DECREMENT = 97
  135.  
  136. '
  137. ' Constants to simplify MIDI
  138. '
  139. Global Const TOTAL_MIDI_CHANNELS = 16
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.