API tools faq
paste
BrandonSpendlove

Kontakt - High Chords FAS #2

BrandonSpendlove
Apr 14th, 2014
118
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 18.46 KB | None | 0 0
raw download clone embed print report
  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. {Below, declare to the output routing-code}
  13.  
  14. declare $i
  15.  
  16.  
  17. {here the code for the knobs begins - that control volume on groups eg. mic placements}
  18.  
  19. {groups are indexed, so group one is 0, group two is 1 - and so on. 500000 equals -6dB}
  20.  
  21. message("") { this clears the status line so no error messages will be hidden }
  22. declare const $DefVol := 500000 { default initial volume, you can choose this to be whatever you want }
  23. set_ui_height (4)
  24. declare ui_knob $Volume05(0, 1000000, 1)
  25. make_persistent($Volume05)
  26. set_text($Volume05,"Surround")
  27. $Volume05 := $DefVol
  28. set_knob_defval($Volume05,$DefVol)
  29. move_control_px($volume05,66,2) { you can position this knob wherever you like }
  30. read_persistent_var($Volume05)
  31. set_engine_par($ENGINE_PAR_VOLUME,$Volume05,0,-1,-1)
  32. set_engine_par($ENGINE_PAR_VOLUME,$Volume05,5,-1,-1)
  33. set_knob_label($Volume05,get_engine_par_disp($ENGINE_PAR_VOLUME,0,-1,-1))
  34. declare ui_knob $Volume16(0, 1000000, 1)
  35. make_persistent($Volume16)
  36. set_text($Volume16,"Out")
  37. $Volume16 := $DefVol
  38. set_knob_defval($Volume16,$DefVol)
  39. move_control_px($Volume16,158,2) { you can position this knob wherever you like }
  40. read_persistent_var($Volume16)
  41. set_engine_par($ENGINE_PAR_VOLUME,$Volume16,1,-1,-1)
  42. set_engine_par($ENGINE_PAR_VOLUME,$Volume16,6,-1,-1)
  43. set_knob_label($Volume16,get_engine_par_disp($ENGINE_PAR_VOLUME,1,-1,-1))
  44. declare ui_knob $Volume27(0, 1000000, 1)
  45. make_persistent($Volume27)
  46. set_text($Volume27,"Decca")
  47. $Volume27 := $DefVol
  48. set_knob_defval($Volume27,$DefVol)
  49. move_control_px($Volume27,250,2) { you can position this knob wherever you like }
  50. read_persistent_var($Volume27)
  51. set_engine_par($ENGINE_PAR_VOLUME,$Volume27,2,-1,-1)
  52. set_engine_par($ENGINE_PAR_VOLUME,$Volume27,7,-1,-1)
  53. set_knob_label($Volume27,get_engine_par_disp($ENGINE_PAR_VOLUME,27,-1,-1))
  54. declare ui_knob $Volume38(0, 1000000, 1)
  55. make_persistent($Volume38)
  56. set_text($Volume38,"Close")
  57. $Volume38 := $DefVol
  58. set_knob_defval($Volume38,$DefVol)
  59. move_control_px($Volume38,342,2) { you can position this knob wherever you like }
  60. read_persistent_var($Volume38)
  61. set_engine_par($ENGINE_PAR_VOLUME,$Volume38,3,-1,-1)
  62. set_engine_par($ENGINE_PAR_VOLUME,$Volume38,8,-1,-1)
  63. set_knob_label($Volume38,get_engine_par_disp($ENGINE_PAR_VOLUME,38,-1,-1))
  64. declare ui_knob $Volume49(0, 1000000, 1)
  65. make_persistent($Volume49)
  66. set_text($Volume49,"Mix S.")
  67. $Volume49 := $DefVol
  68. set_knob_defval($Volume49,$DefVol)
  69. move_control_px($Volume49,433,2) { you can position this knob wherever you like }
  70. read_persistent_var($Volume49)
  71. set_engine_par($ENGINE_PAR_VOLUME,$Volume49,4,-1,-1)
  72. set_engine_par($ENGINE_PAR_VOLUME,$Volume49,9,-1,-1)
  73. set_knob_label($Volume49,get_engine_par_disp($ENGINE_PAR_VOLUME,49,-1,-1))
  74.  
  75.  
  76. {Mix buttons}
  77.  
  78. declare ui_button $surroundpower
  79. declare ui_button $outpower
  80. declare ui_button $deccapower
  81. declare ui_button $closepower
  82. declare ui_button $mixpower
  83.  
  84. {Keyswitch buttons, they're hided. They make it possible to write new names when a certain button is pressed.}
  85.  
  86. declare ui_button $keyswitch1
  87. declare ui_button $keyswitch2
  88. declare ui_button $keyswitch3
  89.  
  90. $keyswitch1 := 1
  91. $keyswitch2 := 0
  92. $keyswitch3 := 0
  93.  
  94. hide_part($keyswitch1, $HIDE_WHOLE_CONTROL)
  95. hide_part($keyswitch2, $HIDE_WHOLE_CONTROL)
  96. hide_part($keyswitch3, $HIDE_WHOLE_CONTROL)
  97.  
  98.  
  99. {Keyswitch codes ends, Mix buttons again.}
  100.  
  101. {Experiment.}
  102.  
  103.  
  104. declare ui_button $output
  105. move_control($output,1,8)
  106.  
  107.  
  108. {Experiment.}
  109.  
  110. move_control($surroundpower, 1,3)
  111. move_control($outpower, 2,3)
  112. move_control($deccapower,3,3)
  113. move_control($closepower,4,3)
  114. move_control($mixpower,5,3)
  115.  
  116. set_text($surroundpower, "Surround Off")
  117. set_text($outpower, "Out. Off")
  118. set_text($deccapower, "Decca. Off")
  119. set_text($closepower, "Close. Off")
  120. set_text($mixpower, "Mix. Off")
  121.  
  122. $surroundpower := 0
  123. $outpower := 0
  124. $deccapower := 0
  125. $closepower := 0
  126. $mixpower := 0
  127.  
  128. {AHDSR}
  129.  
  130. declare $count
  131.  
  132. declare ui_knob $Attack (0,1000000,1)
  133. declare ui_knob $Hold (0,1000000,1)
  134. declare ui_knob $Decay (0,1000000,1)
  135. declare ui_knob $Sustain (0,1000000,1)
  136. declare ui_knob $Release (0,1000000,1)
  137.  
  138. set_knob_unit($Attack, $KNOB_UNIT_MS)
  139. set_knob_unit($Hold, $KNOB_UNIT_MS)
  140. set_knob_unit($Decay, $KNOB_UNIT_MS)
  141. set_knob_unit($Sustain, $KNOB_UNIT_DB)
  142. set_knob_unit($Release, $KNOB_UNIT_MS)
  143.  
  144. {AHDSR, Simple and effective Method}
  145.  
  146. declare $ahdsr
  147.  
  148. $ahdsr := 1
  149.  
  150.  
  151. while($ahdsr > $NUM_GROUPS)
  152.  
  153. set_engine_par($ENGINE_PAR_ATTACK,$attack,$ahdsr,0,-1)
  154. set_engine_par($ENGINE_PAR_HOLD,$hold,$ahdsr,0,-1)
  155. set_engine_par($ENGINE_PAR_DECAY,$decay,$ahdsr,0,-1)
  156. set_engine_par($ENGINE_PAR_SUSTAIN,$sustain,$ahdsr,0,-1)
  157. set_engine_par($ENGINE_PAR_RELEASE,$release,$ahdsr,0,-1)
  158.  
  159. inc($ahdsr)
  160.  
  161. end while
  162.  
  163. move_control($Attack, 1,5)
  164. move_control($Hold,2,5)
  165. move_control($Decay,3,5)
  166. move_control($Sustain,4,5)
  167. move_control($Release,5,5)
  168.  
  169. make_persistent($Attack)
  170. make_persistent($Hold)
  171. make_persistent($Decay)
  172. make_persistent($Sustain)
  173. make_persistent($Release)
  174.  
  175. read_persistent_var($Attack)
  176. read_persistent_var($Hold)
  177. read_persistent_var($Decay)
  178. read_persistent_var($Sustain)
  179. read_persistent_var($Release)
  180.  
  181. set_knob_label($Attack, get_engine_par_disp($ENGINE_PAR_ATTACK, 0, find_mod(0,"ENV_AHDSR"), -1))
  182. set_knob_label($Hold, get_engine_par_disp($ENGINE_PAR_HOLD, 0, find_mod(0,"ENV_AHDSR"), -1))
  183. set_knob_label($Decay, get_engine_par_disp($ENGINE_PAR_DECAY, 0, find_mod(0,"ENV_AHDSR"), -1))
  184. set_knob_label($Sustain, get_engine_par_disp($ENGINE_PAR_SUSTAIN, 0, find_mod(0,"ENV_AHDSR"), -1))
  185. set_knob_label($Release, get_engine_par_disp($ENGINE_PAR_RELEASE, 0, find_mod(0,"ENV_AHDSR"), -1))
  186.  
  187. {CONVO REVERB}
  188.  
  189. declare ui_button $reverb
  190. set_text($reverb,"Convo. Off")
  191.  
  192. move_control($reverb,6,7)
  193.  
  194. declare ui_slider $convowet (0,1000000)
  195. declare ui_slider $convodry (0,1000000)
  196. declare ui_slider $convodelay (0,1000000)
  197. declare ui_slider $convoearlyir (0,1000000)
  198. declare ui_slider $convolateir (0,1000000)
  199.  
  200. move_control($convowet, 6,2)
  201. move_control($convodry, 6,3)
  202. move_control($convodelay,6,4)
  203. move_control($convoearlyir,6,5)
  204. move_control($convolateir,6,6)
  205.  
  206.  
  207. {Impulses, you have to define them as !}
  208. {$ Stores a single integer values}
  209. {% Store single integer values at specific indices}
  210. {! Stores text strings... We need to use ! for Samples, Impulses etc...}
  211.  
  212. declare $impulse
  213. declare const $impulse_samples := 9
  214. declare !ir_names[$impulse_samples]
  215.  
  216. {Names of the IR Samples}
  217.  
  218. !ir_names[0] := "IR_DrumRoom"
  219. !ir_names[1] := "IR_Fames_DT_01"
  220. !ir_names[2] := "IR_FiveColumns"
  221. !ir_names[3] := "IR_FiveColumnsShort"
  222. !ir_names[4] := "IR_FrenchSalon"
  223. !ir_names[5] := "IR_GoingHome_Dist"
  224. !ir_names[6] := "IR_Narrow"
  225. !ir_names[7] := "IR_ParkingGarage"
  226. !ir_names[8] := "IR_Silo"
  227.  
  228.  
  229. {Impulse Menu}
  230.  
  231. declare ui_menu $impulses
  232. move_control($impulses, 6, 8)
  233.  
  234. add_menu_item($impulses,"Impulses.....", -1)
  235.  
  236. while ($count < $impulse_samples)
  237.  
  238. add_menu_item($impulses,!ir_names[$count],$count)
  239.  
  240. inc($count)
  241.  
  242. end while
  243.  
  244. {You can delete these labels if you want!}
  245.  
  246. declare ui_label $ConvInfo (1,1)
  247. set_text($ConvInfo," Conv Settings")
  248.  
  249. move_control($ConvInfo, 6,1)
  250.  
  251. declare ui_label $ahdsrinfo (5,1)
  252. set_text($ahdsrinfo, "------------------------------------------AHDSR-----------------------------------------")
  253.  
  254. move_control($ahdsrinfo, 1,4)
  255.  
  256. end on
  257.  
  258. {Impulse Menu}
  259.  
  260. on ui_control ($impulses)
  261.  
  262. if ($impulses = -1)
  263.  
  264. else
  265.  
  266. load_ir_sample(!ir_names[$impulses],6,1) {6,1 is (slot) then (Generic).. Generic = 1 Insert effect, 0 Send effect}
  267.  
  268. end if
  269.  
  270. end on
  271.  
  272. on ui_control($Volume05)
  273. set_engine_par($ENGINE_PAR_VOLUME,$Volume05,0,-1,-1)
  274. set_engine_par($ENGINE_PAR_VOLUME,$Volume05,5,-1,-1)
  275. set_knob_label($Volume05,get_engine_par_disp($ENGINE_PAR_VOLUME,0,-1,-1))
  276. end on
  277.  
  278. on ui_control($Volume16)
  279. set_engine_par($ENGINE_PAR_VOLUME,$Volume16,1,-1,-1)
  280. set_engine_par($ENGINE_PAR_VOLUME,$Volume16,6,-1,-1)
  281. set_knob_label($Volume16,get_engine_par_disp($ENGINE_PAR_VOLUME,1,-1,-1))
  282. end on
  283.  
  284. on ui_control($Volume27)
  285. set_engine_par($ENGINE_PAR_VOLUME,$Volume27,2,-1,-1)
  286. set_engine_par($ENGINE_PAR_VOLUME,$Volume27,7,-1,-1)
  287. set_knob_label($Volume27,get_engine_par_disp($ENGINE_PAR_VOLUME,2,-1,-1))
  288. end on
  289.  
  290. on ui_control($Volume38)
  291. set_engine_par($ENGINE_PAR_VOLUME,$Volume38,3,-1,-1)
  292. set_engine_par($ENGINE_PAR_VOLUME,$Volume38,8,-1,-1)
  293. set_knob_label($Volume38,get_engine_par_disp($ENGINE_PAR_VOLUME,3,-1,-1))
  294. end on
  295.  
  296. on ui_control($Volume49)
  297. set_engine_par($ENGINE_PAR_VOLUME,$Volume49,4,-1,-1)
  298. set_engine_par($ENGINE_PAR_VOLUME,$Volume49,9,-1,-1)
  299. set_knob_label($Volume49,get_engine_par_disp($ENGINE_PAR_VOLUME,4,-1,-1))
  300. end on
  301.  
  302. {MIX Buttons, Purging etc..}
  303.  
  304. on ui_control ($surroundpower)
  305.  
  306. if ($surroundpower = 0)
  307.  
  308. set_text($surroundpower,"Surround Off") {When the button is off, it will say it's off}
  309.  
  310. purge_group(0,0)
  311. purge_group(5,0) {Group Index, Mode - Surround Power being the first group, and unloaded if the button is off}
  312. else
  313.  
  314. set_text($surroundpower,"Surround On") {When the button is on, it will say it's on!}
  315.  
  316. purge_group(0,1)
  317. purge_group(5,1) {Else (if it is on!) then load the samples in group 1}
  318. end if
  319. end on
  320.  
  321. on ui_control ($outpower)
  322.  
  323. if ($outpower = 0)
  324.  
  325. set_text($outpower, "Out. Off")
  326.  
  327. purge_group(1,0)
  328. purge_group(6,0)
  329.  
  330. else
  331.  
  332. set_text($outpower, "Out. On")
  333.  
  334. purge_group(1,1)
  335. purge_group(6,1)
  336.  
  337. end if
  338.  
  339.  
  340. end on
  341.  
  342. on ui_control ($deccapower)
  343.  
  344. if ($deccapower = 0)
  345.  
  346. set_text($deccapower,"Decca. Off")
  347.  
  348. purge_group(2,0)
  349. purge_group(7,0)
  350.  
  351. else
  352.  
  353. set_text($deccapower,"Decca. On")
  354.  
  355. purge_group(2,1)
  356. purge_group(7,1)
  357. end if
  358.  
  359. end on
  360.  
  361. on ui_control ($closepower)
  362.  
  363. if ($closepower = 0)
  364.  
  365. set_text($closepower, "Out. Off")
  366.  
  367. purge_group(3,0)
  368. purge_group(8,0)
  369.  
  370. else
  371.  
  372. set_text($closepower, "Close On")
  373.  
  374. purge_group(3,1)
  375. purge_group(8,1)
  376. end if
  377.  
  378. end on
  379.  
  380. on ui_control ($mixpower)
  381.  
  382. if ($mixpower = 0)
  383.  
  384. set_text($mixpower, "Mix. Off")
  385.  
  386. purge_group(4,0)
  387. purge_group(9,0)
  388.  
  389. else
  390.  
  391. set_text($mixpower, "Mix. On")
  392.  
  393. purge_group(4,1)
  394. purge_group(9,1)
  395.  
  396. end if
  397.  
  398. end on
  399.  
  400. {AHDSR Workings}
  401.  
  402.  
  403. on ui_control ($Attack)
  404.  
  405. $ahdsr := 0
  406.  
  407. while($ahdsr < $NUM_GROUPS)
  408.  
  409. _set_engine_par($ENGINE_PAR_ATTACK,$Attack,$ahdsr,0,-1)
  410.  
  411. inc($ahdsr)
  412.  
  413. end while
  414.  
  415. set_knob_label($Attack, get_engine_par_disp($ENGINE_PAR_ATTACK, 0, 0, -1))
  416.  
  417. wait(10)
  418.  
  419. set_knob_label($Attack, get_engine_par_disp($ENGINE_PAR_ATTACK, 0, 0, -1))
  420.  
  421. end on
  422.  
  423.  
  424. on ui_control ($Hold)
  425.  
  426. $ahdsr := 0
  427.  
  428. while($ahdsr < $NUM_GROUPS)
  429.  
  430. _set_engine_par($ENGINE_PAR_HOLD,$Hold,$ahdsr,0,-1)
  431.  
  432. inc($ahdsr)
  433.  
  434. end while
  435.  
  436. set_knob_label($Hold, get_engine_par_disp($ENGINE_PAR_HOLD, 0, 0, -1))
  437.  
  438. wait(10)
  439.  
  440. set_knob_label($Hold, get_engine_par_disp($ENGINE_PAR_HOLD, 0, 0, -1))
  441.  
  442. end on
  443.  
  444. on ui_control ($Decay)
  445.  
  446. $ahdsr := 0
  447.  
  448. while($ahdsr < $NUM_GROUPS)
  449.  
  450. _set_engine_par($ENGINE_PAR_DECAY,$Decay,$ahdsr,0,-1)
  451.  
  452. inc($ahdsr)
  453.  
  454. end while
  455.  
  456. set_knob_label($Decay, get_engine_par_disp($ENGINE_PAR_DECAY, 0, 0, -1))
  457.  
  458. wait(10)
  459.  
  460. set_knob_label($Decay, get_engine_par_disp($ENGINE_PAR_DECAY, 0, 0, -1))
  461.  
  462. end on
  463.  
  464. on ui_control ($Sustain)
  465.  
  466. $ahdsr := 0
  467.  
  468. while($ahdsr < $NUM_GROUPS)
  469.  
  470. _set_engine_par($ENGINE_PAR_SUSTAIN,$Sustain,$ahdsr,0,-1)
  471.  
  472. inc($ahdsr)
  473.  
  474. end while
  475.  
  476. set_knob_label($Sustain, get_engine_par_disp($ENGINE_PAR_SUSTAIN, 0, 0, -1))
  477.  
  478. wait(10)
  479.  
  480. set_knob_label($Sustain, get_engine_par_disp($ENGINE_PAR_SUSTAIN, 0, 0, -1))
  481.  
  482. end on
  483.  
  484. on ui_control ($Release)
  485.  
  486. $ahdsr := 0
  487.  
  488. while($ahdsr < $NUM_GROUPS)
  489.  
  490. _set_engine_par($ENGINE_PAR_RELEASE,$Release,$ahdsr,0,-1)
  491.  
  492. inc($ahdsr)
  493.  
  494. end while
  495.  
  496. set_knob_label($Release, get_engine_par_disp($ENGINE_PAR_RELEASE, 0, 0, -1))
  497.  
  498. wait(10)
  499.  
  500. set_knob_label($Release, get_engine_par_disp($ENGINE_PAR_RELEASE, 0, 0, -1))
  501.  
  502. end on
  503.  
  504. {CONVOLUTION REVERB}
  505.  
  506. on ui_control ($reverb)
  507.  
  508. if ($reverb = 0)
  509.  
  510. set_text($reverb, "Convo. Off")
  511.  
  512. set_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS,1,-1,6,1)
  513.  
  514. else
  515.  
  516. set_text($reverb, "Convo. On")
  517.  
  518. set_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS,0,-1,6,1)
  519.  
  520. end if
  521.  
  522. end on
  523.  
  524. on ui_control ($convowet)
  525.  
  526. set_engine_par($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN,$convowet,-1,6,1)
  527.  
  528. set_text($ConvInfo," Wet Slider")
  529.  
  530. end on
  531.  
  532. on ui_control ($convodry)
  533.  
  534. set_engine_par($ENGINE_PAR_SEND_EFFECT_DRY_LEVEL,$convodry,-1,6,1)
  535.  
  536. set_text($ConvInfo," Dry Slider")
  537.  
  538. end on
  539.  
  540. on ui_control ($convodelay)
  541.  
  542. set_engine_par($ENGINE_PAR_IRC_PREDELAY,$convodelay,-1,6,1)
  543.  
  544. set_text($ConvInfo," Delay Slider")
  545.  
  546. end on
  547.  
  548. on ui_control ($convoearlyir)
  549.  
  550. set_engine_par($ENGINE_PAR_IRC_LENGTH_RATIO_ER,$convoearlyir,-1,6,1)
  551.  
  552. set_text($ConvInfo," Early Ir")
  553.  
  554. end on
  555.  
  556. on ui_control ($convolateir)
  557.  
  558. set_engine_par($ENGINE_PAR_IRC_LENGTH_RATIO_LR,$convolateir,-1,6,1)
  559.  
  560. set_text($ConvInfo," Late Ir")
  561.  
  562. end on
  563.  
  564.  
  565.  
  566.  
  567. {Experiment}
  568.  
  569. on ui_control ($output)
  570.  
  571. if ($output = 1)
  572.  
  573. set_text($output, "Multi output on")
  574.  
  575. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,1,0,-1,-1)
  576. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,1,5,-1,-1)
  577. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,1,10,-1,-1)
  578. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,1,15,-1,-1)
  579. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,1,20,-1,-1)
  580.  
  581. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,2,1,-1,-1)
  582. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,2,6,-1,-1)
  583. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,2,11,-1,-1)
  584. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,2,16,-1,-1)
  585. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,2,21,-1,-1)
  586.  
  587. else
  588.  
  589. set_text($output, "Multi output off")
  590. $i := 0
  591. while ($i < $NUM_GROUPS)
  592. set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,$i/10,$i,-1,-1) {$i/10 - Replace with amount of groups you have}
  593. inc($i)
  594. end while
  595. end if
  596.  
  597. end on
  598.  
  599. {Experiment}
  600.  
  601.  
  602.  
  603. {here begins code for the text, that Kontakt displays when certain notes are pressed down}
  604.  
  605. on note
  606.  
  607. select ($EVENT_NOTE)
  608.  
  609. case 24
  610.  
  611. $keyswitch1 := 1
  612. $keyswitch2 := 0
  613. $keyswitch3 := 0
  614.  
  615. case 26
  616.  
  617. $keyswitch1 := 0
  618. $keyswitch2 := 1
  619. $keyswitch3 := 0
  620.  
  621. case 28
  622.  
  623. $keyswitch1 := 0
  624. $keyswitch2 := 0
  625. $keyswitch3 := 1
  626.  
  627. end select
  628.  
  629. if ($keyswitch1 = 1)
  630.  
  631. select ($EVENT_NOTE)
  632.  
  633. case 24
  634. message ("Plain chords - Keyswitch")
  635.  
  636. case 36
  637. message("C plain")
  638.  
  639. case 38
  640. message("D plain (Ori.)")
  641.  
  642. case 37
  643. message("Db plain")
  644.  
  645. case 39
  646. message("Eb plain (Ori.)")
  647.  
  648. case 40
  649. message("E plain")
  650.  
  651. case 41
  652. message("F plain (Ori.)")
  653.  
  654. case 42
  655. message("F# plain")
  656.  
  657. case 43
  658. message("G plain (Ori.)")
  659.  
  660. case 44
  661. message("G# plain")
  662.  
  663. case 45
  664. message("A plain (Ori.)")
  665.  
  666. case 46
  667. message("Bb plain (Ori.)")
  668.  
  669. case 47
  670. message("B plain")
  671.  
  672. case 48
  673. message("C plain")
  674.  
  675. case 58
  676. message("Bb mol plain")
  677.  
  678. case 59
  679. message("B mol plain")
  680.  
  681. case 60
  682. message("C mol plain (Ori.)")
  683.  
  684. case 61
  685. message("Db mol plain")
  686.  
  687. case 62
  688. message("D mol plain (Ori.)")
  689.  
  690. case 63
  691. message("Eb mol plain")
  692.  
  693. case 64
  694. message("E mol plain (Ori.)")
  695.  
  696. case 65
  697. message("F mol plain")
  698.  
  699. case 66
  700. message("F# mol plain (Ori.)")
  701.  
  702. case 67
  703. message("G mol plain (Ori.)")
  704.  
  705. case 68
  706. message("Ab mol plain")
  707.  
  708. case 69
  709. message("A mol plain")
  710.  
  711. case 70
  712. message("Bb mol plain")
  713.  
  714. case 71
  715. message("B mol plain (Ori.)")
  716.  
  717. case 72
  718. message("C mol plain")
  719.  
  720. case 73
  721. message("Db mol plain")
  722.  
  723.  
  724. end select
  725.  
  726. end if
  727.  
  728.  
  729. if ($keyswitch2 = 1)
  730.  
  731. select ($EVENT_NOTE)
  732.  
  733. case 26
  734.  
  735. message("Artificial harmon chords - Keyswitch")
  736.  
  737. case 36
  738. message("C art. harm.")
  739.  
  740. case 37
  741. message("Db art. harm.")
  742.  
  743. case 38
  744. message("D art. harm. (Ori.)")
  745.  
  746. case 39
  747. message("Eb art. harm. (Ori.)")
  748.  
  749. case 40
  750. message("E art. harm.")
  751.  
  752. case 41
  753. message("F art. harm. (Ori.)")
  754.  
  755. case 42
  756. message("F# art. harm.")
  757.  
  758. case 43
  759. message("G art. harm. (Ori.)")
  760.  
  761. case 44
  762. message("G# art. harm.")
  763.  
  764. case 45
  765. message("A art. harm. (Ori.)")
  766.  
  767. case 46
  768. message("Bb art. harm. (Ori.)")
  769.  
  770. case 47
  771. message("B art. harm.")
  772.  
  773. case 48
  774. message("C art. harm.")
  775.  
  776. case 58
  777. message("Bb mol art. harm.")
  778.  
  779. case 59
  780. message("B mol art. harm.")
  781.  
  782. case 60
  783. message("C mol art. harm. (Ori.)")
  784.  
  785. case 61
  786. message("Db mol art. harm.")
  787.  
  788. case 62
  789. message("D mol art. harm. (Ori.)")
  790.  
  791. case 63
  792. message("Eb mol art. harm.")
  793.  
  794. case 64
  795. message("E mol art. harm. (Ori.)")
  796.  
  797. case 65
  798. message("F mol art. harm.")
  799.  
  800. case 66
  801. message("F# mol art. harm. (Ori.)")
  802.  
  803. case 67
  804. message("G mol art. harm. (Ori.)")
  805.  
  806. case 68
  807. message("Ab mol art. harm.")
  808.  
  809. case 69
  810. message("A mol art. harm. (Ori.)")
  811.  
  812. case 70
  813. message("Bb mol art. harm.")
  814.  
  815. case 71
  816. message("B mol art. harm. (Ori.)")
  817.  
  818. case 72
  819. message("C mol art. harm.")
  820.  
  821. case 73
  822. message("Db mol art. harm.")
  823.  
  824. end select
  825.  
  826. end if
  827.  
  828. if ($keyswitch3 = 1)
  829.  
  830. select ($EVENT_NOTE)
  831.  
  832. case 60
  833.  
  834. message("Short")
  835.  
  836. end select
  837.  
  838. end if
  839.  
  840. end on
  841.  
  842.  
  843. {here begins code for the text, that Kontakt displays when notes are released}
  844.  
  845. on release
  846.  
  847. message("Play a note")
  848.  
  849. 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!