home *** CD-ROM | disk | FTP | other *** search
/ Computer Panoráma / computer_panorama_1997-12-hibas.iso / SHARE / SOUND / MIDILANG.ZIP / FADECUT.MPL < prev    next >
Encoding:
Text File  |  1997-09-27  |  1.8 KB  |  145 lines
  1. -8944
  2. #
  3. #
  4. #This mpl has been created from a XPL file
  5. #
  6. # The XPL source file is : FADECUT.xpl
  7. #
  8. #
  9.  
  10. # 15 INIT ( ) { 
  11. LABEL INIT
  12.  
  13. # 16 VAR FADENB , CUTNB ; 
  14. # FADENB -> V[100]
  15. # CUTNB -> V[101]
  16.  
  17. # 17 VAR I , J ; 
  18. # I -> V[102]
  19. # J -> V[103]
  20.  
  21. # 18 VAR CURBEAT ; 
  22. # CURBEAT -> V[104]
  23.  
  24. # 20 CURBEAT = 0 ; 
  25. V= 104 0.000000
  26.  
  27. # 22 DESCRIPT ( " THIS XPL FILE WILL SHORTEN AND FADE OUT ANY MIDI FILE " ) ; 
  28. DESCRIPT  THIS XPL FILE WILL SHORTEN AND FADE OUT ANY MIDI FILE 
  29.  
  30. # 23 DESCRIPT ( " OR IN REAL TIME DURING A LIVE PLAY " ) ; 
  31. DESCRIPT  OR IN REAL TIME DURING A LIVE PLAY 
  32.  
  33. # 26 FADENB = 20 ; 
  34. V= 100 20.000000
  35.  
  36. # 27 CUTNB = 25 ; 
  37. V= 101 25.000000
  38.  
  39. # 29 SAVEIN ( 0 ) ; 
  40. UNSAVEIN
  41.  
  42. # 31 } 
  43. END
  44.  
  45. # 35 MAIN { 
  46. LABEL MAIN
  47.  
  48. # 36 VAR COEF ; 
  49. # COEF -> V[105]
  50.  
  51. # 37 CURBEAT = ( TIME / 440 ) - 1.0 ; 
  52. V= 2 440.000000
  53. V=TIME 3
  54. V/=V 3 2
  55. V= 4 1.000000
  56. V=V 5 3
  57. V-=V 5 4
  58. V=V 104 5
  59.  
  60. # 39 IF ( CURBEAT < FADENB ) { 
  61. V=V 2 104
  62. V= 3 0
  63. V<V 2 100
  64. V= 3 1
  65. V== 3 0
  66. GOTO LAB2
  67.  
  68. # 40 OUTMIDI ( ) ; 
  69. OUTMIDI
  70.  
  71. # 41 } 
  72.  
  73. # 43 ELSE { 
  74. GOTO LAB3
  75. LABEL LAB2
  76.  
  77. # 45 IF ( CURBEAT < CUTNB ) { 
  78. V=V 2 104
  79. V= 3 0
  80. V<V 2 101
  81. V= 3 1
  82. V== 3 0
  83. GOTO LAB4
  84.  
  85. # 46 COEF = 1.0 - ( ( CURBEAT - FADENB ) / ( CUTNB - FADENB ) ) ; 
  86. V=V 2 104
  87. V-=V 2 100
  88. V=V 3 101
  89. V-=V 3 100
  90. V=V 4 2
  91. V/=V 4 3
  92. V= 5 1.000000
  93. V-=V 5 4
  94. V=V 105 5
  95.  
  96. # 47 VEL *= COEF * COEF ; 
  97. V=V 2 105
  98. V*=V 2 105
  99. VEL*=V 2
  100.  
  101. # 48 OUTMIDI ( ) ; 
  102. OUTMIDI
  103.  
  104. # 49 } 
  105.  
  106. # 51 ELSE { 
  107. GOTO LAB5
  108. LABEL LAB4
  109.  
  110. # 53 IF ( ( CURBEAT < CUTNB + 4 ) && ( VEL == 0 ) ) OUTMIDI ( ) ; 
  111. V= 2 4.000000
  112. V=V 3 101
  113. V+=V 3 2
  114. V=V 4 104
  115. V= 5 0
  116. V<V 4 3
  117. V= 5 1
  118. V= 6 0.000000
  119. V=VEL 7
  120. V= 8 0
  121. V==V 7 6
  122. V= 8 1
  123. V=V 9 5
  124. V= 10 0
  125. V== 9 0
  126. GOTO LAB6
  127. V!= 8 0
  128. V= 10 1
  129. LABEL LAB6
  130. V== 10 0
  131. GOTO LAB7
  132. OUTMIDI
  133.  
  134. # 54 } 
  135. LABEL LAB7
  136.  
  137. # 54 } 
  138. LABEL LAB5
  139.  
  140. # 55 } 
  141. LABEL LAB3
  142.  
  143. # 57 } 
  144. END
  145.