API tools faq
paste
BrandonSpendlove

Dark Chords - New

BrandonSpendlove
Apr 25th, 2014
127
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 69.58 KB | None | 0 0
raw download clone embed print report diff
  1. on init
  2.  
  3. make_perfview
  4. set_ui_height (4)
  5.  
  6. {These are not currently in use. They're used to make loops - see NI forum}
  7. declare $gx
  8. declare %GM[3] := (0,5)
  9.  
  10. {These above are not currently in use. They're used to make loops - see NI forum}
  11.  
  12.  
  13. {here the code for the knobs begins - that control volume on groups eg. mic placements}
  14.  
  15. {groups are indexed, so group one is 0, group two is 1 - and so on. 500000 equals -6dB}
  16.  
  17. message("") { this clears the status line so no error messages will be hidden }
  18. declare const $DefVol := 500000 { default initial volume, you can choose this to be whatever you want }
  19. set_ui_height (4)
  20. declare ui_knob $Volume0510152025303540455055(0, 1000000, 1)
  21. make_persistent($Volume0510152025303540455055)
  22. set_text($Volume0510152025303540455055,"Surround")
  23. $Volume0510152025303540455055 := $DefVol
  24. set_knob_defval($Volume0510152025303540455055,$DefVol)
  25. move_control_px($volume0510152025303540455055,66,2) { you can position this knob wherever you like }
  26. read_persistent_var($Volume0510152025303540455055)
  27. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,0,-1,-1)
  28. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,5,-1,-1)
  29. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,10,-1,-1)
  30. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,15,-1,-1)
  31. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,20,-1,-1)
  32. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,25,-1,-1)
  33. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,30,-1,-1)
  34. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,35,-1,-1)
  35. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,40,-1,-1)
  36. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,45,-1,-1)
  37. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,50,-1,-1)
  38. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,55,-1,-1)
  39. set_knob_label($Volume0510152025303540455055,get_engine_par_disp($ENGINE_PAR_VOLUME,0,-1,-1))
  40. declare ui_knob $Volume1611162126313641465156(0, 1000000, 1)
  41. make_persistent($Volume1611162126313641465156)
  42. set_text($Volume1611162126313641465156,"Out")
  43. $Volume1611162126313641465156 := $DefVol
  44. set_knob_defval($Volume1611162126313641465156,$DefVol)
  45. move_control_px($Volume1611162126313641465156,158,2) { you can position this knob wherever you like }
  46. read_persistent_var($Volume1611162126313641465156)
  47. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,1,-1,-1)
  48. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,6,-1,-1)
  49. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,11,-1,-1)
  50. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,16,-1,-1)
  51. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,21,-1,-1)
  52. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,26,-1,-1)
  53. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,31,-1,-1)
  54. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,36,-1,-1)
  55. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,41,-1,-1)
  56. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,46,-1,-1)
  57. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,51,-1,-1)
  58. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,56,-1,-1)
  59. set_knob_label($Volume1611162126313641465156,get_engine_par_disp($ENGINE_PAR_VOLUME,1,-1,-1))
  60. declare ui_knob $Volume2712172227323742475257(0, 1000000, 1)
  61. make_persistent($Volume2712172227323742475257)
  62. set_text($Volume2712172227323742475257,"Decca")
  63. $Volume2712172227323742475257 := $DefVol
  64. set_knob_defval($Volume2712172227323742475257,$DefVol)
  65. move_control_px($Volume2712172227323742475257,250,2) { you can position this knob wherever you like }
  66. read_persistent_var($Volume2712172227323742475257)
  67. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,2,-1,-1)
  68. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,7,-1,-1)
  69. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,12,-1,-1)
  70. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,17,-1,-1)
  71. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,22,-1,-1)
  72. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,27,-1,-1)
  73. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,32,-1,-1)
  74. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,37,-1,-1)
  75. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,42,-1,-1)
  76. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,47,-1,-1)
  77. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,52,-1,-1)
  78. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,57,-1,-1)
  79. set_knob_label($Volume2712172227323742475257,get_engine_par_disp($ENGINE_PAR_VOLUME,2,-1,-1))
  80. declare ui_knob $Volume3813182328333843485358(0, 1000000, 1)
  81. make_persistent($Volume3813182328333843485358)
  82. set_text($Volume3813182328333843485358,"Close")
  83. $Volume3813182328333843485358 := $DefVol
  84. set_knob_defval($Volume3813182328333843485358,$DefVol)
  85. move_control_px($Volume3813182328333843485358,342,2) { you can position this knob wherever you like }
  86. read_persistent_var($Volume3813182328333843485358)
  87. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,3,-1,-1)
  88. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,8,-1,-1)
  89. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,13,-1,-1)
  90. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,18,-1,-1)
  91. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,23,-1,-1)
  92. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,28,-1,-1)
  93. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,33,-1,-1)
  94. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,38,-1,-1)
  95. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,43,-1,-1)
  96. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,48,-1,-1)
  97. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,53,-1,-1)
  98. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,58,-1,-1)
  99. set_knob_label($Volume3813182328333843485358,get_engine_par_disp($ENGINE_PAR_VOLUME,3,-1,-1))
  100. declare ui_knob $Volume4914192429343944495459(0, 1000000, 1)
  101. make_persistent($Volume4914192429343944495459)
  102. set_text($Volume4914192429343944495459,"Mix S.")
  103. $Volume4914192429343944495459 := $DefVol
  104. set_knob_defval($Volume4914192429343944495459,$DefVol)
  105. move_control_px($Volume4914192429343944495459,433,2) { you can position this knob wherever you like }
  106. read_persistent_var($Volume4914192429343944495459)
  107. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,4,-1,-1)
  108. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,9,-1,-1)
  109. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,14,-1,-1)
  110. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,19,-1,-1)
  111. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,24,-1,-1)
  112. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,29,-1,-1)
  113. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,34,-1,-1)
  114. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,39,-1,-1)
  115. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,44,-1,-1)
  116. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,49,-1,-1)
  117. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,54,-1,-1)
  118. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,59,-1,-1)
  119. set_knob_label($Volume4914192429343944495459,get_engine_par_disp($ENGINE_PAR_VOLUME,4,-1,-1))
  120.  
  121.  
  122. {Mix buttons}
  123.  
  124. declare ui_button $surroundpower
  125. declare ui_button $outpower
  126. declare ui_button $deccapower
  127. declare ui_button $closepower
  128. declare ui_button $mixpower
  129.  
  130. {Keyswitch buttons, they're hided. They make it possible to write new names when a certain button is pressed.}
  131.  
  132. declare ui_button $keyswitch1
  133. declare ui_button $keyswitch2
  134. declare ui_button $keyswitch3
  135. declare ui_button $keyswitch4
  136. declare ui_button $keyswitch5
  137. declare ui_button $keyswitch6
  138. declare ui_button $keyswitch7
  139. declare ui_button $keyswitch8
  140. declare ui_button $keyswitch9
  141. declare ui_button $keyswitch10
  142. declare ui_button $keyswitch11
  143. declare ui_button $keyswitch12
  144.  
  145. $keyswitch1 := 1
  146. $keyswitch2 := 0
  147. $keyswitch3 := 0
  148. $keyswitch4 := 0
  149. $keyswitch5 := 0
  150. $keyswitch6 := 0
  151. $keyswitch7 := 0
  152. $keyswitch8 := 0
  153. $keyswitch9 := 0
  154. $keyswitch10 := 0
  155. $keyswitch11 := 0
  156. $keyswitch12 := 0
  157.  
  158. hide_part($keyswitch1, $HIDE_WHOLE_CONTROL)
  159. hide_part($keyswitch2, $HIDE_WHOLE_CONTROL)
  160. hide_part($keyswitch3, $HIDE_WHOLE_CONTROL)
  161. hide_part($keyswitch4, $HIDE_WHOLE_CONTROL)
  162. hide_part($keyswitch5, $HIDE_WHOLE_CONTROL)
  163. hide_part($keyswitch6, $HIDE_WHOLE_CONTROL)
  164. hide_part($keyswitch7, $HIDE_WHOLE_CONTROL)
  165. hide_part($keyswitch8, $HIDE_WHOLE_CONTROL)
  166. hide_part($keyswitch9, $HIDE_WHOLE_CONTROL)
  167. hide_part($keyswitch10, $HIDE_WHOLE_CONTROL)
  168. hide_part($keyswitch11, $HIDE_WHOLE_CONTROL)
  169. hide_part($keyswitch12, $HIDE_WHOLE_CONTROL)
  170.  
  171.  
  172. {Keyswitch codes ends, Mix buttons again.}
  173.  
  174. {Output routing button.}
  175.  
  176.  
  177. declare ui_button $output
  178. set_text($output,"Multi output off")
  179. move_control($output,1,8)
  180.  
  181. {Output routing ends.}
  182.  
  183.  
  184. move_control($surroundpower, 1,3)
  185. move_control($outpower, 2,3)
  186. move_control($deccapower,3,3)
  187. move_control($closepower,4,3)
  188. move_control($mixpower,5,3)
  189.  
  190. set_text($surroundpower, "Surround Off")
  191. set_text($outpower, "Out. Off")
  192. set_text($deccapower, "Decca. Off")
  193. set_text($closepower, "Close. Off")
  194. set_text($mixpower, "Mix. Off")
  195.  
  196. {AHDSR}
  197.  
  198. declare $count
  199.  
  200. declare ui_knob $Attack (0,1000000,1)
  201. declare ui_knob $Hold (0,1000000,1)
  202. declare ui_knob $Decay (0,1000000,1)
  203. declare ui_knob $Sustain (0,1000000,1)
  204. declare ui_knob $Release (0,1000000,1)
  205.  
  206. set_knob_unit($Attack, $KNOB_UNIT_MS)
  207. set_knob_unit($Hold, $KNOB_UNIT_MS)
  208. set_knob_unit($Decay, $KNOB_UNIT_MS)
  209. set_knob_unit($Sustain, $KNOB_UNIT_DB)
  210. set_knob_unit($Release, $KNOB_UNIT_MS)
  211.  
  212. {AHDSR, Simple and effective Method}
  213.  
  214. declare $ahdsr
  215.  
  216. $ahdsr := 1
  217.  
  218.  
  219. while($ahdsr > $NUM_GROUPS)
  220.  
  221. set_engine_par($ENGINE_PAR_ATTACK,$attack,$ahdsr,0,-1)
  222. set_engine_par($ENGINE_PAR_HOLD,$hold,$ahdsr,0,-1)
  223. set_engine_par($ENGINE_PAR_DECAY,$decay,$ahdsr,0,-1)
  224. set_engine_par($ENGINE_PAR_SUSTAIN,$sustain,$ahdsr,0,-1)
  225. set_engine_par($ENGINE_PAR_RELEASE,$release,$ahdsr,0,-1)
  226.  
  227. inc($ahdsr)
  228.  
  229. end while
  230.  
  231. move_control($Attack, 1,5)
  232. move_control($Hold,2,5)
  233. move_control($Decay,3,5)
  234. move_control($Sustain,4,5)
  235. move_control($Release,5,5)
  236.  
  237. make_persistent($Attack)
  238. make_persistent($Hold)
  239. make_persistent($Decay)
  240. make_persistent($Sustain)
  241. make_persistent($Release)
  242.  
  243. read_persistent_var($Attack)
  244. read_persistent_var($Hold)
  245. read_persistent_var($Decay)
  246. read_persistent_var($Sustain)
  247. read_persistent_var($Release)
  248.  
  249. set_knob_label($Attack, get_engine_par_disp($ENGINE_PAR_ATTACK, 0, find_mod(0,"ENV_AHDSR"), -1))
  250. set_knob_label($Hold, get_engine_par_disp($ENGINE_PAR_HOLD, 0, find_mod(0,"ENV_AHDSR"), -1))
  251. set_knob_label($Decay, get_engine_par_disp($ENGINE_PAR_DECAY, 0, find_mod(0,"ENV_AHDSR"), -1))
  252. set_knob_label($Sustain, get_engine_par_disp($ENGINE_PAR_SUSTAIN, 0, find_mod(0,"ENV_AHDSR"), -1))
  253. set_knob_label($Release, get_engine_par_disp($ENGINE_PAR_RELEASE, 0, find_mod(0,"ENV_AHDSR"), -1))
  254.  
  255. {CONVO REVERB}
  256.  
  257. declare ui_button $reverb
  258. set_text($reverb,"Convo. Off")
  259.  
  260. move_control($reverb,6,7)
  261.  
  262. declare ui_slider $convowet (0,1000000)
  263. declare ui_slider $convodry (0,1000000)
  264. declare ui_slider $convodelay (0,1000000)
  265. declare ui_slider $convoearlyir (0,1000000)
  266. declare ui_slider $convolateir (0,1000000)
  267.  
  268. move_control($convowet, 6,2)
  269. move_control($convodry, 6,3)
  270. move_control($convodelay,6,4)
  271. move_control($convoearlyir,6,5)
  272. move_control($convolateir,6,6)
  273.  
  274. {Impulses, you have to define them as !}
  275. {$ Stores a single integer values}
  276. {% Store single integer values at specific indices}
  277. {! Stores text strings... We need to use ! for Samples, Impulses etc...}
  278.  
  279. declare $impulse
  280. declare const $impulse_samples := 31
  281. declare !ir_names[$impulse_samples]
  282.  
  283. {Names of the IR Samples}
  284.  
  285.  
  286.  
  287. !ir_names[0] := "Altiverb_Allaire_Neve_3m"
  288. !ir_names[1] := "Altiverb_Allaire_Neve_5m"
  289. !ir_names[2] := "Altiverb_AMS_RMX16_4,0"
  290. !ir_names[3] := "Altiverb_AMS_RMX16_7,0"
  291. !ir_names[4] := "Altiverb_CelloStudio_2,1m"
  292. !ir_names[5] := "Altiverb_CelloStudio_3,6m"
  293. !ir_names[6] := "Altiverb_CelloStudio_4,1m"
  294. !ir_names[7] := "Altiverb_CelloStudio_5,9m"
  295. !ir_names[8] := "Altiverb_WestlakeD_3,1m"
  296. !ir_names[9] := "Altiverb_WestlakeD_5,3m"
  297. !ir_names[10] := "Altiverb_WestlakeD_7,1m"
  298. !ir_names[11] := "Emergent Gate-10"
  299. !ir_names[12] := "IR_Fames_DT_01"
  300. !ir_names[13] := "IR_FiveColumns"
  301. !ir_names[14] := "IR_GoingHome_Dist"
  302. !ir_names[15] := "IR_Narrow"
  303. !ir_names[16] := "King Tubby-fl1 SpaceEcho"
  304. !ir_names[17] := "King Tubby-fs2b SpaceEcho"
  305. !ir_names[18] := "M7 IR Halls 16 Amsterdam Hall"
  306. !ir_names[19] := "M7 IR Halls 17 Berliner Hall"
  307. !ir_names[20] := "M7 IR Halls 18 Boston Hall A"
  308. !ir_names[21] := "M7 IR Halls 18 Boston Hall B"
  309. !ir_names[22] := "M7 IR Halls 20 Chicago Hall"
  310. !ir_names[23] := "M7 IR Halls 21 Vienna Hall"
  311. !ir_names[24] := "Nano Room-6"
  312. !ir_names[25] := "Phase Space-6"
  313. !ir_names[26] := "Phonon Blast-11"
  314. !ir_names[27] := "Phonon Choir-10"
  315. !ir_names[28] := "Superconductive Plate 1"
  316. !ir_names[29] := "Superconductive Plate 5"
  317. !ir_names[30] := "Von Klitzing Effect 4"
  318.  
  319.  
  320. {Impulse Menu}
  321.  
  322. declare ui_menu $impulses
  323. move_control($impulses, 6, 8)
  324.  
  325. add_menu_item($impulses,"Impulses.....", -1)
  326.  
  327. while ($count < $impulse_samples)
  328.  
  329. add_menu_item($impulses,!ir_names[$count],$count)
  330.  
  331. inc($count)
  332.  
  333. end while
  334.  
  335. {You can delete these labels if you want!}
  336.  
  337. declare ui_label $ConvInfo (1,1)
  338. set_text($ConvInfo," Conv Settings")
  339.  
  340. move_control($ConvInfo, 6,1)
  341.  
  342. declare ui_label $ahdsrinfo (5,1)
  343. set_text($ahdsrinfo, "------------------------------------------AHDSR-----------------------------------------")
  344.  
  345. move_control($ahdsrinfo, 1,4)
  346.  
  347. {Make the buttons persistent etc..}
  348.  
  349. make_persistent($surroundpower)
  350. make_persistent($outpower)
  351. make_persistent($deccapower)
  352. make_persistent($closepower)
  353. make_persistent($mixpower)
  354. read_persistent_var($surroundpower)
  355. read_persistent_var($outpower)
  356. read_persistent_var($deccapower)
  357. read_persistent_var($closepower)
  358. read_persistent_var($mixpower)
  359.  
  360. end on
  361.  
  362. {Impulse Menu}
  363.  
  364. on ui_control ($impulses)
  365.  
  366. if ($impulses = -1)
  367.  
  368. else
  369.  
  370. load_ir_sample(!ir_names[$impulses],6,1) {6,1 is (slot) then (Generic).. Generic = 1 Insert effect, 0 Send effect}
  371.  
  372. end if
  373.  
  374. end on
  375.  
  376. on ui_control($Volume0510152025303540455055)
  377. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,0,-1,-1)
  378. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,5,-1,-1)
  379. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,10,-1,-1)
  380. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,15,-1,-1)
  381. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,20,-1,-1)
  382. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,25,-1,-1)
  383. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,30,-1,-1)
  384. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,35,-1,-1)
  385. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,40,-1,-1)
  386. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,45,-1,-1)
  387. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,50,-1,-1)
  388. set_engine_par($ENGINE_PAR_VOLUME,$Volume0510152025303540455055,55,-1,-1)
  389. set_knob_label($Volume0510152025303540455055,get_engine_par_disp($ENGINE_PAR_VOLUME,0,-1,-1))
  390. end on
  391.  
  392. on ui_control($Volume1611162126313641465156)
  393. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,1,-1,-1)
  394. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,6,-1,-1)
  395. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,11,-1,-1)
  396. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,16,-1,-1)
  397. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,21,-1,-1)
  398. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,26,-1,-1)
  399. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,31,-1,-1)
  400. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,36,-1,-1)
  401. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,41,-1,-1)
  402. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,46,-1,-1)
  403. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,51,-1,-1)
  404. set_engine_par($ENGINE_PAR_VOLUME,$Volume1611162126313641465156,56,-1,-1)
  405. set_knob_label($Volume1611162126313641465156,get_engine_par_disp($ENGINE_PAR_VOLUME,1,-1,-1))
  406. end on
  407.  
  408. on ui_control($Volume2712172227323742475257)
  409. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,2,-1,-1)
  410. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,7,-1,-1)
  411. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,12,-1,-1)
  412. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,17,-1,-1)
  413. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,22,-1,-1)
  414. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,27,-1,-1)
  415. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,32,-1,-1)
  416. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,37,-1,-1)
  417. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,42,-1,-1)
  418. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,47,-1,-1)
  419. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,52,-1,-1)
  420. set_engine_par($ENGINE_PAR_VOLUME,$Volume2712172227323742475257,57,-1,-1)
  421. set_knob_label($Volume2712172227323742475257,get_engine_par_disp($ENGINE_PAR_VOLUME,2,-1,-1))
  422. end on
  423.  
  424. on ui_control($Volume3813182328333843485358)
  425. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,3,-1,-1)
  426. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,8,-1,-1)
  427. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,13,-1,-1)
  428. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,18,-1,-1)
  429. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,23,-1,-1)
  430. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,28,-1,-1)
  431. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,33,-1,-1)
  432. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,38,-1,-1)
  433. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,43,-1,-1)
  434. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,48,-1,-1)
  435. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,53,-1,-1)
  436. set_engine_par($ENGINE_PAR_VOLUME,$Volume3813182328333843485358,58,-1,-1)
  437. set_knob_label($Volume3813182328333843485358,get_engine_par_disp($ENGINE_PAR_VOLUME,3,-1,-1))
  438. end on
  439.  
  440. on ui_control($Volume4914192429343944495459)
  441. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,4,-1,-1)
  442. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,9,-1,-1)
  443. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,14,-1,-1)
  444. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,19,-1,-1)
  445. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,24,-1,-1)
  446. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,29,-1,-1)
  447. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,34,-1,-1)
  448. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,39,-1,-1)
  449. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,44,-1,-1)
  450. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,49,-1,-1)
  451. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,54,-1,-1)
  452. set_engine_par($ENGINE_PAR_VOLUME,$Volume4914192429343944495459,59,-1,-1)
  453. set_knob_label($Volume4914192429343944495459,get_engine_par_disp($ENGINE_PAR_VOLUME,4,-1,-1))
  454. end on
  455.  
  456. {MIX Buttons, Purging etc..}
  457.  
  458. on ui_control ($surroundpower)
  459.  
  460. if ($surroundpower = 0)
  461.  
  462. set_text($surroundpower,"Surround Off") {When the button is off, it will say it's off}
  463.  
  464. purge_group(0,0)
  465. purge_group(5,0) {Group Index, Mode - Surround Power being the first group, and unloaded if the button is off}
  466. purge_group(10,0)
  467. purge_group(15,0)
  468. purge_group(20,0)
  469. purge_group(25,0)
  470. purge_group(30,0)
  471. purge_group(35,0)
  472. purge_group(40,0)
  473. purge_group(45,0)
  474. purge_group(50,0)
  475. purge_group(55,0)
  476. else
  477.  
  478. set_text($surroundpower,"Surround On") {When the button is on, it will say it's on!}
  479.  
  480. purge_group(0,1)
  481. purge_group(5,1) {Else (if it is on!) then load the samples in group 1}
  482. purge_group(10,1)
  483. purge_group(15,1)
  484. purge_group(20,1)
  485. purge_group(25,1)
  486. purge_group(30,1)
  487. purge_group(35,1)
  488. purge_group(40,1)
  489. purge_group(45,1)
  490. purge_group(50,1)
  491. purge_group(55,1)
  492. end if
  493. end on
  494.  
  495. on ui_control ($outpower)
  496.  
  497. if ($outpower = 0)
  498.  
  499. set_text($outpower, "Out. Off")
  500.  
  501. purge_group(1,0)
  502. purge_group(6,0)
  503. purge_group(11,0)
  504. purge_group(16,0)
  505. purge_group(21,0)
  506. purge_group(26,0)
  507. purge_group(31,0)
  508. purge_group(36,0)
  509. purge_group(41,0)
  510. purge_group(46,0)
  511. purge_group(51,0)
  512. purge_group(56,0)
  513.  
  514. else
  515.  
  516. set_text($outpower, "Out. On")
  517.  
  518. purge_group(1,1)
  519. purge_group(6,1)
  520. purge_group(11,1)
  521. purge_group(16,1)
  522. purge_group(21,1)
  523. purge_group(26,1)
  524. purge_group(31,1)
  525. purge_group(36,1)
  526. purge_group(41,1)
  527. purge_group(46,1)
  528. purge_group(51,1)
  529. purge_group(56,1)
  530.  
  531. end if
  532.  
  533.  
  534. end on
  535.  
  536. on ui_control ($deccapower)
  537.  
  538. if ($deccapower = 0)
  539.  
  540. set_text($deccapower,"Decca. Off")
  541.  
  542. purge_group(2,0)
  543. purge_group(7,0)
  544. purge_group(12,0)
  545. purge_group(17,0)
  546. purge_group(22,0)
  547. purge_group(27,0)
  548. purge_group(32,0)
  549. purge_group(37,0)
  550. purge_group(42,0)
  551. purge_group(47,0)
  552. purge_group(52,0)
  553. purge_group(57,0)
  554.  
  555. else
  556.  
  557. set_text($deccapower,"Decca. On")
  558.  
  559. purge_group(2,1)
  560. purge_group(7,1)
  561. purge_group(12,1)
  562. purge_group(17,1)
  563. purge_group(22,1)
  564. purge_group(27,1)
  565. purge_group(32,1)
  566. purge_group(37,1)
  567. purge_group(42,1)
  568. purge_group(47,1)
  569. purge_group(52,1)
  570. purge_group(57,1)
  571. end if
  572.  
  573. end on
  574.  
  575. on ui_control ($closepower)
  576.  
  577. if ($closepower = 0)
  578.  
  579. set_text($closepower, "Out. Off")
  580.  
  581. purge_group(3,0)
  582. purge_group(8,0)
  583. purge_group(13,0)
  584. purge_group(18,0)
  585. purge_group(23,0)
  586. purge_group(28,0)
  587. purge_group(33,0)
  588. purge_group(38,0)
  589. purge_group(43,0)
  590. purge_group(48,0)
  591. purge_group(53,0)
  592. purge_group(58,0)
  593.  
  594. else
  595.  
  596. set_text($closepower, "Close On")
  597.  
  598. purge_group(3,1)
  599. purge_group(8,1)
  600. purge_group(13,1)
  601. purge_group(18,1)
  602. purge_group(23,1)
  603. purge_group(28,1)
  604. purge_group(33,1)
  605. purge_group(38,1)
  606. purge_group(43,1)
  607. purge_group(48,1)
  608. purge_group(53,1)
  609. purge_group(58,1)
  610. end if
  611.  
  612. end on
  613.  
  614. on ui_control ($mixpower)
  615.  
  616. if ($mixpower = 0)
  617.  
  618. set_text($mixpower, "Mix. Off")
  619.  
  620. purge_group(4,0)
  621. purge_group(9,0)
  622. purge_group(14,0)
  623. purge_group(19,0)
  624. purge_group(24,0)
  625. purge_group(29,0)
  626. purge_group(34,0)
  627. purge_group(39,0)
  628. purge_group(44,0)
  629. purge_group(49,0)
  630. purge_group(54,0)
  631. purge_group(59,0)
  632.  
  633. else
  634.  
  635. set_text($mixpower, "Mix. On")
  636.  
  637. purge_group(4,1)
  638. purge_group(9,1)
  639. purge_group(14,1)
  640. purge_group(19,1)
  641. purge_group(24,1)
  642. purge_group(29,1)
  643. purge_group(34,1)
  644. purge_group(39,1)
  645. purge_group(44,1)
  646. purge_group(49,1)
  647. purge_group(54,1)
  648. purge_group(59,1)
  649.  
  650. end if
  651.  
  652. end on
  653.  
  654. {AHDSR Workings}
  655.  
  656.  
  657. on ui_control ($Attack)
  658.  
  659. $ahdsr := 0
  660.  
  661. while($ahdsr < $NUM_GROUPS)
  662.  
  663. _set_engine_par($ENGINE_PAR_ATTACK,$Attack,$ahdsr,0,-1)
  664.  
  665. inc($ahdsr)
  666.  
  667. end while
  668.  
  669. set_knob_label($Attack, get_engine_par_disp($ENGINE_PAR_ATTACK, 0, 0, -1))
  670.  
  671. wait(10)
  672.  
  673. set_knob_label($Attack, get_engine_par_disp($ENGINE_PAR_ATTACK, 0, 0, -1))
  674.  
  675. end on
  676.  
  677.  
  678. on ui_control ($Hold)
  679.  
  680. $ahdsr := 0
  681.  
  682. while($ahdsr < $NUM_GROUPS)
  683.  
  684. _set_engine_par($ENGINE_PAR_HOLD,$Hold,$ahdsr,0,-1)
  685.  
  686. inc($ahdsr)
  687.  
  688. end while
  689.  
  690. set_knob_label($Hold, get_engine_par_disp($ENGINE_PAR_HOLD, 0, 0, -1))
  691.  
  692. wait(10)
  693.  
  694. set_knob_label($Hold, get_engine_par_disp($ENGINE_PAR_HOLD, 0, 0, -1))
  695.  
  696. end on
  697.  
  698. on ui_control ($Decay)
  699.  
  700. $ahdsr := 0
  701.  
  702. while($ahdsr < $NUM_GROUPS)
  703.  
  704. _set_engine_par($ENGINE_PAR_DECAY,$Decay,$ahdsr,0,-1)
  705.  
  706. inc($ahdsr)
  707.  
  708. end while
  709.  
  710. set_knob_label($Decay, get_engine_par_disp($ENGINE_PAR_DECAY, 0, 0, -1))
  711.  
  712. wait(10)
  713.  
  714. set_knob_label($Decay, get_engine_par_disp($ENGINE_PAR_DECAY, 0, 0, -1))
  715.  
  716. end on
  717.  
  718. on ui_control ($Sustain)
  719.  
  720. $ahdsr := 0
  721.  
  722. while($ahdsr < $NUM_GROUPS)
  723.  
  724. _set_engine_par($ENGINE_PAR_SUSTAIN,$Sustain,$ahdsr,0,-1)
  725.  
  726. inc($ahdsr)
  727.  
  728. end while
  729.  
  730. set_knob_label($Sustain, get_engine_par_disp($ENGINE_PAR_SUSTAIN, 0, 0, -1))
  731.  
  732. wait(10)
  733.  
  734. set_knob_label($Sustain, get_engine_par_disp($ENGINE_PAR_SUSTAIN, 0, 0, -1))
  735.  
  736. end on
  737.  
  738. on ui_control ($Release)
  739.  
  740. $ahdsr := 0
  741.  
  742. while($ahdsr < $NUM_GROUPS)
  743.  
  744. _set_engine_par($ENGINE_PAR_RELEASE,$Release,$ahdsr,0,-1)
  745.  
  746. inc($ahdsr)
  747.  
  748. end while
  749.  
  750. set_knob_label($Release, get_engine_par_disp($ENGINE_PAR_RELEASE, 0, 0, -1))
  751.  
  752. wait(10)
  753.  
  754. set_knob_label($Release, get_engine_par_disp($ENGINE_PAR_RELEASE, 0, 0, -1))
  755.  
  756. end on
  757.  
  758. {CONVOLUTION REVERB}
  759.  
  760. on ui_control ($reverb)
  761.  
  762. if ($reverb = 0)
  763.  
  764. set_text($reverb, "Convo. Off")
  765.  
  766. set_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS,1,-1,6,1)
  767.  
  768. else
  769.  
  770. set_text($reverb, "Convo. On")
  771.  
  772. set_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS,0,-1,6,1)
  773.  
  774. end if
  775.  
  776. end on
  777.  
  778. on ui_control ($convowet)
  779.  
  780. set_engine_par($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN,$convowet,-1,6,1)
  781.  
  782. set_text($ConvInfo," Wet Slider")
  783.  
  784. end on
  785.  
  786. on ui_control ($convodry)
  787.  
  788. set_engine_par($ENGINE_PAR_SEND_EFFECT_DRY_LEVEL,$convodry,-1,6,1)
  789.  
  790. set_text($ConvInfo," Dry Slider")
  791.  
  792. end on
  793.  
  794. on ui_control ($convodelay)
  795.  
  796. set_engine_par($ENGINE_PAR_IRC_PREDELAY,$convodelay,-1,6,1)
  797.  
  798. set_text($ConvInfo," Delay Slider")
  799.  
  800. end on
  801.  
  802. on ui_control ($convoearlyir)
  803.  
  804. set_engine_par($ENGINE_PAR_IRC_LENGTH_RATIO_ER,$convoearlyir,-1,6,1)
  805.  
  806. set_text($ConvInfo," Early Ir")
  807.  
  808. end on
  809.  
  810. on ui_control ($convolateir)
  811.  
  812. set_engine_par($ENGINE_PAR_IRC_LENGTH_RATIO_LR,$convolateir,-1,6,1)
  813.  
  814. set_text($ConvInfo," Late Ir")
  815.  
  816. end on
  817.  
  818.  
  819.  
  820. {Output routings. -1 is the "default (instrument)" output in Kontakt.}
  821.  
  822.  
  823. on ui_control ($output)
  824.  
  825. if ($output = 0)
  826.  
  827. set_text($output, "Multi output off")
  828.  
  829. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,0,-1,-1)
  830. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,5,-1,-1)
  831. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,10,-1,-1)
  832. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,15,-1,-1)
  833. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,20,-1,-1)
  834. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,25,-1,-1)
  835. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,30,-1,-1)
  836. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,35,-1,-1)
  837. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,40,-1,-1)
  838. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,45,-1,-1)
  839. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,50,-1,-1)
  840. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,55,-1,-1)
  841.  
  842. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,1,-1,-1)
  843. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,6,-1,-1)
  844. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,11,-1,-1)
  845. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,16,-1,-1)
  846. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,21,-1,-1)
  847. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,26,-1,-1)
  848. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,31,-1,-1)
  849. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,36,-1,-1)
  850. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,41,-1,-1)
  851. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,46,-1,-1)
  852. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,51,-1,-1)
  853. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,56,-1,-1)
  854.  
  855. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,2,-1,-1)
  856. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,7,-1,-1)
  857. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,12,-1,-1)
  858. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,17,-1,-1)
  859. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,22,-1,-1)
  860. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,27,-1,-1)
  861. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,32,-1,-1)
  862. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,37,-1,-1)
  863. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,42,-1,-1)
  864. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,47,-1,-1)
  865. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,52,-1,-1)
  866. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,57,-1,-1)
  867.  
  868. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,3,-1,-1)
  869. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,8,-1,-1)
  870. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,13,-1,-1)
  871. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,18,-1,-1)
  872. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,23,-1,-1)
  873. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,28,-1,-1)
  874. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,33,-1,-1)
  875. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,38,-1,-1)
  876. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,43,-1,-1)
  877. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,48,-1,-1)
  878. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,53,-1,-1)
  879. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,58,-1,-1)
  880.  
  881. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,4,-1,-1)
  882. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,9,-1,-1)
  883. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,14,-1,-1)
  884. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,19,-1,-1)
  885. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,24,-1,-1)
  886. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,29,-1,-1)
  887. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,34,-1,-1)
  888. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,39,-1,-1)
  889. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,44,-1,-1)
  890. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,49,-1,-1)
  891. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,54,-1,-1)
  892. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,59,-1,-1)
  893.  
  894.  
  895.  
  896. else
  897.  
  898. set_text($output, "Multi output on")
  899.  
  900. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,0,0,-1,-1)
  901. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,0,5,-1,-1)
  902. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,0,10,-1,-1)
  903. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,0,15,-1,-1)
  904. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,0,20,-1,-1)
  905. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,0,25,-1,-1)
  906. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,0,30,-1,-1)
  907. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,0,35,-1,-1)
  908. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,0,40,-1,-1)
  909. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,0,45,-1,-1)
  910. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,0,50,-1,-1)
  911. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,0,55,-1,-1)
  912.  
  913. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,1,1,-1,-1)
  914. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,1,6,-1,-1)
  915. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,1,11,-1,-1)
  916. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,1,16,-1,-1)
  917. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,1,21,-1,-1)
  918. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,1,26,-1,-1)
  919. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,1,31,-1,-1)
  920. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,1,36,-1,-1)
  921. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,1,41,-1,-1)
  922. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,1,46,-1,-1)
  923. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,1,51,-1,-1)
  924. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,1,56,-1,-1)
  925.  
  926. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,2,2,-1,-1)
  927. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,2,7,-1,-1)
  928. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,2,12,-1,-1)
  929. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,2,17,-1,-1)
  930. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,2,22,-1,-1)
  931. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,2,27,-1,-1)
  932. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,2,32,-1,-1)
  933. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,2,37,-1,-1)
  934. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,2,42,-1,-1)
  935. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,2,47,-1,-1)
  936. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,2,52,-1,-1)
  937. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,2,57,-1,-1)
  938.  
  939. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,3,3,-1,-1)
  940. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,3,8,-1,-1)
  941. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,3,13,-1,-1)
  942. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,3,18,-1,-1)
  943. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,3,23,-1,-1)
  944. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,3,28,-1,-1)
  945. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,3,33,-1,-1)
  946. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,3,38,-1,-1)
  947. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,3,43,-1,-1)
  948. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,3,48,-1,-1)
  949. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,3,53,-1,-1)
  950. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,3,58,-1,-1)
  951.  
  952. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,4,4,-1,-1)
  953. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,4,9,-1,-1)
  954. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,4,14,-1,-1)
  955. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,4,19,-1,-1)
  956. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,4,24,-1,-1)
  957. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,4,29,-1,-1)
  958. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,4,34,-1,-1)
  959. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,4,39,-1,-1)
  960. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,4,44,-1,-1)
  961. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,4,49,-1,-1)
  962. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,4,54,-1,-1)
  963. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,4,59,-1,-1)
  964.  
  965.  
  966. end if
  967.  
  968. end on
  969.  
  970. {Output routings ends here}
  971.  
  972.  
  973.  
  974.  
  975.  
  976.  
  977. {here begins code for the text, that Kontakt displays when certain notes are pressed down}
  978.  
  979. on note
  980.  
  981. select ($EVENT_NOTE)
  982.  
  983. case 24
  984.  
  985. $keyswitch1 := 1
  986. $keyswitch2 := 0
  987. $keyswitch3 := 0
  988. $keyswitch4 := 0
  989. $keyswitch5 := 0
  990. $keyswitch6 := 0
  991. $keyswitch7 := 0
  992. $keyswitch8 := 0
  993. $keyswitch9 := 0
  994. $keyswitch10 := 0
  995. $keyswitch11 := 0
  996. $keyswitch12 := 0
  997.  
  998. case 25
  999.  
  1000. $keyswitch1 := 0
  1001. $keyswitch2 := 1
  1002. $keyswitch3 := 0
  1003. $keyswitch4 := 0
  1004. $keyswitch5 := 0
  1005. $keyswitch6 := 0
  1006. $keyswitch7 := 0
  1007. $keyswitch8 := 0
  1008. $keyswitch9 := 0
  1009. $keyswitch10 := 0
  1010. $keyswitch11 := 0
  1011. $keyswitch12 := 0
  1012.  
  1013. case 26
  1014.  
  1015. $keyswitch1 := 0
  1016. $keyswitch2 := 0
  1017. $keyswitch3 := 1
  1018. $keyswitch4 := 0
  1019. $keyswitch5 := 0
  1020. $keyswitch6 := 0
  1021. $keyswitch7 := 0
  1022. $keyswitch8 := 0
  1023. $keyswitch9 := 0
  1024. $keyswitch10 := 0
  1025. $keyswitch11 := 0
  1026. $keyswitch12 := 0
  1027.  
  1028. case 27
  1029.  
  1030. $keyswitch1 := 0
  1031. $keyswitch2 := 0
  1032. $keyswitch3 := 0
  1033. $keyswitch4 := 1
  1034. $keyswitch5 := 0
  1035. $keyswitch6 := 0
  1036. $keyswitch7 := 0
  1037. $keyswitch8 := 0
  1038. $keyswitch9 := 0
  1039. $keyswitch10 := 0
  1040. $keyswitch11 := 0
  1041. $keyswitch12 := 0
  1042.  
  1043. case 28
  1044.  
  1045. $keyswitch1 := 0
  1046. $keyswitch2 := 0
  1047. $keyswitch3 := 0
  1048. $keyswitch4 := 0
  1049. $keyswitch5 := 1
  1050. $keyswitch6 := 0
  1051. $keyswitch7 := 0
  1052. $keyswitch8 := 0
  1053. $keyswitch9 := 0
  1054. $keyswitch10 := 0
  1055. $keyswitch11 := 0
  1056. $keyswitch12 := 0
  1057.  
  1058.  
  1059. case 29
  1060.  
  1061. $keyswitch1 := 0
  1062. $keyswitch2 := 0
  1063. $keyswitch3 := 0
  1064. $keyswitch4 := 0
  1065. $keyswitch5 := 0
  1066. $keyswitch6 := 1
  1067. $keyswitch7 := 0
  1068. $keyswitch8 := 0
  1069. $keyswitch9 := 0
  1070. $keyswitch10 := 0
  1071. $keyswitch11 := 0
  1072. $keyswitch12 := 0
  1073.  
  1074. case 30
  1075.  
  1076. $keyswitch1 := 0
  1077. $keyswitch2 := 0
  1078. $keyswitch3 := 0
  1079. $keyswitch4 := 0
  1080. $keyswitch5 := 0
  1081. $keyswitch6 := 0
  1082. $keyswitch7 := 1
  1083. $keyswitch8 := 0
  1084. $keyswitch9 := 0
  1085. $keyswitch10 := 0
  1086. $keyswitch11 := 0
  1087. $keyswitch12 := 0
  1088.  
  1089. case 31
  1090.  
  1091. $keyswitch1 := 0
  1092. $keyswitch2 := 0
  1093. $keyswitch3 := 0
  1094. $keyswitch4 := 0
  1095. $keyswitch5 := 0
  1096. $keyswitch6 := 0
  1097. $keyswitch7 := 0
  1098. $keyswitch8 := 1
  1099. $keyswitch9 := 0
  1100. $keyswitch10 := 0
  1101. $keyswitch11 := 0
  1102. $keyswitch12 := 0
  1103.  
  1104. case 32
  1105.  
  1106. $keyswitch1 := 0
  1107. $keyswitch2 := 0
  1108. $keyswitch3 := 0
  1109. $keyswitch4 := 0
  1110. $keyswitch5 := 0
  1111. $keyswitch6 := 0
  1112. $keyswitch7 := 0
  1113. $keyswitch8 := 0
  1114. $keyswitch9 := 1
  1115. $keyswitch10 := 0
  1116. $keyswitch11 := 0
  1117. $keyswitch12 := 0
  1118.  
  1119. case 33
  1120.  
  1121. $keyswitch1 := 0
  1122. $keyswitch2 := 0
  1123. $keyswitch3 := 0
  1124. $keyswitch4 := 0
  1125. $keyswitch5 := 0
  1126. $keyswitch6 := 0
  1127. $keyswitch7 := 0
  1128. $keyswitch8 := 0
  1129. $keyswitch9 := 0
  1130. $keyswitch10 := 1
  1131. $keyswitch11 := 0
  1132. $keyswitch12 := 0
  1133.  
  1134. case 34
  1135.  
  1136. $keyswitch1 := 0
  1137. $keyswitch2 := 0
  1138. $keyswitch3 := 0
  1139. $keyswitch4 := 0
  1140. $keyswitch5 := 0
  1141. $keyswitch6 := 0
  1142. $keyswitch7 := 0
  1143. $keyswitch8 := 0
  1144. $keyswitch9 := 0
  1145. $keyswitch10 := 0
  1146. $keyswitch11 := 1
  1147. $keyswitch12 := 0
  1148.  
  1149. case 35
  1150.  
  1151. $keyswitch1 := 0
  1152. $keyswitch2 := 0
  1153. $keyswitch3 := 0
  1154. $keyswitch4 := 0
  1155. $keyswitch5 := 0
  1156. $keyswitch6 := 0
  1157. $keyswitch7 := 0
  1158. $keyswitch8 := 0
  1159. $keyswitch9 := 0
  1160. $keyswitch10 := 0
  1161. $keyswitch11 := 0
  1162. $keyswitch12 := 1
  1163.  
  1164. end select
  1165.  
  1166. if ($keyswitch1 = 1)
  1167.  
  1168. select ($EVENT_NOTE)
  1169.  
  1170. case 24
  1171. message ("Major/min.7 crescendo plain variations - Keyswitch")
  1172.  
  1173. case 38
  1174. message ("D tritonus")
  1175.  
  1176. case 39
  1177. message ("Eb tritonus")
  1178.  
  1179. case 40
  1180. message ("E tritonus (Ori.)")
  1181.  
  1182. case 41
  1183. message ("F tritonus")
  1184.  
  1185. case 42
  1186. message ("F# tritonus")
  1187.  
  1188. case 43
  1189. message ("G7#11#9")
  1190.  
  1191. case 44
  1192. message ("Ab7#11#9")
  1193.  
  1194. case 45
  1195. message ("A7#11#9 (Ori.)")
  1196.  
  1197. case 46
  1198. message ("Bb7#11#9")
  1199.  
  1200. case 47
  1201. message ("B7#11#9")
  1202.  
  1203. case 48
  1204. message ("C7#11#9")
  1205.  
  1206. case 49
  1207. message ("Db7b9/B (omit3)")
  1208.  
  1209. case 50
  1210. message ("D7b9/C (omit3)")
  1211.  
  1212. case 51
  1213. message ("Eb7b9/Db (omit3)")
  1214.  
  1215. case 52
  1216. message ("E7b9/D (omit3) (Ori.)")
  1217.  
  1218. case 53
  1219. message ("F7b9/Eb (omit3)")
  1220.  
  1221. case 54
  1222. message ("F#7b9/E (omit3)")
  1223.  
  1224. case 55
  1225. message ("G7b9#5")
  1226.  
  1227. case 56
  1228. message ("Ab7b9#5")
  1229.  
  1230. case 57
  1231. message ("A7b9#5 (Ori.)")
  1232.  
  1233. case 58
  1234. message ("Bb7b9#5")
  1235.  
  1236. case 59
  1237. message ("B7b9/A (omit3)")
  1238.  
  1239. case 60
  1240. message ("C7b9/Bb (omit3) (Ori.)")
  1241.  
  1242. case 61
  1243. message ("Db7b9/B (omit3)")
  1244.  
  1245. case 62
  1246. message ("D7#11#9")
  1247.  
  1248. case 63
  1249. message ("Eb7#11#9")
  1250.  
  1251. case 64
  1252. message ("E7#11#9")
  1253.  
  1254. case 65
  1255. message ("F7#11#9 (Ori.)")
  1256.  
  1257. case 66
  1258. message ("Gb7#11#9")
  1259.  
  1260. case 67
  1261. message ("G7#11#9")
  1262.  
  1263. case 68
  1264. message ("Ab7#11#9")
  1265.  
  1266. case 69
  1267. message ("A7#11#9")
  1268.  
  1269. case 70
  1270. message ("Bb7#11#9")
  1271.  
  1272. case 71
  1273. message ("B7#11#9 (Ori.)")
  1274.  
  1275. case 72
  1276. message ("C7#11#9")
  1277.  
  1278. case 73
  1279. message ("Db7#11#9")
  1280.  
  1281. case 74
  1282. message ("D7b9#5")
  1283.  
  1284. case 75
  1285. message ("Eb7b9#5")
  1286.  
  1287. case 76
  1288. message ("E7b9#5")
  1289.  
  1290. case 77
  1291. message ("F7b9#5 (Ori.)")
  1292.  
  1293. case 78
  1294. message ("F#7b9#5")
  1295.  
  1296. case 79
  1297. message ("G7b9#5")
  1298.  
  1299. case 80
  1300. message ("Abb9#5")
  1301.  
  1302. case 81
  1303. message ("Ab9#5")
  1304.  
  1305. case 82
  1306. message ("Bb tritonus")
  1307.  
  1308. case 83
  1309. message ("B tritonus")
  1310.  
  1311. case 84
  1312. message ("C tritonus (Ori.)")
  1313.  
  1314. case 85
  1315. message ("Db tritonus")
  1316.  
  1317. case 86
  1318. message ("D tritonus")
  1319.  
  1320. case 87
  1321. message ("Eb tritonus")
  1322.  
  1323. case 88
  1324. message ("E7#11#9")
  1325.  
  1326. case 89
  1327. message ("F7#11#9")
  1328.  
  1329. case 90
  1330. message ("Gb7#11#9")
  1331.  
  1332. case 91
  1333. message ("G7#11#9 (Ori.)")
  1334.  
  1335. case 92
  1336. message ("Ab7#11#9")
  1337.  
  1338. case 93
  1339. message ("A7b9#5")
  1340.  
  1341. case 94
  1342. message ("Bb7b9#5")
  1343.  
  1344. case 95
  1345. message ("B7b9#5 (Ori.)")
  1346.  
  1347. case 96
  1348. message ("C7b9#5")
  1349.  
  1350. case 97
  1351. message ("Db7b9#5")
  1352.  
  1353.  
  1354.  
  1355.  
  1356.  
  1357.  
  1358. end select
  1359.  
  1360. end if
  1361.  
  1362.  
  1363. if ($keyswitch2 = 1)
  1364.  
  1365. select ($EVENT_NOTE)
  1366.  
  1367. case 25
  1368.  
  1369. message("Major7 crescendo plain variations - Keyswitch")
  1370.  
  1371. case 38
  1372. message ("Dmaj7b5sus4")
  1373.  
  1374. case 39
  1375. message ("Ebmaj7b5sus4")
  1376.  
  1377. case 40
  1378. message ("Emaj7b5sus4 (Ori.)")
  1379.  
  1380. case 41
  1381. message ("Fmaj7b5sus4")
  1382.  
  1383. case 42
  1384. message ("F#maj7b5sus4")
  1385.  
  1386. case 43
  1387. message ("Gmaj7b5sus4")
  1388.  
  1389. case 44
  1390. message ("G#maj7b5sus4 (Ori.)")
  1391.  
  1392. case 45
  1393. message ("Amaj7b5sus4")
  1394.  
  1395. case 46
  1396. message ("Bbmaj7b5sus4")
  1397.  
  1398. case 47
  1399. message ("Bmaj11b9 (omit5)")
  1400.  
  1401. case 48
  1402. message ("Cmaj11b9 (omit5) (Ori.)")
  1403.  
  1404. case 49
  1405. message ("Dbmaj11b9 (omit5)")
  1406.  
  1407. case 50
  1408. message ("Dmaj11b9 (omit5)")
  1409.  
  1410. case 51
  1411. message ("Ebmaj11b9 (omit5)")
  1412.  
  1413. case 52
  1414. message ("Emaj7sus4/C")
  1415.  
  1416. case 53
  1417. message ("Fmaj7sus4/Db")
  1418.  
  1419. case 54
  1420. message ("F#maj7sus4/D (Ori.)")
  1421.  
  1422. case 55
  1423. message ("Gmaj7sus4/Eb")
  1424.  
  1425. case 56
  1426. message ("Abmaj7sus4/E")
  1427.  
  1428. case 57
  1429. message ("No sample")
  1430.  
  1431. case 58
  1432. message ("No sample")
  1433.  
  1434. case 59
  1435. message ("Bmaj7sus4/G")
  1436.  
  1437. case 60
  1438. message ("Cmaj7sus4/Ab")
  1439.  
  1440. case 61
  1441. message ("Dbmaj7sus4/A")
  1442.  
  1443. case 62
  1444. message ("Dmaj7sus4/Bb (Ori)")
  1445.  
  1446. case 63
  1447. message ("Ebmaj7sus4/B")
  1448.  
  1449. case 64
  1450. message ("Emaj7sus4/C")
  1451.  
  1452.  
  1453. case 65
  1454. message ("Fmaj11b9o5/G")
  1455.  
  1456. case 66
  1457. message ("Gbmaj11b9o5/Ab")
  1458.  
  1459. case 67
  1460. message ("Gmaj11b9o5/A")
  1461.  
  1462. case 68
  1463. message ("Abmaj11b9o5/Bb (Ori.)")
  1464.  
  1465. case 69
  1466. message ("Amaj11b9o5/B")
  1467.  
  1468. case 70
  1469. message ("Bbmaj11b9o5/C")
  1470.  
  1471. case 71
  1472. message ("Bmaj11b9o5/Db")
  1473.  
  1474. case 72
  1475. message ("Cmajadd9#11")
  1476.  
  1477. case 73
  1478. message ("Dbmajadd9#11")
  1479.  
  1480. case 74
  1481. message ("Dmajadd9#11")
  1482.  
  1483. case 75
  1484. message ("Ebmajadd9#11 (Ori.)")
  1485.  
  1486. case 76
  1487. message ("Emajadd9#11")
  1488.  
  1489. case 77
  1490. message ("Fmaj7add9#11")
  1491.  
  1492. case 78
  1493. message ("Gbmaj7add9#11")
  1494.  
  1495. case 79
  1496. message ("Gmaj7add9#11 (Ori.)")
  1497.  
  1498. case 80
  1499. message ("Abmaj7add9#11")
  1500.  
  1501. case 81
  1502. message ("Amaj7add9#11")
  1503.  
  1504. case 82
  1505. message ("No sample")
  1506.  
  1507. case 83
  1508. message ("No sample")
  1509.  
  1510. case 84
  1511. message ("No sample")
  1512.  
  1513. case 85
  1514. message ("No sample")
  1515.  
  1516. case 86
  1517. message ("No sample")
  1518.  
  1519. case 87
  1520. message ("No sample")
  1521.  
  1522. case 88
  1523. message ("No sample")
  1524.  
  1525. case 89
  1526. message ("No sample")
  1527.  
  1528. case 90
  1529. message ("No sample")
  1530.  
  1531. case 91
  1532. message ("No sample")
  1533.  
  1534. case 92
  1535. message ("No sample")
  1536.  
  1537. case 93
  1538. message ("No sample")
  1539.  
  1540. case 94
  1541. message ("No sample")
  1542.  
  1543. case 95
  1544. message ("No sample")
  1545.  
  1546. case 96
  1547. message ("No sample")
  1548.  
  1549. case 97
  1550. message ("No sample")
  1551.  
  1552.  
  1553.  
  1554.  
  1555.  
  1556.  
  1557. end select
  1558.  
  1559. end if
  1560.  
  1561. if ($keyswitch3 = 1)
  1562.  
  1563. select ($EVENT_NOTE)
  1564.  
  1565. case 26
  1566.  
  1567. message("Major/minor7 wave plain variations - Keyswitch")
  1568.  
  1569. case 38
  1570. message ("D tritonus")
  1571.  
  1572. case 39
  1573. message ("Eb tritonus")
  1574.  
  1575. case 40
  1576. message ("E tritonus (Ori.)")
  1577.  
  1578. case 41
  1579. message ("F tritonus")
  1580.  
  1581. case 42
  1582. message ("F# tritonus")
  1583.  
  1584. case 43
  1585. message ("G7#11#9")
  1586.  
  1587. case 44
  1588. message ("Ab7#11#9")
  1589.  
  1590. case 45
  1591. message ("A7#11#9 (Ori.)")
  1592.  
  1593. case 46
  1594. message ("Bb7#11#9")
  1595.  
  1596. case 47
  1597. message ("B7#11#9")
  1598.  
  1599. case 48
  1600. message ("C7#11#9")
  1601.  
  1602. case 49
  1603. message ("Db7b9/B (omit3)")
  1604.  
  1605. case 50
  1606. message ("D7b9/C (omit3)")
  1607.  
  1608. case 51
  1609. message ("Eb7b9/Db (omit3)")
  1610.  
  1611. case 52
  1612. message ("E7b9/D (omit3) (Ori.)")
  1613.  
  1614. case 53
  1615. message ("F7b9/Eb (omit3)")
  1616.  
  1617. case 54
  1618. message ("F#7b9/E (omit3)")
  1619.  
  1620. case 55
  1621. message ("G7b9#5")
  1622.  
  1623. case 56
  1624. message ("Ab7b9#5")
  1625.  
  1626. case 57
  1627. message ("A7b9#5 (Ori.)")
  1628.  
  1629. case 58
  1630. message ("Bb7b9#5")
  1631.  
  1632. case 59
  1633. message ("B7b9/A (omit3)")
  1634.  
  1635. case 60
  1636. message ("C7b9/Bb (omit3) (Ori.)")
  1637.  
  1638. case 61
  1639. message ("Db7b9/B (omit3)")
  1640.  
  1641. case 62
  1642. message ("D7#11#9")
  1643.  
  1644. case 63
  1645. message ("Eb7#11#9")
  1646.  
  1647. case 64
  1648. message ("E7#11#9")
  1649.  
  1650. case 65
  1651. message ("F7#11#9 (Ori.)")
  1652.  
  1653. case 66
  1654. message ("Gb7#11#9")
  1655.  
  1656. case 67
  1657. message ("G7#11#9")
  1658.  
  1659. case 68
  1660. message ("Ab7#11#9")
  1661.  
  1662. case 69
  1663. message ("A7#11#9")
  1664.  
  1665. case 70
  1666. message ("Bb7#11#9")
  1667.  
  1668. case 71
  1669. message ("B7#11#9 (Ori.)")
  1670.  
  1671. case 72
  1672. message ("C7#11#9")
  1673.  
  1674. case 73
  1675. message ("Db7#11#9")
  1676.  
  1677. case 74
  1678. message ("D7b9#5")
  1679.  
  1680. case 75
  1681. message ("Eb7b9#5")
  1682.  
  1683. case 76
  1684. message ("E7b9#5")
  1685.  
  1686. case 77
  1687. message ("F7b9#5 (Ori.)")
  1688.  
  1689. case 78
  1690. message ("F#7b9#5")
  1691.  
  1692. case 79
  1693. message ("G7b9#5")
  1694.  
  1695. case 80
  1696. message ("Abb9#5")
  1697.  
  1698. case 81
  1699. message ("Ab9#5")
  1700.  
  1701. case 82
  1702. message ("Bb tritonus")
  1703.  
  1704. case 83
  1705. message ("B tritonus")
  1706.  
  1707. case 84
  1708. message ("C tritonus (Ori.)")
  1709.  
  1710. case 85
  1711. message ("Db tritonus")
  1712.  
  1713. case 86
  1714. message ("D tritonus")
  1715.  
  1716. case 87
  1717. message ("Eb tritonus")
  1718.  
  1719. case 88
  1720. message ("E7#11#9")
  1721.  
  1722. case 89
  1723. message ("F7#11#9")
  1724.  
  1725. case 90
  1726. message ("Gb7#11#9")
  1727.  
  1728. case 91
  1729. message ("G7#11#9 (Ori.)")
  1730.  
  1731. case 92
  1732. message ("Ab7#11#9")
  1733.  
  1734. case 93
  1735. message ("A7b9#5")
  1736.  
  1737. case 94
  1738. message ("Bb7b9#5")
  1739.  
  1740. case 95
  1741. message ("B7b9#5 (Ori.)")
  1742.  
  1743. case 96
  1744. message ("C7b9#5")
  1745.  
  1746. case 97
  1747. message ("Db7b9#5")
  1748.  
  1749.  
  1750.  
  1751. end select
  1752.  
  1753. end if
  1754.  
  1755. if ($keyswitch4 = 1)
  1756.  
  1757. select ($EVENT_NOTE)
  1758.  
  1759. case 27
  1760.  
  1761. message("Major7 wave plain variations - Keyswitch")
  1762.  
  1763. case 38
  1764. message ("Dmaj7b5sus4")
  1765.  
  1766. case 39
  1767. message ("Ebmaj7b5sus4")
  1768.  
  1769. case 40
  1770. message ("Emaj7b5sus4 (Ori.)")
  1771.  
  1772. case 41
  1773. message ("Fmaj7b5sus4")
  1774.  
  1775. case 42
  1776. message ("F#maj7b5sus4")
  1777.  
  1778. case 43
  1779. message ("Gmaj7b5sus4")
  1780.  
  1781. case 44
  1782. message ("G#maj7b5sus4 (Ori.)")
  1783.  
  1784. case 45
  1785. message ("Amaj7b5sus4")
  1786.  
  1787. case 46
  1788. message ("Bbmaj7b5sus4")
  1789.  
  1790. case 47
  1791. message ("Bmaj11b9 (omit5)")
  1792.  
  1793. case 48
  1794. message ("Cmaj11b9 (omit5) (Ori.)")
  1795.  
  1796. case 49
  1797. message ("Dbmaj11b9 (omit5)")
  1798.  
  1799. case 50
  1800. message ("Dmaj11b9 (omit5)")
  1801.  
  1802. case 51
  1803. message ("Ebmaj11b9 (omit5)")
  1804.  
  1805. case 52
  1806. message ("Emaj7sus4/C")
  1807.  
  1808. case 53
  1809. message ("Fmaj7sus4/Db")
  1810.  
  1811. case 54
  1812. message ("F#maj7sus4/D (Ori.)")
  1813.  
  1814. case 55
  1815. message ("Gmaj7sus4/Eb")
  1816.  
  1817. case 56
  1818. message ("Abmaj7sus4/E")
  1819.  
  1820. case 57
  1821. message ("No sample")
  1822.  
  1823. case 58
  1824. message ("No sample")
  1825.  
  1826. case 59
  1827. message ("Bmaj7sus4/G")
  1828.  
  1829. case 60
  1830. message ("Cmaj7sus4/Ab")
  1831.  
  1832. case 61
  1833. message ("Dbmaj7sus4/A")
  1834.  
  1835. case 62
  1836. message ("Dmaj7sus4/Bb (Ori)")
  1837.  
  1838. case 63
  1839. message ("Ebmaj7sus4/B")
  1840.  
  1841. case 64
  1842. message ("Emaj7sus4/C")
  1843.  
  1844.  
  1845. case 65
  1846. message ("Fmaj11b9o5/G")
  1847.  
  1848. case 66
  1849. message ("Gbmaj11b9o5/Ab")
  1850.  
  1851. case 67
  1852. message ("Gmaj11b9o5/A")
  1853.  
  1854. case 68
  1855. message ("Abmaj11b9o5/Bb (Ori.)")
  1856.  
  1857. case 69
  1858. message ("Amaj11b9o5/B")
  1859.  
  1860. case 70
  1861. message ("Bbmaj11b9o5/C")
  1862.  
  1863. case 71
  1864. message ("Bmaj11b9o5/Db")
  1865.  
  1866. case 72
  1867. message ("Cmajadd9#11")
  1868.  
  1869. case 73
  1870. message ("Dbmajadd9#11")
  1871.  
  1872. case 74
  1873. message ("Dmajadd9#11")
  1874.  
  1875. case 75
  1876. message ("Ebmajadd9#11 (Ori.)")
  1877.  
  1878. case 76
  1879. message ("Emajadd9#11")
  1880.  
  1881. case 77
  1882. message ("Fmaj7add9#11")
  1883.  
  1884. case 78
  1885. message ("Gbmaj7add9#11")
  1886.  
  1887. case 79
  1888. message ("Gmaj7add9#11 (Ori.)")
  1889.  
  1890. case 80
  1891. message ("Abmaj7add9#11")
  1892.  
  1893. case 81
  1894. message ("Amaj7add9#11")
  1895.  
  1896. case 82
  1897. message ("No sample")
  1898.  
  1899. case 83
  1900. message ("No sample")
  1901.  
  1902. case 84
  1903. message ("No sample")
  1904.  
  1905. case 85
  1906. message ("No sample")
  1907.  
  1908. case 86
  1909. message ("No sample")
  1910.  
  1911. case 87
  1912. message ("No sample")
  1913.  
  1914. case 88
  1915. message ("No sample")
  1916.  
  1917. case 89
  1918. message ("No sample")
  1919.  
  1920. case 90
  1921. message ("No sample")
  1922.  
  1923. case 91
  1924. message ("No sample")
  1925.  
  1926. case 92
  1927. message ("No sample")
  1928.  
  1929. case 93
  1930. message ("No sample")
  1931.  
  1932. case 94
  1933. message ("No sample")
  1934.  
  1935. case 95
  1936. message ("No sample")
  1937.  
  1938. case 96
  1939. message ("No sample")
  1940.  
  1941. case 97
  1942. message ("No sample")
  1943.  
  1944.  
  1945.  
  1946.  
  1947.  
  1948. end select
  1949.  
  1950. end if
  1951.  
  1952.  
  1953. if ($keyswitch5 = 1)
  1954.  
  1955. select ($EVENT_NOTE)
  1956.  
  1957. case 28
  1958.  
  1959. message("Major/min7 tremolo crescendo variations - Keyswitch")
  1960.  
  1961. case 38
  1962. message ("No sample")
  1963.  
  1964. case 39
  1965. message ("No sample")
  1966.  
  1967. case 40
  1968. message ("No sample")
  1969.  
  1970. case 41
  1971. message ("No sample")
  1972.  
  1973. case 42
  1974. message ("No sample")
  1975.  
  1976. case 43
  1977. message ("No sample")
  1978.  
  1979. case 44
  1980. message ("No sample")
  1981.  
  1982. case 45
  1983. message ("No sample")
  1984.  
  1985. case 46
  1986. message ("No sample")
  1987.  
  1988. case 47
  1989. message ("No sample")
  1990.  
  1991. case 48
  1992. message ("No sample")
  1993.  
  1994. case 49
  1995. message ("Db7b9/B (omit3)")
  1996.  
  1997. case 50
  1998. message ("D7b9/C (omit3)")
  1999.  
  2000. case 51
  2001. message ("Eb7b9/Db (omit3)")
  2002.  
  2003. case 52
  2004. message ("E7b9/D (omit3) (Ori.)")
  2005.  
  2006. case 53
  2007. message ("F7b9/Eb (omit3)")
  2008.  
  2009. case 54
  2010. message ("F#7b9/E (omit3)")
  2011.  
  2012. case 55
  2013. message ("No sample")
  2014.  
  2015. case 56
  2016. message ("No sample")
  2017.  
  2018. case 57
  2019. message ("A7b9#5")
  2020.  
  2021. case 58
  2022. message ("Bb7b9#5")
  2023.  
  2024. case 59
  2025. message ("B7b9/A (omit3)")
  2026.  
  2027. case 60
  2028. message ("C7b9/Bb (omit3) (Ori.)")
  2029.  
  2030. case 61
  2031. message ("Db7b9/B (omit3)")
  2032.  
  2033. case 62
  2034. message ("D7#11#9")
  2035.  
  2036. case 63
  2037. message ("Eb7#11#9")
  2038.  
  2039. case 64
  2040. message ("E7#11#9")
  2041.  
  2042. case 65
  2043. message ("F7#11#9 (Ori.)")
  2044.  
  2045. case 66
  2046. message ("Gb7#11#9")
  2047.  
  2048. case 67
  2049. message ("G7#11#9")
  2050.  
  2051. case 68
  2052. message ("No sample")
  2053.  
  2054. case 69
  2055. message ("No sample")
  2056.  
  2057. case 70
  2058. message ("No sample")
  2059.  
  2060. case 71
  2061. message ("No sample")
  2062.  
  2063. case 72
  2064. message ("No sample")
  2065.  
  2066. case 73
  2067. message ("No sample")
  2068.  
  2069. case 74
  2070. message ("D7b9#5")
  2071.  
  2072. case 75
  2073. message ("Eb7b9#5")
  2074.  
  2075. case 76
  2076. message ("E7b9#5")
  2077.  
  2078. case 77
  2079. message ("F7b9#5 (Ori.)")
  2080.  
  2081. case 78
  2082. message ("F#7b9#5")
  2083.  
  2084. case 79
  2085. message ("G7b9#5")
  2086.  
  2087. case 80
  2088. message ("Abb9#5")
  2089.  
  2090. case 81
  2091. message ("Ab9#5")
  2092.  
  2093. case 82
  2094. message ("Bb tritonus")
  2095.  
  2096. case 83
  2097. message ("B tritonus")
  2098.  
  2099. case 84
  2100. message ("C tritonus (Ori.)")
  2101.  
  2102. case 85
  2103. message ("Db tritonus")
  2104.  
  2105. case 86
  2106. message ("D tritonus")
  2107.  
  2108. case 87
  2109. message ("Eb tritonus")
  2110.  
  2111. case 88
  2112. message ("E7#11#9")
  2113.  
  2114. case 89
  2115. message ("F7#11#9")
  2116.  
  2117. case 90
  2118. message ("Gb7#11#9")
  2119.  
  2120. case 91
  2121. message ("G7#11#9 (Ori.)")
  2122.  
  2123. case 92
  2124. message ("Ab7#11#9")
  2125.  
  2126. case 93
  2127. message ("No sample")
  2128.  
  2129. case 94
  2130. message ("No sample")
  2131.  
  2132. case 95
  2133. message ("No sample")
  2134.  
  2135. case 96
  2136. message ("No sample")
  2137.  
  2138. case 97
  2139. message ("No sample")
  2140.  
  2141.  
  2142.  
  2143. end select
  2144.  
  2145. end if
  2146.  
  2147.  
  2148. if ($keyswitch6 = 1)
  2149.  
  2150. select ($EVENT_NOTE)
  2151.  
  2152. case 29
  2153.  
  2154. message("Major7 tremolo crescendo variations - Keyswitch")
  2155.  
  2156.  
  2157. case 38
  2158. message ("Dmaj7b5sus4")
  2159.  
  2160. case 39
  2161. message ("Ebmaj7b5sus4")
  2162.  
  2163. case 40
  2164. message ("Emaj7b5sus4 (Ori.)")
  2165.  
  2166. case 41
  2167. message ("Fmaj7b5sus4")
  2168.  
  2169. case 42
  2170. message ("F#maj7b5sus4")
  2171.  
  2172. case 43
  2173. message ("Gmaj7b5sus4")
  2174.  
  2175. case 44
  2176. message ("No sample")
  2177.  
  2178. case 45
  2179. message ("Amaj11b9 (omit5)")
  2180.  
  2181. case 46
  2182. message ("Bbmaj11b9 (omit5)")
  2183.  
  2184. case 47
  2185. message ("Bmaj11b9 (omit5)")
  2186.  
  2187. case 48
  2188. message ("Cmaj11b9 (omit5) (Ori.)")
  2189.  
  2190. case 49
  2191. message ("Dbmaj11b9 (omit5)")
  2192.  
  2193. case 50
  2194. message ("Dmaj11b9 (omit5)")
  2195.  
  2196. case 51
  2197. message ("Ebmaj11b9 (omit5)")
  2198.  
  2199. case 52
  2200. message ("Emaj7sus4/C")
  2201.  
  2202. case 53
  2203. message ("Fmaj7sus4/Db")
  2204.  
  2205. case 54
  2206. message ("F#maj7sus4/D (Ori.)")
  2207.  
  2208. case 55
  2209. message ("Gmaj7sus4/Eb")
  2210.  
  2211. case 56
  2212. message ("Abmaj7sus4/E")
  2213.  
  2214. case 57
  2215. message ("No sample")
  2216.  
  2217. case 58
  2218. message ("No sample")
  2219.  
  2220. case 59
  2221. message ("Bmaj7sus4/G")
  2222.  
  2223. case 60
  2224. message ("Cmaj7sus4/Ab")
  2225.  
  2226. case 61
  2227. message ("Dbmaj7sus4/A")
  2228.  
  2229. case 62
  2230. message ("Dmaj7sus4/Bb (Ori)")
  2231.  
  2232. case 63
  2233. message ("Ebmaj7sus4/B")
  2234.  
  2235. case 64
  2236. message ("Emaj7sus4/C")
  2237.  
  2238.  
  2239. case 65
  2240. message ("Fmaj11b9o5/G")
  2241.  
  2242. case 66
  2243. message ("Gbmaj11b9o5/Ab")
  2244.  
  2245. case 67
  2246. message ("Gmaj11b9o5/A")
  2247.  
  2248. case 68
  2249. message ("Abmaj11b9o5/Bb (Ori.)")
  2250.  
  2251. case 69
  2252. message ("Amaj11b9o5/B")
  2253.  
  2254. case 70
  2255. message ("Bbmaj11b9o5/C")
  2256.  
  2257. case 71
  2258. message ("Bmaj11b9o5/Db")
  2259.  
  2260. case 72
  2261. message ("Cmajadd9#11")
  2262.  
  2263. case 73
  2264. message ("Dbmajadd9#11")
  2265.  
  2266. case 74
  2267. message ("Dmajadd9#11")
  2268.  
  2269. case 75
  2270. message ("Ebmajadd9#11 (Ori.)")
  2271.  
  2272. case 76
  2273. message ("Emajadd9#11")
  2274.  
  2275. case 77
  2276. message ("No sample")
  2277.  
  2278. case 78
  2279. message ("No sample")
  2280.  
  2281. case 79
  2282. message ("No sample")
  2283.  
  2284. case 80
  2285. message ("No sample")
  2286.  
  2287. case 81
  2288. message ("No sample")
  2289.  
  2290. case 82
  2291. message ("No sample")
  2292.  
  2293. case 83
  2294. message ("No sample")
  2295.  
  2296. case 84
  2297. message ("No sample")
  2298.  
  2299. case 85
  2300. message ("No sample")
  2301.  
  2302. case 86
  2303. message ("No sample")
  2304.  
  2305. case 87
  2306. message ("No sample")
  2307.  
  2308. case 88
  2309. message ("No sample")
  2310.  
  2311. case 89
  2312. message ("No sample")
  2313.  
  2314. case 90
  2315. message ("No sample")
  2316.  
  2317. case 91
  2318. message ("No sample")
  2319.  
  2320. case 92
  2321. message ("No sample")
  2322.  
  2323. case 93
  2324. message ("No sample")
  2325.  
  2326. case 94
  2327. message ("No sample")
  2328.  
  2329. case 95
  2330. message ("No sample")
  2331.  
  2332. case 96
  2333. message ("No sample")
  2334.  
  2335. case 97
  2336. message ("No sample")
  2337.  
  2338.  
  2339. end select
  2340.  
  2341. end if
  2342.  
  2343.  
  2344. if ($keyswitch7 = 1)
  2345.  
  2346. select ($EVENT_NOTE)
  2347.  
  2348. case 30
  2349.  
  2350. message("Major/min7 tremolo wave variations - Keyswitch")
  2351.  
  2352. case 38
  2353. message ("No sample")
  2354.  
  2355. case 39
  2356. message ("No sample")
  2357.  
  2358. case 40
  2359. message ("No sample")
  2360.  
  2361. case 41
  2362. message ("No sample")
  2363.  
  2364. case 42
  2365. message ("No sample")
  2366.  
  2367. case 43
  2368. message ("No sample")
  2369.  
  2370. case 44
  2371. message ("No sample")
  2372.  
  2373. case 45
  2374. message ("No sample")
  2375.  
  2376. case 46
  2377. message ("No sample")
  2378.  
  2379. case 47
  2380. message ("No sample")
  2381.  
  2382. case 48
  2383. message ("No sample")
  2384.  
  2385. case 49
  2386. message ("Db7b9/B (omit3)")
  2387.  
  2388. case 50
  2389. message ("D7b9/C (omit3)")
  2390.  
  2391. case 51
  2392. message ("Eb7b9/Db (omit3)")
  2393.  
  2394. case 52
  2395. message ("E7b9/D (omit3) (Ori.)")
  2396.  
  2397. case 53
  2398. message ("F7b9/Eb (omit3)")
  2399.  
  2400. case 54
  2401. message ("F#7b9/E (omit3)")
  2402.  
  2403. case 55
  2404. message ("No sample")
  2405.  
  2406. case 56
  2407. message ("No sample")
  2408.  
  2409. case 57
  2410. message ("A7b9#5")
  2411.  
  2412. case 58
  2413. message ("Bb7b9#5")
  2414.  
  2415. case 59
  2416. message ("B7b9/A (omit3)")
  2417.  
  2418. case 60
  2419. message ("C7b9/Bb (omit3) (Ori.)")
  2420.  
  2421. case 61
  2422. message ("Db7b9/B (omit3)")
  2423.  
  2424. case 62
  2425. message ("D7#11#9")
  2426.  
  2427. case 63
  2428. message ("Eb7#11#9")
  2429.  
  2430. case 64
  2431. message ("E7#11#9")
  2432.  
  2433. case 65
  2434. message ("F7#11#9 (Ori.)")
  2435.  
  2436. case 66
  2437. message ("Gb7#11#9")
  2438.  
  2439. case 67
  2440. message ("G7#11#9")
  2441.  
  2442. case 68
  2443. message ("No sample")
  2444.  
  2445. case 69
  2446. message ("No sample")
  2447.  
  2448. case 70
  2449. message ("No sample")
  2450.  
  2451. case 71
  2452. message ("No sample")
  2453.  
  2454. case 72
  2455. message ("No sample")
  2456.  
  2457. case 73
  2458. message ("No sample")
  2459.  
  2460. case 74
  2461. message ("D7b9#5")
  2462.  
  2463. case 75
  2464. message ("Eb7b9#5")
  2465.  
  2466. case 76
  2467. message ("E7b9#5")
  2468.  
  2469. case 77
  2470. message ("F7b9#5 (Ori.)")
  2471.  
  2472. case 78
  2473. message ("F#7b9#5")
  2474.  
  2475. case 79
  2476. message ("G7b9#5")
  2477.  
  2478. case 80
  2479. message ("Abb9#5")
  2480.  
  2481. case 81
  2482. message ("Ab9#5")
  2483.  
  2484. case 82
  2485. message ("Bb tritonus")
  2486.  
  2487. case 83
  2488. message ("B tritonus")
  2489.  
  2490. case 84
  2491. message ("C tritonus (Ori.)")
  2492.  
  2493. case 85
  2494. message ("Db tritonus")
  2495.  
  2496. case 86
  2497. message ("D tritonus")
  2498.  
  2499. case 87
  2500. message ("Eb tritonus")
  2501.  
  2502. case 88
  2503. message ("E7#11#9")
  2504.  
  2505. case 89
  2506. message ("F7#11#9")
  2507.  
  2508. case 90
  2509. message ("Gb7#11#9")
  2510.  
  2511. case 91
  2512. message ("G7#11#9 (Ori.)")
  2513.  
  2514. case 92
  2515. message ("Ab7#11#9")
  2516.  
  2517. case 93
  2518. message ("No sample")
  2519.  
  2520. case 94
  2521. message ("No sample")
  2522.  
  2523. case 95
  2524. message ("No sample")
  2525.  
  2526. case 96
  2527. message ("No sample")
  2528.  
  2529. case 97
  2530. message ("No sample")
  2531.  
  2532.  
  2533. end select
  2534.  
  2535. end if
  2536.  
  2537.  
  2538.  
  2539. if ($keyswitch8 = 1)
  2540.  
  2541. select ($EVENT_NOTE)
  2542.  
  2543. case 31
  2544.  
  2545. message("Major7 tremolo wave variations - Keyswitch")
  2546.  
  2547.  
  2548. case 38
  2549. message ("Dmaj7b5sus4")
  2550.  
  2551. case 39
  2552. message ("Ebmaj7b5sus4")
  2553.  
  2554. case 40
  2555. message ("Emaj7b5sus4 (Ori.)")
  2556.  
  2557. case 41
  2558. message ("Fmaj7b5sus4")
  2559.  
  2560. case 42
  2561. message ("F#maj7b5sus4")
  2562.  
  2563. case 43
  2564. message ("Gmaj7b5sus4")
  2565.  
  2566. case 44
  2567. message ("No sample")
  2568.  
  2569. case 45
  2570. message ("Amaj11b9 (omit5)")
  2571.  
  2572. case 46
  2573. message ("Bbmaj11b9 (omit5)")
  2574.  
  2575. case 47
  2576. message ("Bmaj11b9 (omit5)")
  2577.  
  2578. case 48
  2579. message ("Cmaj11b9 (omit5) (Ori.)")
  2580.  
  2581. case 49
  2582. message ("Dbmaj11b9 (omit5)")
  2583.  
  2584. case 50
  2585. message ("Dmaj11b9 (omit5)")
  2586.  
  2587. case 51
  2588. message ("Ebmaj11b9 (omit5)")
  2589.  
  2590. case 52
  2591. message ("Emaj7sus4/C")
  2592.  
  2593. case 53
  2594. message ("Fmaj7sus4/Db")
  2595.  
  2596. case 54
  2597. message ("F#maj7sus4/D (Ori.)")
  2598.  
  2599. case 55
  2600. message ("Gmaj7sus4/Eb")
  2601.  
  2602. case 56
  2603. message ("Abmaj7sus4/E")
  2604.  
  2605. case 57
  2606. message ("No sample")
  2607.  
  2608. case 58
  2609. message ("No sample")
  2610.  
  2611. case 59
  2612. message ("Bmaj7sus4/G")
  2613.  
  2614. case 60
  2615. message ("Cmaj7sus4/Ab")
  2616.  
  2617. case 61
  2618. message ("Dbmaj7sus4/A")
  2619.  
  2620. case 62
  2621. message ("Dmaj7sus4/Bb (Ori)")
  2622.  
  2623. case 63
  2624. message ("Ebmaj7sus4/B")
  2625.  
  2626. case 64
  2627. message ("Emaj7sus4/C")
  2628.  
  2629.  
  2630. case 65
  2631. message ("Fmaj11b9o5/G")
  2632.  
  2633. case 66
  2634. message ("Gbmaj11b9o5/Ab")
  2635.  
  2636. case 67
  2637. message ("Gmaj11b9o5/A")
  2638.  
  2639. case 68
  2640. message ("Abmaj11b9o5/Bb (Ori.)")
  2641.  
  2642. case 69
  2643. message ("Amaj11b9o5/B")
  2644.  
  2645. case 70
  2646. message ("Bbmaj11b9o5/C")
  2647.  
  2648. case 71
  2649. message ("Bmaj11b9o5/Db")
  2650.  
  2651. case 72
  2652. message ("Cmajadd9#11")
  2653.  
  2654. case 73
  2655. message ("Dbmajadd9#11")
  2656.  
  2657. case 74
  2658. message ("Dmajadd9#11")
  2659.  
  2660. case 75
  2661. message ("Ebmajadd9#11 (Ori.)")
  2662.  
  2663. case 76
  2664. message ("Emajadd9#11")
  2665.  
  2666. case 77
  2667. message ("No sample")
  2668.  
  2669. case 78
  2670. message ("No sample")
  2671.  
  2672. case 79
  2673. message ("No sample")
  2674.  
  2675. case 80
  2676. message ("No sample")
  2677.  
  2678. case 81
  2679. message ("No sample")
  2680.  
  2681. case 82
  2682. message ("No sample")
  2683.  
  2684. case 83
  2685. message ("No sample")
  2686.  
  2687. case 84
  2688. message ("No sample")
  2689.  
  2690. case 85
  2691. message ("No sample")
  2692.  
  2693. case 86
  2694. message ("No sample")
  2695.  
  2696. case 87
  2697. message ("No sample")
  2698.  
  2699. case 88
  2700. message ("No sample")
  2701.  
  2702. case 89
  2703. message ("No sample")
  2704.  
  2705. case 90
  2706. message ("No sample")
  2707.  
  2708. case 91
  2709. message ("No sample")
  2710.  
  2711. case 92
  2712. message ("No sample")
  2713.  
  2714. case 93
  2715. message ("No sample")
  2716.  
  2717. case 94
  2718. message ("No sample")
  2719.  
  2720. case 95
  2721. message ("No sample")
  2722.  
  2723. case 96
  2724. message ("No sample")
  2725.  
  2726. case 97
  2727. message ("No sample")
  2728.  
  2729.  
  2730. end select
  2731.  
  2732. end if
  2733.  
  2734.  
  2735.  
  2736. if ($keyswitch9 = 1)
  2737.  
  2738. select ($EVENT_NOTE)
  2739.  
  2740. case 32
  2741. message ("Major/min.7 Short MF variations - Keyswitch")
  2742.  
  2743. case 38
  2744. message ("D tritonus")
  2745.  
  2746. case 39
  2747. message ("Eb tritonus")
  2748.  
  2749. case 40
  2750. message ("E tritonus (Ori.)")
  2751.  
  2752. case 41
  2753. message ("F tritonus")
  2754.  
  2755. case 42
  2756. message ("F# tritonus")
  2757.  
  2758. case 43
  2759. message ("G7#11#9")
  2760.  
  2761. case 44
  2762. message ("Ab7#11#9")
  2763.  
  2764. case 45
  2765. message ("A7#11#9 (Ori.)")
  2766.  
  2767. case 46
  2768. message ("Bb7#11#9")
  2769.  
  2770. case 47
  2771. message ("B7#11#9")
  2772.  
  2773. case 48
  2774. message ("C7#11#9")
  2775.  
  2776. case 49
  2777. message ("Db7b9/B (omit3)")
  2778.  
  2779. case 50
  2780. message ("D7b9/C (omit3)")
  2781.  
  2782. case 51
  2783. message ("Eb7b9/Db (omit3)")
  2784.  
  2785. case 52
  2786. message ("E7b9/D (omit3) (Ori.)")
  2787.  
  2788. case 53
  2789. message ("F7b9/Eb (omit3)")
  2790.  
  2791. case 54
  2792. message ("F#7b9/E (omit3)")
  2793.  
  2794. case 55
  2795. message ("G7b9#5")
  2796.  
  2797. case 56
  2798. message ("Ab7b9#5")
  2799.  
  2800. case 57
  2801. message ("A7b9#5 (Ori.)")
  2802.  
  2803. case 58
  2804. message ("Bb7b9#5")
  2805.  
  2806. case 59
  2807. message ("B7b9/A (omit3)")
  2808.  
  2809. case 60
  2810. message ("C7b9/Bb (omit3) (Ori.)")
  2811.  
  2812. case 61
  2813. message ("Db7b9/B (omit3)")
  2814.  
  2815. case 62
  2816. message ("D7#11#9")
  2817.  
  2818. case 63
  2819. message ("Eb7#11#9")
  2820.  
  2821. case 64
  2822. message ("E7#11#9")
  2823.  
  2824. case 65
  2825. message ("F7#11#9 (Ori.)")
  2826.  
  2827. case 66
  2828. message ("Gb7#11#9")
  2829.  
  2830. case 67
  2831. message ("G7#11#9")
  2832.  
  2833. case 68
  2834. message ("Ab7#11#9")
  2835.  
  2836. case 69
  2837. message ("A7#11#9")
  2838.  
  2839. case 70
  2840. message ("Bb7#11#9")
  2841.  
  2842. case 71
  2843. message ("B7#11#9 (Ori.)")
  2844.  
  2845. case 72
  2846. message ("C7#11#9")
  2847.  
  2848. case 73
  2849. message ("Db7#11#9")
  2850.  
  2851. case 74
  2852. message ("D7b9#5")
  2853.  
  2854. case 75
  2855. message ("Eb7b9#5")
  2856.  
  2857. case 76
  2858. message ("E7b9#5")
  2859.  
  2860. case 77
  2861. message ("F7b9#5 (Ori.)")
  2862.  
  2863. case 78
  2864. message ("F#7b9#5")
  2865.  
  2866. case 79
  2867. message ("G7b9#5")
  2868.  
  2869. case 80
  2870. message ("Abb9#5")
  2871.  
  2872. case 81
  2873. message ("Ab9#5")
  2874.  
  2875. case 82
  2876. message ("Bb tritonus")
  2877.  
  2878. case 83
  2879. message ("B tritonus")
  2880.  
  2881. case 84
  2882. message ("C tritonus (Ori.)")
  2883.  
  2884. case 85
  2885. message ("Db tritonus")
  2886.  
  2887. case 86
  2888. message ("D tritonus")
  2889.  
  2890. case 87
  2891. message ("Eb tritonus")
  2892.  
  2893. case 88
  2894. message ("E7#11#9")
  2895.  
  2896. case 89
  2897. message ("F7#11#9")
  2898.  
  2899. case 90
  2900. message ("Gb7#11#9")
  2901.  
  2902. case 91
  2903. message ("G7#11#9 (Ori.)")
  2904.  
  2905. case 92
  2906. message ("Ab7#11#9")
  2907.  
  2908. case 93
  2909. message ("A7b9#5")
  2910.  
  2911. case 94
  2912. message ("Bb7b9#5")
  2913.  
  2914. case 95
  2915. message ("B7b9#5 (Ori.)")
  2916.  
  2917. case 96
  2918. message ("C7b9#5")
  2919.  
  2920. case 97
  2921. message ("Db7b9#5")
  2922.  
  2923.  
  2924.  
  2925. end select
  2926.  
  2927. end if
  2928.  
  2929.  
  2930.  
  2931. if ($keyswitch10 = 1)
  2932.  
  2933. select ($EVENT_NOTE)
  2934.  
  2935. case 33
  2936.  
  2937. message("Major7 Short MF variations - Keyswitch")
  2938.  
  2939. case 38
  2940. message ("Dmaj7b5sus4")
  2941.  
  2942. case 39
  2943. message ("Ebmaj7b5sus4")
  2944.  
  2945. case 40
  2946. message ("Emaj7b5sus4 (Ori.)")
  2947.  
  2948. case 41
  2949. message ("Fmaj7b5sus4")
  2950.  
  2951. case 42
  2952. message ("F#maj7b5sus4")
  2953.  
  2954. case 43
  2955. message ("Gmaj7b5sus4")
  2956.  
  2957. case 44
  2958. message ("G#maj7b5sus4 (Ori.)")
  2959.  
  2960. case 45
  2961. message ("Amaj7b5sus4")
  2962.  
  2963. case 46
  2964. message ("Bbmaj7b5sus4")
  2965.  
  2966. case 47
  2967. message ("Bmaj11b9 (omit5)")
  2968.  
  2969. case 48
  2970. message ("Cmaj11b9 (omit5) (Ori.)")
  2971.  
  2972. case 49
  2973. message ("Dbmaj11b9 (omit5)")
  2974.  
  2975. case 50
  2976. message ("Dmaj11b9 (omit5)")
  2977.  
  2978. case 51
  2979. message ("Ebmaj11b9 (omit5)")
  2980.  
  2981. case 52
  2982. message ("Emaj7sus4/C")
  2983.  
  2984. case 53
  2985. message ("Fmaj7sus4/Db")
  2986.  
  2987. case 54
  2988. message ("F#maj7sus4/D (Ori.)")
  2989.  
  2990. case 55
  2991. message ("Gmaj7sus4/Eb")
  2992.  
  2993. case 56
  2994. message ("Abmaj7sus4/E")
  2995.  
  2996. case 57
  2997. message ("No sample")
  2998.  
  2999. case 58
  3000. message ("No sample")
  3001.  
  3002. case 59
  3003. message ("Bmaj7sus4/G")
  3004.  
  3005. case 60
  3006. message ("Cmaj7sus4/Ab")
  3007.  
  3008. case 61
  3009. message ("Dbmaj7sus4/A")
  3010.  
  3011. case 62
  3012. message ("Dmaj7sus4/Bb (Ori)")
  3013.  
  3014. case 63
  3015. message ("Ebmaj7sus4/B")
  3016.  
  3017. case 64
  3018. message ("Emaj7sus4/C")
  3019.  
  3020.  
  3021. case 65
  3022. message ("Fmaj11b9o5/G")
  3023.  
  3024. case 66
  3025. message ("Gbmaj11b9o5/Ab")
  3026.  
  3027. case 67
  3028. message ("Gmaj11b9o5/A")
  3029.  
  3030. case 68
  3031. message ("Abmaj11b9o5/Bb (Ori.)")
  3032.  
  3033. case 69
  3034. message ("Amaj11b9o5/B")
  3035.  
  3036. case 70
  3037. message ("Bbmaj11b9o5/C")
  3038.  
  3039. case 71
  3040. message ("Bmaj11b9o5/Db")
  3041.  
  3042. case 72
  3043. message ("Cmajadd9#11")
  3044.  
  3045. case 73
  3046. message ("Dbmajadd9#11")
  3047.  
  3048. case 74
  3049. message ("Dmajadd9#11")
  3050.  
  3051. case 75
  3052. message ("Ebmajadd9#11 (Ori.)")
  3053.  
  3054. case 76
  3055. message ("Emajadd9#11")
  3056.  
  3057. case 77
  3058. message ("Fmaj7add9#11")
  3059.  
  3060. case 78
  3061. message ("Gbmaj7add9#11")
  3062.  
  3063. case 79
  3064. message ("Gmaj7add9#11 (Ori.)")
  3065.  
  3066. case 80
  3067. message ("Abmaj7add9#11")
  3068.  
  3069. case 81
  3070. message ("Amaj7add9#11")
  3071.  
  3072. case 82
  3073. message ("No sample")
  3074.  
  3075. case 83
  3076. message ("No sample")
  3077.  
  3078. case 84
  3079. message ("No sample")
  3080.  
  3081. case 85
  3082. message ("No sample")
  3083.  
  3084. case 86
  3085. message ("No sample")
  3086.  
  3087. case 87
  3088. message ("No sample")
  3089.  
  3090. case 88
  3091. message ("No sample")
  3092.  
  3093. case 89
  3094. message ("No sample")
  3095.  
  3096. case 90
  3097. message ("No sample")
  3098.  
  3099. case 91
  3100. message ("No sample")
  3101.  
  3102. case 92
  3103. message ("No sample")
  3104.  
  3105. case 93
  3106. message ("No sample")
  3107.  
  3108. case 94
  3109. message ("No sample")
  3110.  
  3111. case 95
  3112. message ("No sample")
  3113.  
  3114. case 96
  3115. message ("No sample")
  3116.  
  3117. case 97
  3118. message ("No sample")
  3119.  
  3120.  
  3121.  
  3122. end select
  3123.  
  3124. end if
  3125.  
  3126.  
  3127.  
  3128. if ($keyswitch11 = 1)
  3129.  
  3130. select ($EVENT_NOTE)
  3131.  
  3132. case 34
  3133. message ("Major/min.7 Short FF variations - Keyswitch")
  3134.  
  3135. case 38
  3136. message ("D tritonus")
  3137.  
  3138. case 39
  3139. message ("Eb tritonus")
  3140.  
  3141. case 40
  3142. message ("E tritonus (Ori.)")
  3143.  
  3144. case 41
  3145. message ("F tritonus")
  3146.  
  3147. case 42
  3148. message ("F# tritonus")
  3149.  
  3150. case 43
  3151. message ("G7#11#9")
  3152.  
  3153. case 44
  3154. message ("Ab7#11#9")
  3155.  
  3156. case 45
  3157. message ("A7#11#9 (Ori.)")
  3158.  
  3159. case 46
  3160. message ("Bb7#11#9")
  3161.  
  3162. case 47
  3163. message ("B7#11#9")
  3164.  
  3165. case 48
  3166. message ("C7#11#9")
  3167.  
  3168. case 49
  3169. message ("Db7b9/B (omit3)")
  3170.  
  3171. case 50
  3172. message ("D7b9/C (omit3)")
  3173.  
  3174. case 51
  3175. message ("Eb7b9/Db (omit3)")
  3176.  
  3177. case 52
  3178. message ("E7b9/D (omit3) (Ori.)")
  3179.  
  3180. case 53
  3181. message ("F7b9/Eb (omit3)")
  3182.  
  3183. case 54
  3184. message ("F#7b9/E (omit3)")
  3185.  
  3186. case 55
  3187. message ("G7b9#5")
  3188.  
  3189. case 56
  3190. message ("Ab7b9#5")
  3191.  
  3192. case 57
  3193. message ("A7b9#5 (Ori.)")
  3194.  
  3195. case 58
  3196. message ("Bb7b9#5")
  3197.  
  3198. case 59
  3199. message ("B7b9/A (omit3)")
  3200.  
  3201. case 60
  3202. message ("C7b9/Bb (omit3) (Ori.)")
  3203.  
  3204. case 61
  3205. message ("Db7b9/B (omit3)")
  3206.  
  3207. case 62
  3208. message ("D7#11#9")
  3209.  
  3210. case 63
  3211. message ("Eb7#11#9")
  3212.  
  3213. case 64
  3214. message ("E7#11#9")
  3215.  
  3216. case 65
  3217. message ("F7#11#9 (Ori.)")
  3218.  
  3219. case 66
  3220. message ("Gb7#11#9")
  3221.  
  3222. case 67
  3223. message ("G7#11#9")
  3224.  
  3225. case 68
  3226. message ("Ab7#11#9")
  3227.  
  3228. case 69
  3229. message ("A7#11#9")
  3230.  
  3231. case 70
  3232. message ("Bb7#11#9")
  3233.  
  3234. case 71
  3235. message ("B7#11#9 (Ori.)")
  3236.  
  3237. case 72
  3238. message ("C7#11#9")
  3239.  
  3240. case 73
  3241. message ("Db7#11#9")
  3242.  
  3243. case 74
  3244. message ("D7b9#5")
  3245.  
  3246. case 75
  3247. message ("Eb7b9#5")
  3248.  
  3249. case 76
  3250. message ("E7b9#5")
  3251.  
  3252. case 77
  3253. message ("F7b9#5 (Ori.)")
  3254.  
  3255. case 78
  3256. message ("F#7b9#5")
  3257.  
  3258. case 79
  3259. message ("G7b9#5")
  3260.  
  3261. case 80
  3262. message ("Abb9#5")
  3263.  
  3264. case 81
  3265. message ("Ab9#5")
  3266.  
  3267. case 82
  3268. message ("Bb tritonus")
  3269.  
  3270. case 83
  3271. message ("B tritonus")
  3272.  
  3273. case 84
  3274. message ("C tritonus (Ori.)")
  3275.  
  3276. case 85
  3277. message ("Db tritonus")
  3278.  
  3279. case 86
  3280. message ("D tritonus")
  3281.  
  3282. case 87
  3283. message ("Eb tritonus")
  3284.  
  3285. case 88
  3286. message ("E7#11#9")
  3287.  
  3288. case 89
  3289. message ("F7#11#9")
  3290.  
  3291. case 90
  3292. message ("Gb7#11#9")
  3293.  
  3294. case 91
  3295. message ("G7#11#9 (Ori.)")
  3296.  
  3297. case 92
  3298. message ("Ab7#11#9")
  3299.  
  3300. case 93
  3301. message ("A7b9#5")
  3302.  
  3303. case 94
  3304. message ("Bb7b9#5")
  3305.  
  3306. case 95
  3307. message ("B7b9#5 (Ori.)")
  3308.  
  3309. case 96
  3310. message ("C7b9#5")
  3311.  
  3312. case 97
  3313. message ("Db7b9#5")
  3314.  
  3315.  
  3316.  
  3317.  
  3318. end select
  3319.  
  3320. end if
  3321.  
  3322.  
  3323.  
  3324.  
  3325. if ($keyswitch12 = 1)
  3326.  
  3327. select ($EVENT_NOTE)
  3328.  
  3329. case 35
  3330. message ("Major7 Short FF variations - Keyswitch")
  3331.  
  3332.  
  3333.  
  3334.  
  3335. case 38
  3336. message ("Dmaj7b5sus4")
  3337.  
  3338. case 39
  3339. message ("Ebmaj7b5sus4")
  3340.  
  3341. case 40
  3342. message ("Emaj7b5sus4 (Ori.)")
  3343.  
  3344. case 41
  3345. message ("Fmaj7b5sus4")
  3346.  
  3347. case 42
  3348. message ("F#maj7b5sus4")
  3349.  
  3350. case 43
  3351. message ("Gmaj7b5sus4")
  3352.  
  3353. case 44
  3354. message ("G#maj7b5sus4 (Ori.)")
  3355.  
  3356. case 45
  3357. message ("Amaj7b5sus4")
  3358.  
  3359. case 46
  3360. message ("Bbmaj7b5sus4")
  3361.  
  3362. case 47
  3363. message ("Bmaj11b9 (omit5)")
  3364.  
  3365. case 48
  3366. message ("Cmaj11b9 (omit5) (Ori.)")
  3367.  
  3368. case 49
  3369. message ("Dbmaj11b9 (omit5)")
  3370.  
  3371. case 50
  3372. message ("Dmaj11b9 (omit5)")
  3373.  
  3374. case 51
  3375. message ("Ebmaj11b9 (omit5)")
  3376.  
  3377. case 52
  3378. message ("Emaj7sus4/C")
  3379.  
  3380. case 53
  3381. message ("Fmaj7sus4/Db")
  3382.  
  3383. case 54
  3384. message ("F#maj7sus4/D (Ori.)")
  3385.  
  3386. case 55
  3387. message ("Gmaj7sus4/Eb")
  3388.  
  3389. case 56
  3390. message ("Abmaj7sus4/E")
  3391.  
  3392. case 57
  3393. message ("No sample")
  3394.  
  3395. case 58
  3396. message ("No sample")
  3397.  
  3398. case 59
  3399. message ("Bmaj7sus4/G")
  3400.  
  3401. case 60
  3402. message ("Cmaj7sus4/Ab")
  3403.  
  3404. case 61
  3405. message ("Dbmaj7sus4/A")
  3406.  
  3407. case 62
  3408. message ("Dmaj7sus4/Bb (Ori)")
  3409.  
  3410. case 63
  3411. message ("Ebmaj7sus4/B")
  3412.  
  3413. case 64
  3414. message ("Emaj7sus4/C")
  3415.  
  3416.  
  3417. case 65
  3418. message ("Fmaj11b9o5/G")
  3419.  
  3420. case 66
  3421. message ("Gbmaj11b9o5/Ab")
  3422.  
  3423. case 67
  3424. message ("Gmaj11b9o5/A")
  3425.  
  3426. case 68
  3427. message ("Abmaj11b9o5/Bb (Ori.)")
  3428.  
  3429. case 69
  3430. message ("Amaj11b9o5/B")
  3431.  
  3432. case 70
  3433. message ("Bbmaj11b9o5/C")
  3434.  
  3435. case 71
  3436. message ("Bmaj11b9o5/Db")
  3437.  
  3438. case 72
  3439. message ("Cmajadd9#11")
  3440.  
  3441. case 73
  3442. message ("Dbmajadd9#11")
  3443.  
  3444. case 74
  3445. message ("Dmajadd9#11")
  3446.  
  3447. case 75
  3448. message ("Ebmajadd9#11 (Ori.)")
  3449.  
  3450. case 76
  3451. message ("Emajadd9#11")
  3452.  
  3453. case 77
  3454. message ("Fmaj7add9#11")
  3455.  
  3456. case 78
  3457. message ("Gbmaj7add9#11")
  3458.  
  3459. case 79
  3460. message ("Gmaj7add9#11 (Ori.)")
  3461.  
  3462. case 80
  3463. message ("Abmaj7add9#11")
  3464.  
  3465. case 81
  3466. message ("Amaj7add9#11")
  3467.  
  3468. case 82
  3469. message ("No sample")
  3470.  
  3471. case 83
  3472. message ("No sample")
  3473.  
  3474. case 84
  3475. message ("No sample")
  3476.  
  3477. case 85
  3478. message ("No sample")
  3479.  
  3480. case 86
  3481. message ("No sample")
  3482.  
  3483. case 87
  3484. message ("No sample")
  3485.  
  3486. case 88
  3487. message ("No sample")
  3488.  
  3489. case 89
  3490. message ("No sample")
  3491.  
  3492. case 90
  3493. message ("No sample")
  3494.  
  3495. case 91
  3496. message ("No sample")
  3497.  
  3498. case 92
  3499. message ("No sample")
  3500.  
  3501. case 93
  3502. message ("No sample")
  3503.  
  3504. case 94
  3505. message ("No sample")
  3506.  
  3507. case 95
  3508. message ("No sample")
  3509.  
  3510. case 96
  3511. message ("No sample")
  3512.  
  3513. case 97
  3514. message ("No sample")
  3515.  
  3516.  
  3517.  
  3518.  
  3519.  
  3520. end select
  3521.  
  3522. end if
  3523.  
  3524. end on
  3525.  
  3526.  
  3527. {here begins code for the text, that Kontakt displays when notes are released}
  3528.  
  3529. on release
  3530.  
  3531. message("Play a note")
  3532.  
  3533. end on
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!