home *** CD-ROM | disk | FTP | other *** search
/ Computer Panoráma / computer_panorama_1997-12-hibas.iso / SHARE / SOUND / MIDILANG.ZIP / VIBRATOR.MPL < prev    next >
Encoding:
Text File  |  1997-09-27  |  2.5 KB  |  227 lines
  1. -18579
  2. #
  3. #
  4. #This mpl has been created from a XPL file
  5. #
  6. # The XPL source file is : VIBRATOR.xpl
  7. #
  8. #
  9.  
  10. # 12 INIT ( ) { 
  11. LABEL INIT
  12.  
  13. # 13 SAVEIN ( 0 ) ; 
  14. UNSAVEIN
  15.  
  16. # 14 } 
  17. END
  18.  
  19. # 19 MAIN ( ) { 
  20. LABEL MAIN
  21.  
  22. # 20 VAR CURTIME , I , J ; 
  23. # CURTIME -> V[100]
  24. # I -> V[101]
  25. # J -> V[102]
  26.  
  27. # 23 IF ( VEL == 0 ) { 
  28. V= 2 0.000000
  29. V=VEL 3
  30. V= 4 0
  31. V==V 3 2
  32. V= 4 1
  33. V== 4 0
  34. GOTO LAB2
  35.  
  36. # 24 NOTE1 ( NOTE ) ; 
  37. V=NOTE 2
  38. NOTE1=V 2
  39.  
  40. # 25 NOTE2 ( NOTE ) ; 
  41. V=NOTE 2
  42. NOTE2=V 2
  43.  
  44. # 26 CHAN1 ( CHAN ) ; 
  45. V=CHAN 2
  46. CHAN1=V 2
  47.  
  48. # 27 CHAN2 ( CHAN ) ; 
  49. V=CHAN 2
  50. CHAN2=V 2
  51.  
  52. # 28 CLEAR ( ) ; 
  53. CLEAR
  54.  
  55. # 29 OUTMIDI ( ) ; 
  56. OUTMIDI
  57.  
  58. # 30 } 
  59.  
  60. # 32 ELSE { 
  61. GOTO LAB3
  62. LABEL LAB2
  63.  
  64. # 33 OUTMIDI ( ) ; 
  65. OUTMIDI
  66.  
  67. # 35 TIME += 440 / 2 ; 
  68. TIME+= 220
  69.  
  70. # 37 FOR ( I = 0 ; 
  71. V= 101 0.000000
  72.  
  73. # 37 I < 10 ; 
  74. LABEL LAB4
  75. V= 2 10.000000
  76. V=V 3 101
  77. V= 4 0
  78. V<V 3 2
  79. V= 4 1
  80.  
  81. # 38 I ++ ) { 
  82. V== 4 0
  83. GOTO LAB5
  84.  
  85. # 39 VEL -= 2 ; 
  86. VEL-= 2
  87.  
  88. # 40 IF ( VEL == 0 ) VEL = 1 ; 
  89. V= 2 0.000000
  90. V=VEL 3
  91. V= 4 0
  92. V==V 3 2
  93. V= 4 1
  94. V== 4 0
  95. GOTO LAB6
  96. VEL= 1
  97.  
  98. # 41 TIME += 44 ; 
  99. LABEL LAB6
  100.  
  101. # 41 TIME += 44 ; 
  102. TIME+= 44
  103.  
  104. # 42 OUTMIDI ( ) ; 
  105. OUTMIDI
  106.  
  107. # 43 } 
  108. V+= 101 1
  109. GOTO LAB4
  110. LABEL LAB5
  111.  
  112. # 44 FOR ( J = 0 ; 
  113. V= 102 0.000000
  114.  
  115. # 44 J < 10 ; 
  116. LABEL LAB7
  117. V= 2 10.000000
  118. V=V 3 102
  119. V= 4 0
  120. V<V 3 2
  121. V= 4 1
  122.  
  123. # 45 J ++ ) { 
  124. V== 4 0
  125. GOTO LAB8
  126.  
  127. # 46 FOR ( I = 0 ; 
  128. V= 101 0.000000
  129.  
  130. # 46 I < 20 ; 
  131. LABEL LAB9
  132. V= 2 20.000000
  133. V=V 3 101
  134. V= 4 0
  135. V<V 3 2
  136. V= 4 1
  137.  
  138. # 47 I ++ ) { 
  139. V== 4 0
  140. GOTO LAB10
  141.  
  142. # 48 VEL += 2 ; 
  143. VEL+= 2
  144.  
  145. # 49 IF ( VEL > 126 ) VEL = 126 ; 
  146. V= 2 126.000000
  147. V=VEL 3
  148. V= 4 0
  149. V>V 3 2
  150. V= 4 1
  151. V== 4 0
  152. GOTO LAB11
  153. VEL= 126
  154.  
  155. # 50 TIME += 44 ; 
  156. LABEL LAB11
  157.  
  158. # 50 TIME += 44 ; 
  159. TIME+= 44
  160.  
  161. # 51 OUTMIDI ( ) ; 
  162. OUTMIDI
  163.  
  164. # 52 } 
  165. V+= 101 1
  166. GOTO LAB9
  167. LABEL LAB10
  168.  
  169. # 53 FOR ( I = 0 ; 
  170. V= 101 0.000000
  171.  
  172. # 53 I < 20 ; 
  173. LABEL LAB12
  174. V= 2 20.000000
  175. V=V 3 101
  176. V= 4 0
  177. V<V 3 2
  178. V= 4 1
  179.  
  180. # 54 I ++ ) { 
  181. V== 4 0
  182. GOTO LAB13
  183.  
  184. # 55 VEL -= 2 ; 
  185. VEL-= 2
  186.  
  187. # 56 IF ( VEL == 0 ) VEL = 1 ; 
  188. V= 2 0.000000
  189. V=VEL 3
  190. V= 4 0
  191. V==V 3 2
  192. V= 4 1
  193. V== 4 0
  194. GOTO LAB14
  195. VEL= 1
  196.  
  197. # 57 TIME += 44 ; 
  198. LABEL LAB14
  199.  
  200. # 57 TIME += 44 ; 
  201. TIME+= 44
  202.  
  203. # 58 OUTMIDI ( ) ; 
  204. OUTMIDI
  205.  
  206. # 59 } 
  207. V+= 101 1
  208. GOTO LAB12
  209. LABEL LAB13
  210.  
  211. # 60 } 
  212. V+= 102 1
  213. GOTO LAB7
  214. LABEL LAB8
  215.  
  216. # 62 } 
  217. LABEL LAB3
  218.  
  219. # 64 DESCRIPT ( " VIBRATOR " ) ; 
  220. DESCRIPT  VIBRATOR 
  221.  
  222. # 65 DESCRIPT ( " WILL START AFTER ONE HALF BEAT " ) ; 
  223. DESCRIPT  WILL START AFTER ONE HALF BEAT 
  224.  
  225. # 66 } 
  226. END
  227.