API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Feb 14th, 2017
145
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.87 KB | None | 0 0
raw download clone embed print report
  1. on init
  2. make_perfview
  3. set_ui_height_px(327)
  4. set_script_title("Kloud Piano")
  5. set_control_par_str($INST_WALLPAPER_ID,$CONTROL_PAR_PICTURE,"Background 01")
  6. set_control_par_str($INST_ICON_ID,$CONTROL_PAR_PICTURE,"Icon")
  7. message("")
  8.  
  9. declare const $DIGREV_SLOT:=0
  10. declare $Menu_ID := 1
  11. declare $label_ID := 1
  12.  
  13. declare ui_label $Paramdisplay(1, 1)
  14. move_control_px($Paramdisplay,458,310)
  15. set_control_par(get_ui_id($Paramdisplay),$CONTROL_PAR_TEXT_ALIGNMENT,1)
  16. set_control_par(get_ui_id($Paramdisplay),$CONTROL_PAR_FONT_TYPE,$label_ID)
  17. set_text($Paramdisplay,"Name")
  18.  
  19. declare ui_label $Paramdisplay1(1, 1)
  20. move_control_px($Paramdisplay1,545,310)
  21. set_control_par(get_ui_id($Paramdisplay1),$CONTROL_PAR_TEXT_ALIGNMENT,1)
  22. set_control_par(get_ui_id($Paramdisplay1),$CONTROL_PAR_FONT_TYPE,$label_ID)
  23. set_text($Paramdisplay1,"Values")
  24.  
  25. declare @Paramname
  26. @Paramname := "Values"
  27. declare @Paramval
  28. @Paramval := ""
  29.  
  30. declare $DIG_rev_selected
  31. declare %DIGrev_presets_array[7*21+1] := (1,397000,397000,0,0,0,0,0,...
  32. 397000,397000,0,1000000,500000,800000,500000,...
  33. 397000,397000,233333,180000,473333,866667,660000,...
  34. 397000,397000,70316,16667,0,800000,233333,...
  35. 397000,397000,456983,163333,0,1000000,900000,...
  36. 397000,397000,423650,863333,586667,786667,613333,...
  37. 397000,397000,866667,0,173333,1000000,806667,...
  38. 397000,397000,890316,1000000,1000000,1000000,613333,...
  39. 397000,397000,816983,1000000,0,1000000,653333,...
  40. 397000,397000,243650,443333,493333,0,473333,...
  41. 397000,397000,230316,1000000,0,1000000,1000000,...
  42. 397000,397000,700000,280000,226667,1000000,793333,...
  43. 397000,397000,890316,1000000,740000,1000000,533333,...
  44. 397000,397000,753333,946667,300000,780000,773333,...
  45. 397000,397000,373333,100000,220000,1000000,233333,...
  46. 397000,397000,400000,786667,66667,780000,513333,...
  47. 397000,397000,340000,486667,66667,780000,513333,...
  48. 397000,397000,0,526667,240000,633333,1000000,...
  49. 397000,397000,1000000,153333,160000,1000000,160000,...
  50. 397000,397000,1000000,1000000,420000,106667,333333,...
  51. 397000,397000,890316,863333,586667,786667,613333)
  52. declare ui_menu $DIGrev_presets
  53. add_menu_item($DIGrev_presets,"Reverb Off",0)
  54. add_menu_item($DIGrev_presets,"Default",1)
  55. add_menu_item($DIGrev_presets,"Bassverb",2)
  56. add_menu_item($DIGrev_presets,"Bright Room",3)
  57. add_menu_item($DIGrev_presets,"Drum Room",4)
  58. add_menu_item($DIGrev_presets,"Cellar",5)
  59. add_menu_item($DIGrev_presets,"Delay-ish",6)
  60. add_menu_item($DIGrev_presets,"Faraway",7)
  61. add_menu_item($DIGrev_presets,"Grand Hall",8)
  62. add_menu_item($DIGrev_presets,"Hall 1",9)
  63. add_menu_item($DIGrev_presets,"Mysterious",10)
  64. add_menu_item($DIGrev_presets,"Subtle",11)
  65. add_menu_item($DIGrev_presets,"Hall 2",12)
  66. add_menu_item($DIGrev_presets,"Pianoverb",13)
  67. add_menu_item($DIGrev_presets,"Reflections",14)
  68. add_menu_item($DIGrev_presets,"Roomverb 1",15)
  69. add_menu_item($DIGrev_presets,"Roomverb 2",16)
  70. add_menu_item($DIGrev_presets,"Roomverb 3",17)
  71. add_menu_item($DIGrev_presets,"Slapback",18)
  72. add_menu_item($DIGrev_presets,"Tunnel Slap",19)
  73. add_menu_item($DIGrev_presets,"Warehouse",20)
  74.  
  75. set_control_par(get_ui_id($DIGrev_presets),$CONTROL_PAR_FONT_TYPE,$Menu_ID)
  76. move_control_px($DIGrev_presets,3,50)
  77. make_persistent($DIGrev_presets)
  78. $DIG_rev_selected := get_control_par(get_ui_id($DIGrev_presets),$CONTROL_PAR_SELECTED_ITEM_IDX)+1
  79.  
  80. declare ui_switch $DIGon_off_reverb
  81. set_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS,($DIGon_off_reverb+1) mod 2,-1,$DIGrev_slot,1)
  82. set_control_par(get_ui_id($DIGon_off_reverb),$CONTROL_PAR_HEIGHT,50)
  83. set_control_par(get_ui_id($DIGon_off_reverb),$CONTROL_PAR_WIDTH,50)
  84. set_text($DIGon_off_reverb,"")
  85. move_control_px($DIGon_off_reverb,113,45)
  86. $DIGon_off_reverb := 0
  87. make_persistent($DIGon_off_reverb)
  88.  
  89. declare ui_slider $DIGREVdry(0,397000)
  90. declare ui_slider $DIGREVwet(0,397000)
  91. declare ui_slider $DIGREVpredly(0,1000000)
  92. declare ui_slider $DIGIREVsize(0,1000000)
  93. declare ui_slider $DIGIREVdamping(0,1000000)
  94. declare ui_slider $DIGREVstereo(0,1000000)
  95. declare ui_slider $DIGREVcolor(0,1000000)
  96.  
  97. set_knob_defval($DIGREVdry,397000)
  98. set_knob_defval($DIGREVwet,396581)
  99. set_knob_defval($DIGREVpredly,576983)
  100. set_knob_defval($DIGIREVsize,750000)
  101. set_knob_defval($DIGIREVdamping,500000)
  102. set_knob_defval($DIGREVstereo,500000)
  103. set_knob_defval($DIGREVcolor,500000)
  104. set_control_par(get_ui_id($DIGREVdry),$CONTROL_PAR_MOUSE_BEHAVIOUR,-1000)
  105. set_control_par(get_ui_id($DIGREVwet),$CONTROL_PAR_MOUSE_BEHAVIOUR,-1000)
  106. set_control_par(get_ui_id($DIGREVpredly),$CONTROL_PAR_MOUSE_BEHAVIOUR,-1000)
  107. set_control_par(get_ui_id($DIGIREVsize),$CONTROL_PAR_MOUSE_BEHAVIOUR,-1000)
  108. set_control_par(get_ui_id($DIGIREVdamping),$CONTROL_PAR_MOUSE_BEHAVIOUR,-1000)
  109. set_control_par(get_ui_id($DIGREVstereo),$CONTROL_PAR_MOUSE_BEHAVIOUR,-1000)
  110. set_control_par(get_ui_id($DIGREVcolor),$CONTROL_PAR_MOUSE_BEHAVIOUR,-1000)
  111. move_control_px($DIGREVdry,150,0)
  112. move_control_px($DIGREVwet,250,0)
  113. move_control_px($DIGREVpredly,250,50)
  114. move_control_px($DIGIREVsize,250,100)
  115. move_control_px($DIGIREVdamping,250,150)
  116. move_control_px($DIGREVstereo,250,200)
  117. move_control_px($DIGREVcolor,250,250)
  118. set_control_par(get_ui_id($DIGREVpredly),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
  119. set_control_par(get_ui_id($DIGIREVsize),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
  120. set_control_par(get_ui_id($DIGIREVdamping),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
  121. set_control_par(get_ui_id($DIGREVstereo),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
  122. set_control_par(get_ui_id($DIGREVcolor),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
  123. make_persistent($DIGREVdry)
  124. make_persistent($DIGREVwet)
  125. make_persistent($DIGREVpredly)
  126. make_persistent($DIGIREVsize)
  127. make_persistent($DIGIREVdamping)
  128. make_persistent($DIGREVstereo)
  129. make_persistent($DIGREVcolor)
  130. read_persistent_var($DIGREVdry)
  131. read_persistent_var($DIGREVwet)
  132. read_persistent_var($DIGREVpredly)
  133. read_persistent_var($DIGIREVsize)
  134. read_persistent_var($DIGIREVdamping)
  135. read_persistent_var($DIGREVstereo)
  136. read_persistent_var($DIGREVcolor)
  137.  
  138. $DIGREVdry := get_engine_par($ENGINE_PAR_SEND_EFFECT_DRY_LEVEL,-1,$DIGREV_slot,1)
  139. $DIGREVwet := get_engine_par($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN,-1,$DIGREV_slot,1)
  140. $DIGREVpredly := get_engine_par($ENGINE_PAR_RV_PREDELAY,-1,$DIGREV_slot,1)
  141. $DIGIREVsize := get_engine_par($ENGINE_PAR_RV_SIZE,-1,$DIGREV_slot,1)
  142. $DIGIREVdamping := get_engine_par($ENGINE_PAR_RV_DAMPING,-1,$DIGREV_slot,1)
  143. $DIGREVstereo := get_engine_par($ENGINE_PAR_RV_STEREO,-1,$DIGREV_slot,1)
  144. $DIGREVcolor := get_engine_par($ENGINE_PAR_RV_COLOUR,-1,$DIGREV_slot,1)
  145. end on
  146.  
  147. function Update_Param_Display
  148. set_control_par_str(get_ui_id($Paramdisplay),$CONTROL_PAR_TEXT,@Paramname)
  149. end function
  150. function Update_Param_Display1
  151. set_control_par_str(get_ui_id($Paramdisplay1),$CONTROL_PAR_TEXT,@Paramval)
  152. end function
  153. function SHOW_REVERB
  154. set_control_par(get_ui_id($DIGREVpredly),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
  155. set_control_par(get_ui_id($DIGIREVsize),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
  156. set_control_par(get_ui_id($DIGIREVdamping),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
  157. set_control_par(get_ui_id($DIGREVstereo),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
  158. set_control_par(get_ui_id($DIGREVcolor),$CONTROL_PAR_HIDE,$HIDE_PART_NOTHING)
  159. end function
  160. function HIDE_REVERB
  161. set_control_par(get_ui_id($DIGREVpredly),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
  162. set_control_par(get_ui_id($DIGIREVsize),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
  163. set_control_par(get_ui_id($DIGIREVdamping),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
  164. set_control_par(get_ui_id($DIGREVstereo),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
  165. set_control_par(get_ui_id($DIGREVcolor),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
  166. end function
  167.  
  168. on ui_control($DIGon_off_reverb)
  169. if ($DIGon_off_reverb=1)
  170. set_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS,0,-1,$DIGREV_SLOT,1)
  171. @Paramname := "Digital Reverb: "
  172. @Paramval := " ON"
  173. call Update_Param_Display
  174. call Update_Param_Display1
  175. call SHOW_REVERB
  176. end if
  177. if ($DIGon_off_reverb=0)
  178. set_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS,1,-1,$DIGREV_SLOT,1)
  179. @Paramname := "Digital Reverb: "
  180. @Paramval := " OFF"
  181. call Update_Param_Display
  182. call Update_Param_Display1
  183. call HIDE_REVERB
  184. end if
  185. end on
  186.  
  187. on ui_control($DIGrev_presets)
  188. $DIG_rev_selected := get_control_par(get_ui_id($DIGrev_presets),$CONTROL_PAR_SELECTED_ITEM_IDX)+1
  189. set_engine_par($ENGINE_PAR_SEND_EFFECT_DRY_LEVEL,%DIGrev_presets_array[1+(7*($DIG_rev_selected-1))],-1,$DIGREV_SLOT,1)
  190. set_engine_par($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN,%DIGrev_presets_array[2+(7*($DIG_rev_selected-1))],-1,$DIGREV_SLOT,1)
  191. set_engine_par($ENGINE_PAR_RV_PREDELAY,%DIGrev_presets_array[3+(7*($DIG_rev_selected-1))],-1,$DIGREV_SLOT,1)
  192. set_engine_par($ENGINE_PAR_RV_SIZE,%DIGrev_presets_array[4+(7*($DIG_rev_selected-1))],-1,$DIGREV_SLOT,1)
  193. set_engine_par($ENGINE_PAR_RV_DAMPING,%DIGrev_presets_array[5+(7*($DIG_rev_selected-1))],-1,$DIGREV_SLOT,1)
  194. set_engine_par($ENGINE_PAR_RV_STEREO,%DIGrev_presets_array[6+(7*($DIG_rev_selected-1))],-1,$DIGREV_SLOT,1)
  195. set_engine_par($ENGINE_PAR_RV_COLOUR,%DIGrev_presets_array[7+(7*($DIG_rev_selected-1))],-1,$DIGREV_SLOT,1)
  196.  
  197. $DIGREVdry := get_engine_par($ENGINE_PAR_SEND_EFFECT_DRY_LEVEL,-1,$DIGREV_SLOT,1)
  198. $DIGREVwet := get_engine_par($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN,-1,$DIGREV_SLOT,1)
  199. $DIGREVpredly := get_engine_par($ENGINE_PAR_RV_PREDELAY,-1,$DIGREV_SLOT,1)
  200. $DIGIREVsize := get_engine_par($ENGINE_PAR_RV_SIZE,-1,$DIGREV_SLOT,1)
  201. $DIGIREVdamping := get_engine_par($ENGINE_PAR_RV_DAMPING,-1,$DIGREV_SLOT,1)
  202. $DIGREVstereo := get_engine_par($ENGINE_PAR_RV_STEREO,-1,$DIGREV_SLOT,1)
  203. $DIGREVcolor := get_engine_par($ENGINE_PAR_RV_COLOUR,-1,$DIGREV_SLOT,1)
  204.  
  205. if ($DIGrev_presets=0)
  206. set_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS,1,-1,$DIGREV_SLOT,1)
  207. $DIGon_off_reverb := 0
  208. @Paramname := "Digital Reverb: "
  209. @Paramval := " OFF"
  210. call Update_Param_Display
  211. call Update_Param_Display1
  212. call HIDE_REVERB
  213. end if
  214.  
  215. if ($DIGrev_presets # 0)
  216. set_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS,0,-1,$DIGREV_SLOT,1)
  217. $DIGon_off_reverb := 1
  218. @Paramname := "Digital Reverb: "
  219. @Paramval := " ON"
  220. call Update_Param_Display
  221. call Update_Param_Display1
  222. call SHOW_REVERB
  223. end if
  224. end on
  225.  
  226. on ui_control($DIGREVdry)
  227. set_engine_par($ENGINE_PAR_SEND_EFFECT_DRY_LEVEL,$DIGREVdry,-1,$DIGREV_SLOT,1)
  228. @Paramname := "Dry Level: "
  229. @Paramval := get_engine_par_disp($ENGINE_PAR_SEND_EFFECT_DRY_LEVEL,-1,$DIGREV_SLOT,1) & "dB"
  230. call Update_Param_Display
  231. call Update_Param_Display1
  232. end on
  233.  
  234. on ui_control($DIGREVwet)
  235. set_engine_par($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN,$DIGREVwet,-1,$DIGREV_SLOT,1)
  236. @Paramname := "Wet Level"
  237. @Paramval := get_engine_par_disp($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN,-1,$DIGREV_SLOT,1) & "dB"
  238. call Update_Param_Display
  239. call Update_Param_Display1
  240. end on
  241.  
  242. on ui_control($DIGREVpredly)
  243. set_engine_par($ENGINE_PAR_RV_PREDELAY,$DIGREVpredly,-1,$DIGREV_slot,1)
  244. @Paramname := "Pre Delay"
  245. @Paramval := get_engine_par_disp($ENGINE_PAR_RV_PREDELAY,-1,$DIGREV_slot,1) & "ms"
  246. call Update_Param_Display
  247. call Update_Param_Display1
  248. end on
  249.  
  250. on ui_control($DIGIREVsize)
  251. set_engine_par($ENGINE_PAR_RV_SIZE,$DIGIREVsize,-1,$DIGREV_slot,1)
  252. @Paramname := "Delay Size"
  253. @Paramval := get_engine_par_disp($ENGINE_PAR_RV_SIZE,-1,$DIGREV_slot,1) & "%"
  254. call Update_Param_Display
  255. call Update_Param_Display1
  256. end on
  257.  
  258. on ui_control($DIGIREVdamping)
  259. set_engine_par($ENGINE_PAR_RV_DAMPING,$DIGIREVdamping,-1,$DIGREV_slot,1)
  260. @Paramname := "Damping"
  261. @Paramval := get_engine_par_disp($ENGINE_PAR_RV_DAMPING,-1,$DIGREV_slot,1) & "%"
  262. call Update_Param_Display
  263. call Update_Param_Display1
  264. end on
  265.  
  266. on ui_control($DIGREVstereo)
  267. set_engine_par($ENGINE_PAR_RV_STEREO,$DIGREVstereo,-1,$DIGREV_slot,1)
  268. @Paramname := "Stereo"
  269. @Paramval := get_engine_par_disp($ENGINE_PAR_RV_STEREO,-1,$DIGREV_slot,1) & "%"
  270. call Update_Param_Display
  271. call Update_Param_Display1
  272. end on
  273.  
  274. on ui_control($DIGREVcolor)
  275. set_engine_par($ENGINE_PAR_RV_COLOUR,$DIGREVcolor,-1,$DIGREV_slot,1)
  276. @Paramname := "Colour"
  277. @Paramval := get_engine_par_disp($ENGINE_PAR_RV_COLOUR,-1,$DIGREV_slot,1) & "%"
  278. call Update_Param_Display
  279. call Update_Param_Display1
  280. end on
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!