home *** CD-ROM | disk | FTP | other *** search
/ Computer Panoráma / computer_panorama_1997-12-hibas.iso / SHARE / SOUND / MIDILANG.ZIP / REPLACE.MPL < prev    next >
Encoding:
Text File  |  1997-09-27  |  3.0 KB  |  217 lines
  1. -5883
  2. #
  3. #
  4. #This mpl has been created from a XPL file
  5. #
  6. # The XPL source file is : REPLACE.xpl
  7. #
  8. #
  9.  
  10. # 9 INIT ( ) { 
  11. LABEL INIT
  12.  
  13. # 11 CONST C4 = 48 ; 
  14.  
  15. # 12 CONST C#4 = 49 ; 
  16.  
  17. # 13 CONST D4 = 50 ; 
  18.  
  19. # 14 CONST D#4 = 51 ; 
  20.  
  21. # 15 CONST E4 = 52 ; 
  22.  
  23. # 17 CONST C3 = 36 ; 
  24.  
  25. # 18 CONST C#3 = 37 ; 
  26.  
  27. # 19 CONST D3 = 38 ; 
  28.  
  29. # 20 CONST D#3 = 39 ; 
  30.  
  31. # 21 CONST E3 = 40 ; 
  32.  
  33. # 23 VAR NBREMP ; 
  34. # NBREMP -> V[100]
  35.  
  36. # 24 VAR ORIG_NOTE [ 100 ] , ORIG_CHAN [ 100 ] ; 
  37. # ORIG_NOTE -> V[101] to [200]
  38. # ORIG_CHAN -> V[201] to [300]
  39.  
  40. # 25 VAR REMP_NOTE [ 100 ] , REMP_CHAN [ 100 ] ; 
  41. # REMP_NOTE -> V[301] to [400]
  42. # REMP_CHAN -> V[401] to [500]
  43.  
  44. # 27 NBREMP = 5 ; 
  45. V= 100 5.000000
  46.  
  47. # 29 ORIG_NOTE [ 0 ] = C4 ; 
  48. V= 101 48.000000
  49.  
  50. # 30 ORIG_CHAN [ 0 ] = - 1 ; 
  51. V= 201 -1.000000
  52.  
  53. # 31 REMP_NOTE [ 0 ] = C3 ; 
  54. V= 301 36.000000
  55.  
  56. # 32 REMP_CHAN [ 0 ] = - 1 ; 
  57. V= 401 -1.000000
  58.  
  59. # 34 ORIG_NOTE [ 1 ] = C#4 ; 
  60. V= 102 49.000000
  61.  
  62. # 35 ORIG_CHAN [ 1 ] = 4 ; 
  63. V= 202 4.000000
  64.  
  65. # 36 REMP_NOTE [ 1 ] = C#3 ; 
  66. V= 302 37.000000
  67.  
  68. # 37 REMP_CHAN [ 1 ] = 3 ; 
  69. V= 402 3.000000
  70.  
  71. # 39 ORIG_NOTE [ 2 ] = D4 ; 
  72. V= 103 50.000000
  73.  
  74. # 40 ORIG_CHAN [ 2 ] = - 1 ; 
  75. V= 203 -1.000000
  76.  
  77. # 41 REMP_NOTE [ 2 ] = D3 ; 
  78. V= 303 38.000000
  79.  
  80. # 42 REMP_CHAN [ 2 ] = - 1 ; 
  81. V= 403 -1.000000
  82.  
  83. # 44 ORIG_NOTE [ 3 ] = D#4 ; 
  84. V= 104 51.000000
  85.  
  86. # 45 ORIG_CHAN [ 3 ] = - 1 ; 
  87. V= 204 -1.000000
  88.  
  89. # 46 REMP_NOTE [ 3 ] = D#3 ; 
  90. V= 304 39.000000
  91.  
  92. # 47 REMP_CHAN [ 3 ] = - 1 ; 
  93. V= 404 -1.000000
  94.  
  95. # 49 ORIG_NOTE [ 4 ] = E4 ; 
  96. V= 105 52.000000
  97.  
  98. # 50 ORIG_CHAN [ 4 ] = - 1 ; 
  99. V= 205 -1.000000
  100.  
  101. # 51 REMP_NOTE [ 4 ] = E3 ; 
  102. V= 305 40.000000
  103.  
  104. # 52 REMP_CHAN [ 4 ] = - 1 ; 
  105. V= 405 -1.000000
  106.  
  107. # 55 SAVEIN ( 0 ) ; 
  108. UNSAVEIN
  109.  
  110. # 58 } 
  111. END
  112.  
  113. # 63 MAIN ( ) { 
  114. LABEL MAIN
  115.  
  116. # 64 VAR I ; 
  117. # I -> V[501]
  118.  
  119. # 65 FOR ( I = 0 ; 
  120. V= 501 0.000000
  121.  
  122. # 65 I < NBREMP ; 
  123. LABEL LAB2
  124. V=V 2 501
  125. V= 3 0
  126. V<V 2 100
  127. V= 3 1
  128.  
  129. # 66 I ++ ) { 
  130. V== 3 0
  131. GOTO LAB3
  132.  
  133. # 69 IF ( ( ( ORIG_CHAN [ I ] == - 1 ) || ( ORIG_CHAN [ I ] == CHAN ) ) && ( ORIG_NOTE [ I ] == NOTE ) ) { 
  134. V= 2 201.000000
  135. V+=V 2 501
  136. V= 3 -1.000000
  137. V=VV 4 2
  138. V= 5 0
  139. V==V 4 3
  140. V= 5 1
  141. V= 6 201.000000
  142. V+=V 6 501
  143. V=CHAN 7
  144. V=VV 8 6
  145. V= 9 0
  146. V==V 8 7
  147. V= 9 1
  148. V=V 10 5
  149. V= 11 1
  150. V!= 10 0
  151. GOTO LAB4
  152. V== 9 0
  153. V= 11 0
  154. LABEL LAB4
  155. V= 12 101.000000
  156. V+=V 12 501
  157. V=NOTE 13
  158. V=VV 14 12
  159. V= 15 0
  160. V==V 14 13
  161. V= 15 1
  162. V=V 16 11
  163. V= 17 0
  164. V== 16 0
  165. GOTO LAB5
  166. V!= 15 0
  167. V= 17 1
  168. LABEL LAB5
  169. V== 17 0
  170. GOTO LAB6
  171.  
  172. # 70 NOTE = REMP_NOTE [ I ] ; 
  173. V= 2 301.000000
  174. V+=V 2 501
  175. V=VV 3 2
  176. NOTE=V 3
  177.  
  178. # 71 IF ( REMP_CHAN [ I ] != - 1 ) CHAN = REMP_CHAN [ I ] ; 
  179. V= 2 401.000000
  180. V+=V 2 501
  181. V= 3 -1.000000
  182. V=VV 4 2
  183. V= 5 0
  184. V!=V 4 3
  185. V= 5 1
  186. V== 5 0
  187. GOTO LAB7
  188. V= 6 401.000000
  189. V+=V 6 501
  190. V=VV 7 6
  191. CHAN=V 7
  192.  
  193. # 72 } 
  194. LABEL LAB7
  195.  
  196. # 72 } 
  197.  
  198. # 73 } 
  199. LABEL LAB6
  200.  
  201. # 73 } 
  202. V+= 501 1
  203. GOTO LAB2
  204. LABEL LAB3
  205.  
  206. # 75 OUTMIDI ( ) ; 
  207. OUTMIDI
  208.  
  209. # 78 DESCRIPT ( " REPLACE A SET OF CHANNEL/NOTE " ) ; 
  210. DESCRIPT  REPLACE A SET OF CHANNEL/NOTE 
  211.  
  212. # 79 DESCRIPT ( " BY AN ANOTHER " ) ; 
  213. DESCRIPT  BY AN ANOTHER 
  214.  
  215. # 80 } 
  216. END
  217.