home *** CD-ROM | disk | FTP | other *** search
/ Programming Sound Cards / Programming Sound Cards.iso / sound_09 / mstruct.h < prev    next >
Encoding:
Text File  |  1995-01-01  |  3.0 KB  |  94 lines
  1. ' *******************************************************************
  2. ' ** Name:    MSTRUCT.H                                            **
  3. ' ** Usage:   Include File to AdlPLAY.BAS                          **
  4. ' ** Author:  Joseph Scally                                        **
  5. ' ** Date  :  June 89                                              **
  6. ' *******************************************************************
  7.  
  8. 'This File contains Data structures to read an .ROL files as well
  9. 'as some other structures used in the program and declares variables
  10. 'of the types defined .
  11.  
  12.  
  13. ' ***************** Actual Header of a ROL file  ********************
  14. TYPE MusicHeader
  15.               MajorVersion        AS INTEGER         'File  Signature
  16.               MinorVersion        AS INTEGER         '
  17.               F1                  AS STRING * 40     'Filler
  18.               TicksPerBeat        AS INTEGER         'Ticks
  19.               BeatsPerMeasure     AS INTEGER         'Beats
  20.               EditXAxis           AS INTEGER         'Used By Composer
  21.               EditYAxis           AS INTEGER         'Used by composer
  22.               F2                  AS STRING * 1      'Filler
  23.               Mode                AS STRING * 1      'Melodic 0 / Percussive 1
  24.               F3                  AS STRING * 90     'Filler
  25.               F4                  AS STRING * 38     'Filler
  26.               F5                  AS STRING * 15     'Filler
  27.               Tempo               AS SINGLE          'Floating Point
  28.               TEvents             AS INTEGER         'Time in Ticks of Tempo Event
  29. END TYPE
  30. '  **********************************************************************************
  31.  
  32.  
  33. TYPE Vheader
  34.               Vfiller             AS STRING * 15
  35.               Vduration           AS INTEGER
  36. END TYPE
  37.  
  38.  
  39. TYPE Fnote
  40.               Note                AS INTEGER
  41.               Duration            AS INTEGER
  42. END TYPE
  43. TYPE Afill
  44.               AfterFiller         AS STRING * 15
  45. END TYPE
  46.  
  47. TYPE Evnt
  48.               NumEvents           AS INTEGER
  49. END TYPE
  50.  
  51. TYPE InsEvent
  52.               TimeInTicks         AS INTEGER
  53.               InstrumentName      AS STRING * 9
  54.               Junk                AS STRING * 1
  55.               Ijunk               AS INTEGER
  56. END TYPE
  57.  
  58. TYPE VolEvent
  59.  
  60.               TimeEvent           AS INTEGER
  61.               VolMultiplier       AS SINGLE
  62. END TYPE
  63. TYPE Tevent
  64.               TimeEvent           AS INTEGER
  65.               Tmultiplier         AS SINGLE
  66. END TYPE
  67.  
  68. TYPE RegType
  69.      ax    AS INTEGER
  70.      bx    AS INTEGER
  71.      cx    AS INTEGER
  72.      dx    AS INTEGER
  73.      bp    AS INTEGER
  74.      si    AS INTEGER
  75.      di    AS INTEGER
  76.      flags AS INTEGER
  77. END TYPE
  78.  
  79.  
  80. DIM Mh AS MusicHeader
  81. DIM VoiceHeader AS Vheader
  82. DIM Pnote AS Fnote
  83. DIM Af AS Afill
  84. DIM NuminstruEvents AS Evnt
  85. DIM NumVolEvents AS Evnt
  86. DIM NumPitchEvents AS Evnt
  87. DIM InstrumentEvent AS InsEvent
  88. DIM VolumeEvent AS VolEvent
  89. DIM PitchEvent  AS VolEvent
  90. DIM TempoEvent AS Tevent
  91. DIM SHARED InRegs AS RegType
  92. DIM SHARED OutRegs AS RegType
  93.  
  94.