home *** CD-ROM | disk | FTP | other *** search
/ Programming Sound Cards / Programming Sound Cards.iso / sound_52 / chords.ma < prev    next >
Encoding:
Text File  |  1995-01-01  |  7.8 KB  |  457 lines
  1. #
  2. # chords.ma
  3. # 
  4. # Library for chords. 
  5. # This module implements a chord package.
  6. # The chords per se are jazz oriented.
  7. #
  8. # The following entities are defined:
  9. #
  10. # 1. a set of constants to be used as array indices.
  11. # The first character is capitalized. This permits
  12. # them to be distinquished from scales which are uppercase.
  13. # 2. an array of chord sizes.
  14. #     uchar chordSizes[NOCHORDS]
  15. # 3. an array of chords with offsets defining the chord.
  16. #       uchar chordNotes[NOCHORDS][MAXCHORD]
  17. # Each chord is terminated by -1.
  18. #
  19. # 4. Several useful functions: 
  20. #    riff wprintChord(whandle, root, index) - print the string name of the chord
  21. #    riff doChord(base, vector v, size, time, velocity)
  22. #        - play the chord
  23. #    riff testChordArrays() - simple test of arrays
  24. #
  25.  
  26.  
  27. export
  28.     chordSizes,
  29.     chordNotes,
  30.     wprintChord,
  31.     doChord
  32. end
  33.  
  34. @include \mh\chords.mh
  35.  
  36. uchar chordSizes[NOCHORDS]={
  37. # major chords
  38. # Major 
  39. 3,
  40. # Major6
  41. 4,
  42. # Major7
  43. 4,
  44. # Major79
  45. 5,
  46. # Major9
  47. 4,
  48. # Major69
  49. 5,
  50. # Major7b5
  51. 4, 
  52. # Major69b5
  53. 5,
  54. # Major9b5
  55. 4,
  56. # Major911
  57. 5,
  58. # Major7911
  59. 6,
  60. # 
  61. # # minor chords
  62. # Minor 
  63. 3,
  64. # Minor6
  65. 4,
  66. # Minor7
  67. 4,
  68. # Minor79
  69. 5,
  70. # Minor11
  71. 4,
  72. # MinorMaj7
  73. 4,
  74. # Minor7b5
  75. 4,
  76. # Minor711
  77. 5,
  78.   
  79. # # dominant chords, augmented on 7,9,11,13
  80. # Dom7 
  81. 4,
  82. # Dom7b5
  83. 4,
  84. # Dom79 
  85. 5,
  86. # Dom711
  87. 5,
  88. # Dom7913
  89. 6,
  90. # Dom713
  91. 5,
  92. # Dom7b59
  93. 6,
  94. # Dom7b9#11
  95. 6,
  96. # Dom7#5
  97. 4,
  98. # Dom7#9
  99. 5,
  100. # Dom7b9
  101. 5,
  102. # Dom7#5b9
  103. 5,
  104. # 
  105. # # misc
  106. # 
  107. # Augmented
  108. 3,
  109. # Dim7    
  110. 4,
  111. # Fifths2
  112. 2,
  113. # Fifths3
  114. 3,
  115. # Fifths4
  116. 4,
  117. # Fifths5
  118. 5,
  119. # Fifths6
  120. 6,
  121. # Fourths2
  122. 2,
  123. # Fourths3
  124. 3,
  125. # Fourths4
  126. 4,
  127. # Fourths5
  128. 5,
  129. # Forths6
  130. 6,
  131. # Octaves2    
  132. 2,
  133. # Octaves3
  134. 3,
  135. # Octaves4
  136. 4,
  137. # Octaves5
  138. 5,
  139. # Octaves6
  140. 6, 
  141. # Minor47
  142. 4
  143. }
  144.   
  145. # chordNotes - this table defines the notes in a chord.
  146. # chordtype can be mapped to chord notes.
  147. #
  148. # Each row gives:
  149. # no of notes in chord, followed by offsets for chord.
  150. # MAXCHORD defines the max. number of notes in a chord.
  151. #
  152. uchar chordNotes[NOCHORDS][MAXCHORD]={
  153. # major chords
  154.  
  155. # Major
  156. 0,4,7,                {-1},0,0,0,
  157. # Major6
  158. 0,4,7,9,            {-1},0,0,
  159. # Major7
  160. 0,4,7,11,            {-1},0,0,
  161. # Major79
  162. 0,4,7,11,14,            {-1},0,
  163. # Major9
  164. 0,4,7,14,            {-1},0,0,
  165. # Major69
  166. 0,4,7,9,14,            {-1},0,
  167. # Major7b5
  168. 0,4,6,11,            {-1},0,0,
  169. # Major9b5
  170. 0,4,6,14,            {-1},0,0,
  171. # Major69b5
  172. 0,4,6,7,14,            {-1},0,
  173. # Major911
  174. 0,4,7,14,17,            {-1},0,
  175. # Major7911
  176. 0,4,7,11,14,17,            {-1},
  177.  
  178. # minor chords
  179. # Minor 
  180. 0,3,7,                {-1},0,0,0,
  181. # Minor6
  182. 0,3,7,9,            {-1},0,0,
  183. # Minor7
  184. 0,3,7,10,            {-1},0,0,
  185. # Minor79
  186. 0,3,7,10,14,            {-1},0,
  187. # Minor11
  188. 0,3,7,17,             {-1},0,0,
  189. # MinorMaj7
  190. 0,3,7,11,            {-1},0,0,
  191. # Minor7b5
  192. 0,3,6,10,            {-1},0,0, 
  193. # Minor711
  194. 0,3,7,10,17,             {-1},0,
  195.  
  196. # dominant chords, augmented on 7,9,11,13
  197. # Dom7   
  198. 0,4,7,10,            {-1},0,0,
  199. # Dom7b5
  200. 0,4,6,10,            {-1},0,0,
  201. # Dom79
  202. 0,4,7,10,14,            {-1},0,
  203. # Dom711
  204. 0,4,7,10,17,            {-1},0,
  205. # Dom7913
  206. 0,4,7,10,14,21,            {-1},
  207. # Dom713
  208. 0,4,7,10,21,            {-1},0,
  209. # Dom7b59
  210. 0,4,6,10,13,            {-1},0,
  211. # Dom7b9#11
  212. 0,4,7,10,13,18,            {-1},
  213. # Dom7#5
  214. 0,4,8,10,            {-1},0,0,
  215. # Dom7#9
  216. 0,4,7,10,15,            {-1},0,
  217. # Dom7b9
  218. 0,4,7,10,13,            {-1},0,
  219. # Dom7#5b9
  220. 0,4,8,10,13,            {-1},0,
  221.  
  222. # misc
  223.  
  224. # Augmented
  225. 0,4,8,                {-1},0,0,0,
  226. # Dim7    
  227. 0,3,6,9,            {-1},0,0,
  228. # Fifths2
  229. 0,7,                {-1},0,0,0,0,
  230. # Fifths3
  231. 0,7,14,                {-1},0,0,0,
  232. # Fifths4
  233. 0,7,14,21,            {-1},0,0,
  234. # Fifths5
  235. 0,7,14,21,28,            {-1},0,
  236. # Fifths6
  237. 0,7,14,21,28,30,        {-1},
  238. # Fourths2
  239. 0,5,                {-1},0,0,0,0,
  240. # Fourths3
  241. 0,5,10,                {-1},0,0,0,
  242. # Fourths4
  243. 0,5,10,15,            {-1},0,0,
  244. # Fourths5
  245. 0,5,10,15,20,            {-1},0,
  246. # Fourths6, scriabin's mystic chord
  247. 0,5,10,15,20,25,        {-1},
  248. # Octaves2
  249. 0,12,                {-1},0,0,0,0,
  250. # Octaves3
  251. 0,12,24,            {-1},0,0,0,
  252. # Octaves4
  253. 0,12,24,36,            {-1},0,0,
  254. # Octaves5
  255. 0,12,24,36,48,            {-1},0,
  256. # Octaves6
  257. 0,12,24,36,48,60,        {-1}, 
  258. #
  259. # misc. chords
  260. #
  261. # Minor47, 4th instead of 3rd
  262. 0,4,7,10,            {-1},0,0 
  263. }
  264.  
  265. #
  266. # given the index, print the name of the chord
  267. #
  268. riff wprintChord(wd, root, index)
  269.      switch(index)  
  270.      case Major:
  271.          void wprintf(wd, "%n Major", root)
  272.      end
  273.      case Major6:
  274.          void wprintf(wd,"%n Major6", root)
  275.      end
  276.      case Major7:
  277.          void wprintf(wd,"%n Major7", root)
  278.      end
  279.      case Major79:
  280.          void wprintf(wd,"%n Major79", root)
  281.      end
  282.      case Major9:
  283.          void wprintf(wd,"%n Major9", root)
  284.      end
  285.      case Major69:
  286.          void wprintf(wd,"%n Major69", root)
  287.      end
  288.      case Major7b5:
  289.          void wprintf(wd,"%n Major7b5", root)
  290.      end
  291.      case Major69b5:
  292.          void wprintf(wd,"%n Major69b5", root)
  293.      end
  294.      case Major9b5:
  295.          void wprintf(wd,"%n Major9b5", root)
  296.      end
  297.      case Major911:
  298.          void wprintf(wd,"%n Major911", root)
  299.      end
  300.      case Major7911:
  301.          void wprintf(wd,"%n Major7911", root)
  302.      end
  303.      case Minor:
  304.          void wprintf(wd,"%n Minor", root)
  305.      end
  306.      case Minor6:
  307.          void wprintf(wd,"%n Minor6", root)
  308.      end
  309.      case Minor7:
  310.          void wprintf(wd,"%n Minor7", root)
  311.      end
  312.      case Minor79:
  313.          void wprintf(wd,"%n Minor79", root)
  314.      end
  315.      case Minor11:
  316.          void wprintf(wd,"%n Minor11", root)
  317.      end
  318.      case MinorMaj7:
  319.          void wprintf(wd,"%n MinorMaj7", root)
  320.      end
  321.      case Minor7b5:
  322.          void wprintf(wd,"%n Minor7b5", root)
  323.      end
  324.      case Minor711:
  325.          void wprintf(wd,"%n Minor711", root)
  326.      end
  327.      case Minor11:
  328.          void wprintf(wd,"%n Minor11", root)
  329.      end
  330.      case Dom7:
  331.          void wprintf(wd,"%n Dom7", root)
  332.      end
  333.      case Dom7b5:
  334.          void wprintf(wd,"%n Dom7b5", root)
  335.      end
  336.      case Dom79:
  337.          void wprintf(wd,"%n Dom79", root)
  338.      end
  339.      case Dom711:
  340.          void wprintf(wd,"%n Dom711", root)
  341.      end
  342.      case Dom7913:
  343.          void wprintf(wd,"%n Dom7913", root)
  344.      end
  345.      case Dom713:    
  346.          void wprintf(wd,"%n Dom713", root)
  347.      end
  348.      case Dom7b59:
  349.          void wprintf(wd,"%n Dom7b59", root)
  350.      end
  351.      case Dom7b9#11:
  352.          void wprintf(wd,"%n Dom7b9#11", root)
  353.      end
  354.      case Dom7#5:
  355.          void wprintf(wd,"%n Dom7#5", root)
  356.      end
  357.      case Dom7#9:
  358.          void wprintf(wd,"%n Dom7#9", root)
  359.      end
  360.      case Dom7b9:    
  361.          void wprintf(wd,"%n Dom7b9", root)
  362.      end
  363.      case Dom7#5b9:    
  364.          void wprintf(wd,"%n Dom7#5b9", root)
  365.      end
  366.      case Augmented:
  367.          void wprintf(wd,"%n Augmented", root)
  368.      end
  369.      case Dim7:
  370.          void wprintf(wd,"%n Dim7", root)
  371.      end
  372.      case Fifths2:
  373.          void wprintf(wd,"%n Fifths2", root)
  374.      end
  375.      case Fifths3:
  376.          void wprintf(wd,"%n Fifths3", root)
  377.      end
  378.      case Fifths4:
  379.          void wprintf(wd,"%n Fifths4", root)
  380.      end
  381.      case Fifths5:
  382.          void wprintf(wd,"%n Fifths5", root)
  383.      end
  384.      case Fifths6:
  385.          void wprintf(wd,"%n Fifths6", root)
  386.      end
  387.      case Fourths2:
  388.          void wprintf(wd,"%n Fourths2", root)
  389.      end
  390.      case Fourths3:
  391.          void wprintf(wd,"%n Fourths3", root)
  392.      end
  393.      case Fourths4:    
  394.          void wprintf(wd,"%n Fourths4", root)
  395.      end
  396.      case Fourths5:
  397.          void wprintf(wd,"%n Fourths5", root)
  398.      end
  399.      case Fourths6:
  400.          void wprintf(wd,"%n Fourths6", root)
  401.      end
  402.      case Octaves2:
  403.          void wprintf(wd,"%n Octaves2", root)
  404.      end
  405.      case Octaves3:
  406.          void wprintf(wd,"%n Octaves3", root)
  407.      end
  408.      case Octaves4:
  409.          void wprintf(wd,"%n Octaves4", root)
  410.      end
  411.      case Octaves5:
  412.          void wprintf(wd,"%n Octaves5", root)
  413.      end
  414.      case Octaves6:
  415.          void wprintf(wd,"%n Octaves6", root)
  416.     end
  417.     case Minor47:
  418.          void wprintf(wd,"%n Minor47", root)
  419.      end
  420.      end
  421. end
  422.  
  423. # doChord
  424. #
  425. # Params:
  426. # base: root note for chord
  427. # v: 1 dim array chord offsets are stored in.
  428. # size: notes in chord
  429. # time: time for chord
  430. # velocity: velocity for chord 
  431. # 
  432. # play chords stored as offsets in arrays
  433. #
  434. # may be looking at a prototype C function here
  435. # this should be a ravel function.
  436. #
  437. riff doChord(base, vector v, size, time, velocity)
  438.     int index
  439.  
  440.     size--
  441.     for (index = 0; index < size; index++)
  442.         base+v[index] 0,time velocity
  443.     end
  444.     base+v[size] time velocity
  445. end
  446.  
  447. #vco testChordArrays()
  448. #    int i
  449. #
  450. #    for ( i = 0; i < NOCHORDS; i++)
  451. #        NEEDS WORK HERE!!!
  452. #        void printChord(i)
  453. #        void doChord(LE,&chordNotes[i],chordSizes[i],h,forte)
  454. #    end
  455. #end
  456.  
  457.