home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / RAVELUTL.ZIP / RAVELMH.ZIP / SCALES.MA < prev    next >
Encoding:
Text File  |  1989-08-03  |  6.4 KB  |  318 lines
  1. # 
  2. # scales.ma
  3. #
  4. # a library of scale forms.
  5. #
  6. # Scales are defined by the following:
  7. # 1. a constant for the name which is used as an array index,
  8. # 2. 3 arrays. The first is used for scale size. The second and
  9. # third provide different ways of looking up a note. 
  10. # Half-tone (chromatic) offsets are used in each case.
  11. #
  12. # Each scale is defined twice; i.e., there
  13. # are two forms of offset lookup tables. 
  14. # The first table has the form of offsets in half-steps 
  15. # from the base scale note; e.g.,
  16. # a major scale consists of 0,2,4,5 for the unison, major
  17. # second and major third.
  18. # The second table has the form of offsets from the last
  19. # scale note; e.g., a major scale consists of 0,2,2.., etc.
  20. #
  21. # These two arrays are referred to as
  22. # "baseScale" and "lastScale". With the first form
  23. # the note is calculated from the base note of the scale,
  24. # e.g.,
  25. # note = C + baseScale[IONIAN][FIFTH]
  26. #
  27. # The lastScale array permits easy access of the next
  28. # scale degree from the previous, e.g.,
  29. # nextnote = lastnote + baseScale[IONIAN][curindex]
  30. #
  31. # Functions:
  32. #    riff printScale(scale) - print the string name of the scale
  33. #
  34.  
  35. export
  36.     scaleSizes,
  37.     baseScale,
  38.     printScale
  39. end
  40.  
  41. @include \mh\scales.mh
  42.  
  43. # octave is not included. Intended for use with
  44. # baseScale array.
  45. #
  46. uchar scaleSizes[NOSCALES] = {
  47. # MAJOR
  48. 7,
  49. # IONIAN
  50. 7,
  51. # DORIAN
  52. 7,
  53. # PHRYGIAN
  54. 8,
  55. # LYDIAN
  56. 7,
  57. # MIXOLYDIAN
  58. 7,
  59. # AEOLIAN
  60. 7,
  61. # LOCRIAN
  62. 7,
  63. # PURE_MINOR 
  64. 7,
  65. # HARMONIC_MINOR 
  66. 7,
  67. # MELODIC_MINOR_UP
  68. 7,
  69. # MELODIC_MINOR_DOWN
  70. 7,
  71. # LOCRIAN_ON_SECOND 
  72. 7,
  73. # LYDIAN_DOMINANT 
  74. 7,
  75. # SUPER_LOCRIAN    
  76. 7,
  77. # DIM    
  78. 4,
  79. # DIMWHOLE
  80. 8,
  81. # DIMHALF    
  82. 8,
  83. # WHOLETONE    
  84. 6,
  85. # CHROMATIC
  86. 11,
  87. # BLUESONE
  88. 5,
  89. # BLUESTWO
  90. 6,
  91. # PENTA        
  92. 5,
  93. # PENTAIONIAN
  94. 5,
  95. # PENTADORIAN
  96. 5,
  97. # PENTAPHRYGIAN
  98. 5,
  99. # PENTALYDIAN
  100. 5,
  101. # PENTAAEOLIAN
  102. 5 
  103. } 
  104.  
  105. # octave is included here but is not
  106. # in scalesize
  107. #
  108. uchar baseScale[NOSCALES][MAXNOTES] =  {
  109. # MAJOR    
  110. 0,2,4,5,7,9,11,12,{-1},0,0,0,0,0,0,
  111. # IONIAN
  112. 0,2,4,5,7,9,11,12,{-1},0,0,0,0,0,0,
  113. # DORIAN
  114. 0,2,3,5,7,9,10,12,{-1},0,0,0,0,0,0,
  115. # PHRYGIAN
  116. 0,1,3,5,7,8,10,12,{-1},0,0,0,0,0,0,
  117. # LYDIAN
  118. 0,2,4,6,7,9,11,12,{-1},0,0,0,0,0,0,
  119. # MIXOLYDIAN
  120. 0,2,4,5,7,9,10,12,{-1},0,0,0,0,0,0,
  121. # AEOLIAN
  122. 0,2,3,5,7,8,10,12,{-1},0,0,0,0,0,0,
  123. # LOCRIAN
  124. 0,1,3,5,6,8,10,12,{-1},0,0,0,0,0,0,
  125. # PURE_MINOR 
  126. 0,2,3,5,7,8,10,12,{-1},0,0,0,0,0,0,
  127. # HARMONIC_MINOR 
  128. 0,2,3,5,7,8,11,12,{-1},0,0,0,0,0,0,
  129. # MELODIC_MINOR_UP 
  130. 0,2,3,5,7,9,11,12,{-1},0,0,0,0,0,0,
  131. # MELODIC_MINOR_DOWN 
  132. 0,2,3,5,7,8,10,12,{-1},0,0,0,0,0,0,
  133. # LOCRIAN_ON_SECOND 
  134. 0,2,3,5,6,8,10,12,{-1},0,0,0,0,0,0,
  135. # LYDIAN_DOMINANT 
  136. 0,2,4,6,7,9,10,12,{-1},0,0,0,0,0,0,
  137. # SUPER_LOCRIAN
  138. 0,1,3,4,6,8,10,12,{-1},0,0,0,0,0,0,
  139. # DIM    
  140. 0,3,6,9,12,{-1},0,0,0,0,0,0,0,0,0,
  141. # DIMWHOLE
  142. 0,2,3,5,6,8,9,11,12,{-1},0,0,0,0,0,
  143. # DIMHALF        
  144. 0,1,3,4,6,7,9,10,12,{-1},0,0,0,0,0,
  145. # WHOLETONE    
  146. 0,2,4,6,8,10,12,{-1},0,0,0,0,0,0,0,
  147. # CHROMATIC
  148. 0,1,2,3,4,5,6,7,8,9,10,11,12,{-1},0,
  149. # BLUESONE
  150. 0,3,5,7,10,12,{-1},0,0,0,0,0,0,0,0,
  151. # BLUESTWO
  152. 0,3,4,5,7,10,12,{-1},0,0,0,0,0,0,0,
  153. # PENTA        
  154. 0,2,4,7,9,12,{-1},0,0,0,0,0,0,0,0,
  155. # PENTAIONIAN
  156. 0,2,4,7,9,12,{-1},0,0,0,0,0,0,0,0,
  157. # PENTADORIAN
  158. 0,2,5,7,10,12,{-1},0,0,0,0,0,0,0,0,
  159. # PENTAPHRYGIAN    
  160. 0,3,5,8,10,12,{-1},0,0,0,0,0,0,0,0,
  161. # PENTALYDIAN
  162. 0,2,5,7,9,12,{-1},0,0,0,0,0,0,0,0,
  163. # PENTAAEOLIAN
  164. 0,3,5,7,10,12,{-1},0,0,0,0,0,0,0,0 
  165. }
  166.  
  167. #
  168. # lastscale - offset from previous note.
  169. # needs a size array.
  170. #
  171. uchar lastscale[NOSCALES][MAXNOTES] =  {
  172. # MAJOR    
  173. 0,2,2,1,2,2,2,1,{-1},0,0,0,0,0,0,
  174. # IONIAN
  175. 0,2,2,1,2,2,2,1,{-1},0,0,0,0,0,0,
  176. # DORIAN
  177. 0,2,1,2,2,2,1,2,{-1},0,0,0,0,0,0,
  178. # PHRYGIAN
  179. 0,1,2,2,2,1,2,2,{-1},0,0,0,0,0,0,
  180. # LYDIAN
  181. 0,2,2,2,1,2,2,1,{-1},0,0,0,0,0,0,
  182. # MIXOLYDIAN
  183. 0,2,2,1,2,2,1,2,{-1},0,0,0,0,0,0,
  184. # AEOLIAN
  185. 0,2,1,2,2,1,2,2,{-1},0,0,0,0,0,0,
  186. # LOCRIAN
  187. 0,1,2,2,1,2,2,2,{-1},0,0,0,0,0,0,
  188. # PURE_MINOR 
  189. 0,2,1,2,2,1,2,2,{-1},0,0,0,0,0,0,
  190. # HARMONIC_MINOR 
  191. 0,2,1,2,2,1,3,1,{-1},0,0,0,0,0,0,
  192. # MELODIC_MINOR_UP
  193. 0,2,1,2,2,2,2,1,{-1},0,0,0,0,0,0,
  194. # MELODIC_MINOR_DOWN
  195. 0,2,1,2,2,1,2,2,{-1},0,0,0,0,0,0,
  196. # LOCRIAN_ON_SECOND 
  197. 0,1,2,2,1,2,2,2,{-1},0,0,0,0,0,0,
  198. # LYDIAN_DOMINANT 
  199. 0,2,2,2,1,2,1,2,{-1},0,0,0,0,0,0,
  200. # SUPER_LOCRIAN    
  201. 0,1,2,1,2,2,2,2,{-1},0,0,0,0,0,0,
  202. # DIM        
  203. 0,3,3,3,3,{-1},0,0,0,0,0,0,0,0,0,
  204. # DIMWHOLE
  205. 0,2,1,2,1,2,1,2,1,{-1},0,0,0,0,0,
  206. # DIMHALF    
  207. 0,2,1,2,1,2,1,2,1,{-1},0,0,0,0,0,
  208. # WHOLETONE
  209. 0,2,2,2,2,2,2,{-1},0,0,0,0,0,0,0,
  210. # CHROMATIC
  211. 0,1,1,1,1,1,1,1,1,1,1,1,1,{-1},0,
  212. # BLUESONE
  213. 0,3,2,2,3,2,{-1},0,0,0,0,0,0,0,0,
  214. # BLUESTWO
  215. 0,3,1,2,2,3,2,{-1},0,0,0,0,0,0,0,
  216. # PENTA    
  217. 0,2,2,3,2,3,{-1},0,0,0,0,0,0,0,0,
  218. # PENTAIONIAN
  219. 0,2,2,3,2,3,{-1},0,0,0,0,0,0,0,0,
  220. # PENTADORIAN
  221. 0,2,3,2,3,2,{-1},0,0,0,0,0,0,0,0,
  222. # PENTAPHRYGIAN    
  223. 0,3,2,3,2,2,{-1},0,0,0,0,0,0,0,0,
  224. # PENTALYDIAN
  225. 0,2,3,2,2,3,{-1},0,0,0,0,0,0,0,0,
  226. # PENTAAEOLIAN    
  227. 0,3,2,2,3,2,{-1},0,0,0,0,0,0,0,0 
  228. }
  229.  
  230. riff printScale(scale)
  231.     switch (scale)
  232.     case MAJOR:
  233.         void printf("major")
  234.     end
  235.     case IONIAN:
  236.         void printf("ionian")
  237.     end
  238.     case DORIAN:
  239.         void printf("dorian")
  240.     end
  241.     case PHRYGIAN:
  242.         void printf("phrygian")
  243.     end
  244.     case LYDIAN:
  245.         void printf("lydian")
  246.     end
  247.     case MIXOLYDIAN:
  248.         void printf("mixolydian")
  249.     end
  250.     case AEOLIAN:
  251.         void printf("aeolian")
  252.     end
  253.     case LOCRIAN:
  254.         void printf("locrian")
  255.     end
  256.     case PURE_MINOR:
  257.         void printf("pure minor")
  258.     end
  259.     case HARMONIC_MINOR:
  260.         void printf("harmonic minor")
  261.     end
  262.     case MELODIC_MINOR_UP:
  263.         void printf("melodic minor up")
  264.     end
  265.     case MELODIC_MINOR_DOWN:
  266.         void printf("melodic minor down")
  267.     end
  268.     case LOCRIAN_ON_SECOND:
  269.         void printf("locrian on second") 
  270.     end
  271.     case LYDIAN_DOMINANT:
  272.         void printf("lydian dominant")
  273.     end
  274.     case SUPER_LOCRIAN:
  275.         void printf("super locrian")
  276.     end
  277.     case DIM:
  278.         void printf("diminished")
  279.     end
  280.     case DIMWHOLE:
  281.         void printf("diminished whole-half") 
  282.     end
  283.     case DIMHALF:
  284.         void printf("diminished half-whole") 
  285.     end
  286.     case WHOLETONE:
  287.         void printf("whole tone")
  288.     end
  289.     case CHROMATIC:
  290.         void printf("chromatic")
  291.     end
  292.     case BLUESONE:
  293.         void printf("blues scale one")
  294.     end
  295.     case BLUESTWO:
  296.         void printf("blues scale two")
  297.     end
  298.     case PENTA:
  299.         void printf("pentatonic major")
  300.     end
  301.     case PENTAIONIAN:
  302.         void printf("pentatonic major")
  303.     end
  304.     case PENTADORIAN:
  305.         void printf("pentatonic dorian")
  306.     end
  307.     case PENTAPHRYGIAN:
  308.         void printf("pentatonic phrygian")
  309.     end
  310.     case PENTALYDIAN:
  311.         void printf("pentatonic lydian")
  312.     end
  313.     case PENTAAEOLIAN:
  314.         void printf("pentatonic aeolian")
  315.     end
  316.     end
  317. end
  318.