home *** CD-ROM | disk | FTP | other *** search
/ PC Musician 2000 / PC_Musician_2000.iso / PCMUSIC / MISC / SYSXMAN1 / SCRAMBLE.SON < prev    next >
Encoding:
Text File  |  1994-08-21  |  7.6 KB  |  247 lines
  1. midifile("SCRAMBLE.MID");
  2. midivoice([0],[0]) {
  3.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  4.     mod = midi(NOTE_ON_PITCH, pitch(8000, 130.8128));
  5.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.1", mod, 1, 1, 0))[1];
  6.     out = sampl*vel;
  7.     ladd = ladd + out;
  8.     radd = radd - out
  9. };
  10. midivoice([1],[1]) {
  11.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  12.     mod = midi(NOTE_ON_PITCH, pitch(8000, 130.8128));
  13.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.2", mod, 1, 1, 0))[1];
  14.     out = sampl*vel;
  15.     ladd = ladd + out;
  16.     radd = radd - out
  17. };
  18. #repeat 3
  19. midivoice([2],[2]) {
  20.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  21.     mod = midi(NOTE_ON_PITCH, pitch(8000, 130.8128));
  22.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.3", mod, 1, 1, 124))[1];
  23.     out = sampl*vel;
  24.     ladd = ladd + out*1;
  25.     radd = radd + out*0
  26. };
  27. #enddef
  28. leadadd = 0;
  29. #repeat 3
  30. midivoice([3],[3]) {
  31.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  32.     mod = midi(NOTE_ON_PITCH, pitch(8000, 130.8128));
  33.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.4", mod, 1, 1, 9198))[1];
  34.     out = sampl*vel;
  35.     leadadd = leadadd + out
  36. };
  37. #enddef
  38. #repeat 2
  39. midivoice([4],[4]) {
  40.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  41.     mod = midi(NOTE_ON_PITCH, pitch(8000, 130.8128));
  42.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.5", mod, 1, 1, 5368))[1];
  43.     out = sampl*vel;
  44.     leadadd = leadadd + out
  45. };
  46. #enddef
  47. //schorus(leadadd, lout, rout, 0.005, 0.01, 0.5, 0.9);
  48. //ladd = ladd + lout;
  49. //radd = radd + rout;
  50. add = add + chorus(leadadd, 0.005, 0.005, 0.5, 0.9)*1.5;
  51. //add = add + leadadd;
  52. //add = add + delay(leadadd, 0.1)*0.5;
  53. #repeat 2
  54. midivoice([5],[5]) {
  55.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  56.     mod = midi(NOTE_ON_PITCH, pitch(8000, 130.8128));
  57.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.6", mod, 1, 1))[1];
  58.     out = sampl*vel;
  59.     add = add + out
  60. };
  61. #enddef
  62. midivoice([6],[6]) {
  63.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  64.     mod = midi(NOTE_ON_PITCH, pitch(8000, 130.8128));
  65.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.7", mod, 1, 1))[1];
  66.     out = sampl*vel;
  67.     add = add + out
  68. };
  69. #repeat 2
  70. midivoice([14],[7]) {
  71.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  72.     mod = midi(NOTE_ON_PITCH, pitch(8000, 130.8128));
  73.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.8", mod, 1, 1))[1];
  74.     out = sampl*vel;
  75.     ladd = ladd + out*0.875;
  76.     radd = radd + out*0.125
  77. };
  78. #enddef
  79. #repeat 2
  80. midivoice([14],[8]) {
  81.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  82.     mod = midi(NOTE_ON_PITCH, pitch(8000, 130.8128));
  83.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.9", mod, 1, 1))[1];
  84.     out = sampl*vel;
  85.     ladd = ladd + out*0.75;
  86.     radd = radd + out*0.25
  87. };
  88. #enddef
  89. #repeat 2
  90. midivoice([14],[9]) {
  91.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  92.     mod = midi(NOTE_ON_PITCH, pitch(8000, 130.8128));
  93.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.10", mod, 1, 1))[1];
  94.     out = sampl*vel;
  95.     ladd = ladd + out*0.625;
  96.     radd = radd + out*0.375
  97. };
  98. #enddef
  99. #repeat 2
  100. midivoice([14],[10]) {
  101.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  102.     mod = midi(NOTE_ON_PITCH, pitch(8000, 130.8128));
  103.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.11", mod, 1, 1))[1];
  104.     out = sampl*vel;
  105.     add = add + out
  106. };
  107. #enddef
  108. #repeat 2
  109. midivoice([14],[11]) {
  110.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  111.     mod = midi(NOTE_ON_PITCH, pitch(8000, 130.8128));
  112.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.12", mod, 1, 1))[1];
  113.     out = sampl*vel;
  114.     ladd = ladd + out*0.375;
  115.     radd = radd + out*0.625
  116. };
  117. #enddef
  118. #repeat 2
  119. midivoice([14],[12]) {
  120.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  121.     mod = midi(NOTE_ON_PITCH, pitch(8000, 130.8128));
  122.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.13", mod, 1, 1))[1];
  123.     out = sampl*vel;
  124.     ladd = ladd + out*0.25;
  125.     radd = radd + out*0.75
  126. };
  127. #enddef
  128. #repeat 2
  129. midivoice([14],[13]) {
  130.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  131.     mod = midi(NOTE_ON_PITCH, pitch(8000, 130.8128));
  132.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.14", mod, 1, 1))[1];
  133.     out = sampl*vel;
  134.     ladd = ladd + out*0.125;
  135.     radd = radd + out*0.875
  136. };
  137. #enddef
  138. #repeat 2
  139. midivoice([7],[14]) {
  140.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  141.     mod = midi(NOTE_ON_PITCH, pitch(8000, 130.8128));
  142.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.15", mod, 1, 1))[1];
  143.     out = sampl*vel;
  144.     ladd = ladd + out*0;
  145.     radd = radd + out*1
  146. };
  147. #enddef
  148. midivoice([8],[15]) {
  149.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  150.     mod = midi(NOTE_ON_PITCH, pitch(8000, 130.8128));
  151.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.16", mod, 1, 1, 0))[1];
  152.     out = sampl*vel;
  153.     ladd = ladd + out*1;
  154.     radd = radd + out*0
  155. };
  156. #repeat 2
  157. midivoice([15],[127],[36]) {
  158.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES));
  159.     mod = pitch(8000);
  160.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.17", mod, 1, 1))[1];
  161.     out = sampl*vel;
  162.     add = add + out
  163. };
  164. #enddef
  165. #repeat 2
  166. midivoice([15],[127],[42]) {
  167.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  168.     mod = pitch(8000);
  169.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.18", mod, 1, 1))[1];
  170.     out = sampl*vel;
  171.     ladd = ladd + out*0;
  172.     radd = radd + out*1
  173. };
  174. #enddef
  175. #repeat 2
  176. midivoice([15],[127],[43]) {
  177.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  178.     mod = pitch(8000);
  179.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.19", mod, 1, 1))[1];
  180.     out = sampl*vel;
  181.     ladd = ladd + out*0;
  182.     radd = radd + out*1
  183. };
  184. #enddef
  185. #repeat 2
  186. midivoice([15],[127],[44]) {
  187.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  188.     mod = pitch(8000);
  189.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.20", mod, 1, 1))[1];
  190.     out = sampl*vel;
  191.     ladd = ladd + out*0;
  192.     radd = radd + out*1
  193. };
  194. #enddef
  195. #repeat 2
  196. midivoice([9],[16]) {
  197.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  198.     mod = midi(NOTE_ON_PITCH, pitch(8000, 130.8128));
  199.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.21", mod, 1, 1))[1];
  200.     out = sampl*vel;
  201.     add = add + out
  202. };
  203. #enddef
  204. #repeat 2
  205. midivoice([15],[127],[38]) {
  206.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES));
  207.     mod = pitch(8000);
  208.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.22", mod, 1, 1))[1];
  209.     out = sampl*vel;
  210.     add = add + out
  211. };
  212. #enddef
  213. #repeat 2
  214. midivoice([10],[17]) {
  215.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  216.     mod = midi(NOTE_ON_PITCH, pitch(8000, 130.8128));
  217.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.23", mod, 1, 1))[1];
  218.     out = sampl*vel;
  219.     add = add + out
  220. };
  221. #enddef
  222. #repeat 2
  223. midivoice([11],[18]) {
  224.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  225.     mod = midi(NOTE_ON_PITCH, pitch(8000, 130.8128));
  226.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.24", mod, 1, 1))[1];
  227.     out = sampl*vel;
  228.     add = add + out
  229. };
  230. #enddef
  231. echoadd = 0;
  232. #repeat 2
  233. midivoice([12],[19]) {
  234.     vel = midi(NOTE_ON_VEL, midi(CHNL_PRES, midi(NOTE_OFF_VEL)));
  235.     mod = midi(NOTE_ON_PITCH, pitch(8000, 130.8128));
  236.     sampl = midi(NOTE_ON_RESET, sample("D:\BP\MUSIC\SAMP\SCRAMBLE.25", mod, 1, 1, 620))[1];
  237.     out = sampl*vel;
  238.     echoadd = echoadd + out
  239. };
  240. #enddef
  241. echoadd = chorus(echoadd, 0.01, 0.03, 0.5, 0.2);
  242. ladd = ladd + delay(echoadd, 0.5);
  243. radd = radd + echoadd;
  244. add = add * 2;
  245. ladd = ladd * 2;
  246. radd = radd * 2;
  247.