home *** CD-ROM | disk | FTP | other *** search
/ Computer Panoráma / computer_panorama_1997-12-hibas.iso / SHARE / SOUND / MIDILANG.ZIP / TRANSPOS.MPL < prev    next >
Encoding:
Text File  |  1997-09-27  |  1.4 KB  |  103 lines
  1. 30939
  2. #
  3. #
  4. #This mpl has been created from a XPL file
  5. #
  6. # The XPL source file is : TRANSPOS.xpl
  7. #
  8. #
  9.  
  10. # 11 INIT ( ) { 
  11. LABEL INIT
  12.  
  13. # 12 VAR NBTRANS ; 
  14. # NBTRANS -> V[100]
  15.  
  16. # 13 VAR MIDI [ 10 ] ; 
  17. # MIDI -> V[101] to [110]
  18.  
  19. # 14 VAR TRANS [ 10 ] ; 
  20. # TRANS -> V[111] to [120]
  21.  
  22. # 21 NBTRANS = 3 ; 
  23. V= 100 3.000000
  24.  
  25. # 23 MIDI [ 0 ] = 2 ; 
  26. V= 101 2.000000
  27.  
  28. # 24 TRANS [ 0 ] = - 5 ; 
  29. V= 111 -5.000000
  30.  
  31. # 26 MIDI [ 1 ] = 4 ; 
  32. V= 102 4.000000
  33.  
  34. # 27 TRANS [ 1 ] = + 4 ; 
  35. V= 112 4.000000
  36.  
  37. # 29 MIDI [ 2 ] = 3 ; 
  38. V= 103 3.000000
  39.  
  40. # 30 TRANS [ 2 ] = - 4 ; 
  41. V= 113 -4.000000
  42.  
  43. # 32 SAVEIN ( 0 ) ; 
  44. UNSAVEIN
  45.  
  46. # 34 } 
  47. END
  48.  
  49. # 38 MAIN ( ) { 
  50. LABEL MAIN
  51.  
  52. # 39 VAR I ; 
  53. # I -> V[121]
  54.  
  55. # 40 FOR ( I = 0 ; 
  56. V= 121 0.000000
  57.  
  58. # 40 I < NBTRANS ; 
  59. LABEL LAB2
  60. V=V 2 121
  61. V= 3 0
  62. V<V 2 100
  63. V= 3 1
  64.  
  65. # 41 I ++ ) { 
  66. V== 3 0
  67. GOTO LAB3
  68.  
  69. # 43 IF ( CHAN == MIDI [ I ] ) NOTE += TRANS [ I ] ; 
  70. V= 2 101.000000
  71. V+=V 2 121
  72. V=VV 3 2
  73. V=CHAN 4
  74. V= 5 0
  75. V==V 4 3
  76. V= 5 1
  77. V== 5 0
  78. GOTO LAB4
  79. V= 6 111.000000
  80. V+=V 6 121
  81. V=VV 7 6
  82. NOTE+=V 7
  83.  
  84. # 44 OUTMIDI ( ) ; 
  85. LABEL LAB4
  86.  
  87. # 44 OUTMIDI ( ) ; 
  88. OUTMIDI
  89.  
  90. # 45 } 
  91. V+= 121 1
  92. GOTO LAB2
  93. LABEL LAB3
  94.  
  95. # 46 DESCRIPT ( " AUTOMATIC MIDI TRANSPOSITION " ) ; 
  96. DESCRIPT  AUTOMATIC MIDI TRANSPOSITION 
  97.  
  98. # 47 DESCRIPT ( " LIVE OR AS A POST-PROCESSOR " ) ; 
  99. DESCRIPT  LIVE OR AS A POST-PROCESSOR 
  100.  
  101. # 49 } 
  102. END
  103.