API tools faq
paste
BrandonSpendlove

Kontakt - CentralSynthesis Rough Script

BrandonSpendlove
Nov 29th, 2013
112
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 23.10 KB | None | 0 0
raw download clone embed print report
  1. {CentralSynthesis Rough Draft script: You can see the Interface here:
  2.  
  3. http://bspendlove.newgrounds.com/news/post/876527
  4.  
  5. All scripting was developed by Brandon Spendlove
  6. All Images, Logos and Instrument Programming owned by CentralComposers
  7. You will not see any custom images on the Interface if you copy this script}
  8.  
  9. on init
  10.  
  11. message ("")
  12.  
  13. make_perfview
  14. set_ui_height_px (321)
  15.  
  16. set_control_par($INST_ICON_ID,$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
  17.  
  18. declare ui_label $null (0,0)
  19. set_text($null,"")
  20. set_control_par_str(get_ui_id($null), $CONTROL_PAR_PICTURE,"CentralSynthesis/null")
  21. move_control($null, 0,0)
  22.  
  23. $null := 0
  24.  
  25.  
  26.  
  27. {UI Page Changing}
  28.  
  29. declare ui_button $synthfx
  30. set_text($synthfx,"")
  31. set_control_par(get_ui_id($synthfx),$CONTROL_PAR_WIDTH,75)
  32. set_control_par(get_ui_id($synthfx),$CONTROL_PAR_HEIGHT,11)
  33. set_control_par_str(get_ui_id($synthfx), $CONTROL_PAR_PICTURE,"CentralSynthesis/synthfx")
  34. move_control_px ($synthfx, 539, 14)
  35.  
  36. $synthfx := 0
  37.  
  38. {OSCILLATORS}
  39.  
  40. declare ui_button $osc1power
  41. set_text($osc1power,"")
  42. set_control_par(get_ui_id($osc1power),$CONTROL_PAR_WIDTH,75)
  43. set_control_par(get_ui_id($osc1power),$CONTROL_PAR_HEIGHT,11)
  44. set_control_par_str(get_ui_id($osc1power), $CONTROL_PAR_PICTURE,"CentralSynthesis/osc1")
  45. move_control_px ($osc1power, 55, 45)
  46.  
  47. $osc1power := 1
  48.  
  49. declare ui_button $osc2power
  50. set_text($osc2power,"")
  51. set_control_par(get_ui_id($osc2power),$CONTROL_PAR_WIDTH,75)
  52. set_control_par(get_ui_id($osc2power),$CONTROL_PAR_HEIGHT,11)
  53. set_control_par_str(get_ui_id($osc2power), $CONTROL_PAR_PICTURE,"CentralSynthesis/osc2")
  54. move_control_px ($osc2power, 224, 45)
  55.  
  56. $osc2power := 0
  57.  
  58. {OSCILLATOR 1: CONTROLS}
  59.  
  60. {MAIN}
  61.  
  62. declare ui_slider $osc1volume (1,1000000)
  63. set_control_par(get_ui_id($osc1volume),$CONTROL_PAR_WIDTH,40)
  64. set_control_par(get_ui_id($osc1volume),$CONTROL_PAR_HEIGHT,40)
  65. set_control_par(get_ui_id($osc1volume), $CONTROL_PAR_MOUSE_BEHAVIOUR, -400)
  66. set_control_par_str(get_ui_id($osc1volume), $CONTROL_PAR_PICTURE,"CentralSynthesis/knob1")
  67. move_control_px($osc1volume, 17,126)
  68.  
  69. declare ui_slider $osc1pan (1,1000000)
  70. set_control_par(get_ui_id($osc1pan),$CONTROL_PAR_WIDTH,40)
  71. set_control_par(get_ui_id($osc1pan),$CONTROL_PAR_HEIGHT,40)
  72. set_control_par(get_ui_id($osc1pan), $CONTROL_PAR_MOUSE_BEHAVIOUR, -400)
  73. set_control_par_str(get_ui_id($osc1pan), $CONTROL_PAR_PICTURE,"CentralSynthesis/knob1")
  74. move_control_px($osc1pan, 71,126)
  75.  
  76. $osc1pan := 500000
  77.  
  78. declare ui_slider $osc1tune (1,1000000)
  79. set_control_par(get_ui_id($osc1tune),$CONTROL_PAR_WIDTH,40)
  80. set_control_par(get_ui_id($osc1tune),$CONTROL_PAR_HEIGHT,40)
  81. set_control_par(get_ui_id($osc1tune), $CONTROL_PAR_MOUSE_BEHAVIOUR, -400)
  82. set_control_par_str(get_ui_id($osc1tune), $CONTROL_PAR_PICTURE,"CentralSynthesis/knob1")
  83. move_control_px($osc1tune, 127,126)
  84.  
  85. $osc1tune := 500000
  86.  
  87.  
  88.  
  89. {OSC 1 Amp (Volume) ADSR}
  90.  
  91. declare ui_slider $osc1ampattack(0,1000000)
  92. set_control_par_str(get_ui_id($osc1ampattack),$CONTROL_PAR_PICTURE,"CentralSynthesis/slider1")
  93. set_control_par(get_ui_id($osc1ampattack),$CONTROL_PAR_WIDTH,18)
  94. set_control_par(get_ui_id($osc1ampattack),$CONTROL_PAR_HEIGHT,88)
  95. set_control_par(get_ui_id($osc1ampattack), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  96. move_control_px($osc1ampattack, 32,194)
  97.  
  98. declare ui_slider $osc1ampdecay(0,1000000)
  99. set_control_par_str(get_ui_id($osc1ampdecay),$CONTROL_PAR_PICTURE,"CentralSynthesis/slider1")
  100. set_control_par(get_ui_id($osc1ampdecay),$CONTROL_PAR_WIDTH,18)
  101. set_control_par(get_ui_id($osc1ampdecay),$CONTROL_PAR_HEIGHT,88)
  102. set_control_par(get_ui_id($osc1ampdecay), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  103. move_control_px($osc1ampdecay, 66,194)
  104.  
  105. declare ui_slider $osc1ampsustain(0,1000000)
  106. set_control_par_str(get_ui_id($osc1ampsustain),$CONTROL_PAR_PICTURE,"CentralSynthesis/slider1")
  107. set_control_par(get_ui_id($osc1ampsustain),$CONTROL_PAR_WIDTH,18)
  108. set_control_par(get_ui_id($osc1ampsustain),$CONTROL_PAR_HEIGHT,88)
  109. set_control_par(get_ui_id($osc1ampsustain), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  110. move_control_px($osc1ampsustain, 99,194)
  111.  
  112. declare ui_slider $osc1amprelease(0,1000000)
  113. set_control_par_str(get_ui_id($osc1amprelease),$CONTROL_PAR_PICTURE,"CentralSynthesis/slider1")
  114. set_control_par(get_ui_id($osc1amprelease),$CONTROL_PAR_WIDTH,18)
  115. set_control_par(get_ui_id($osc1amprelease),$CONTROL_PAR_HEIGHT,88)
  116. set_control_par(get_ui_id($osc1amprelease), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  117. move_control_px($osc1amprelease, 133,194)
  118.  
  119.  
  120.  
  121. {FILTER 1}
  122.  
  123. declare ui_slider $osc1filtercutoff(0,1000000)
  124. set_control_par_str(get_ui_id($osc1filtercutoff),$CONTROL_PAR_PICTURE,"CentralSynthesis/slider2")
  125. set_control_par(get_ui_id($osc1filtercutoff),$CONTROL_PAR_WIDTH,18)
  126. set_control_par(get_ui_id($osc1filtercutoff),$CONTROL_PAR_HEIGHT,65)
  127. set_control_par(get_ui_id($osc1filtercutoff), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  128. move_control_px($osc1filtercutoff, 362,73)
  129.  
  130. declare ui_slider $osc1filterreso(0,1000000)
  131. set_control_par_str(get_ui_id($osc1filterreso),$CONTROL_PAR_PICTURE,"CentralSynthesis/slider2")
  132. set_control_par(get_ui_id($osc1filterreso),$CONTROL_PAR_WIDTH,18)
  133. set_control_par(get_ui_id($osc1filterreso),$CONTROL_PAR_HEIGHT,65)
  134. set_control_par(get_ui_id($osc1filterreso), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  135. move_control_px($osc1filterreso, 389,73)
  136.  
  137. {OSC 1 FILTER ENVELOPE}
  138.  
  139. declare ui_slider $osc1filterattack(0,1000000)
  140. set_control_par_str(get_ui_id($osc1filterattack),$CONTROL_PAR_PICTURE,"CentralSynthesis/knob1")
  141. set_control_par(get_ui_id($osc1filterattack),$CONTROL_PAR_WIDTH,40)
  142. set_control_par(get_ui_id($osc1filterattack),$CONTROL_PAR_HEIGHT,40)
  143. set_control_par(get_ui_id($osc1filterattack), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  144. move_control_px($osc1filterattack, 416,94)
  145.  
  146. declare ui_slider $osc1filterdecay(0,1000000)
  147. set_control_par_str(get_ui_id($osc1filterdecay),$CONTROL_PAR_PICTURE,"CentralSynthesis/knob1")
  148. set_control_par(get_ui_id($osc1filterdecay),$CONTROL_PAR_WIDTH,40)
  149. set_control_par(get_ui_id($osc1filterdecay),$CONTROL_PAR_HEIGHT,40)
  150. set_control_par(get_ui_id($osc1filterdecay), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  151. move_control_px($osc1filterdecay, 469,94)
  152.  
  153. declare ui_slider $osc1filtersustain(0,1000000)
  154. set_control_par_str(get_ui_id($osc1filtersustain),$CONTROL_PAR_PICTURE,"CentralSynthesis/knob1")
  155. set_control_par(get_ui_id($osc1filtersustain),$CONTROL_PAR_WIDTH,40)
  156. set_control_par(get_ui_id($osc1filtersustain),$CONTROL_PAR_HEIGHT,40)
  157. set_control_par(get_ui_id($osc1filtersustain), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  158. move_control_px($osc1filtersustain, 523,94)
  159.  
  160. declare ui_slider $osc1filterrelease(0,1000000)
  161. set_control_par_str(get_ui_id($osc1filterrelease),$CONTROL_PAR_PICTURE,"CentralSynthesis/knob1")
  162. set_control_par(get_ui_id($osc1filterrelease),$CONTROL_PAR_WIDTH,40)
  163. set_control_par(get_ui_id($osc1filterrelease),$CONTROL_PAR_HEIGHT,40)
  164. set_control_par(get_ui_id($osc1filterrelease), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  165. move_control_px($osc1filterrelease, 579,94)
  166.  
  167.  
  168.  
  169. {OSCILLATOR 2: CONTROLS}
  170.  
  171. {MAIN}
  172.  
  173. declare ui_slider $osc2volume (1,1000000)
  174. set_control_par(get_ui_id($osc2volume),$CONTROL_PAR_WIDTH,40)
  175. set_control_par(get_ui_id($osc2volume),$CONTROL_PAR_HEIGHT,40)
  176. set_control_par(get_ui_id($osc2volume), $CONTROL_PAR_MOUSE_BEHAVIOUR, -400)
  177. set_control_par_str(get_ui_id($osc2volume), $CONTROL_PAR_PICTURE,"CentralSynthesis/knob1")
  178. move_control_px($osc2volume, 187,126)
  179.  
  180. declare ui_slider $osc2pan (1,1000000)
  181. set_control_par(get_ui_id($osc2pan),$CONTROL_PAR_WIDTH,40)
  182. set_control_par(get_ui_id($osc2pan),$CONTROL_PAR_HEIGHT,40)
  183. set_control_par(get_ui_id($osc2pan), $CONTROL_PAR_MOUSE_BEHAVIOUR, -400)
  184. set_control_par_str(get_ui_id($osc2pan), $CONTROL_PAR_PICTURE,"CentralSynthesis/knob1")
  185. move_control_px($osc2pan, 241,126)
  186.  
  187. $osc2pan := 500000
  188.  
  189. declare ui_slider $osc2tune (1,1000000)
  190. set_control_par(get_ui_id($osc2tune),$CONTROL_PAR_WIDTH,40)
  191. set_control_par(get_ui_id($osc2tune),$CONTROL_PAR_HEIGHT,40)
  192. set_control_par(get_ui_id($osc2tune), $CONTROL_PAR_MOUSE_BEHAVIOUR, -400)
  193. set_control_par_str(get_ui_id($osc2tune), $CONTROL_PAR_PICTURE,"CentralSynthesis/knob1")
  194. move_control_px($osc2tune, 297,126)
  195.  
  196. $osc2tune := 500000
  197.  
  198. {OSC 2 AMP (Volume) ADSR}
  199.  
  200. declare ui_slider $osc2ampattack(0,1000000)
  201. set_control_par_str(get_ui_id($osc2ampattack),$CONTROL_PAR_PICTURE,"CentralSynthesis/slider1")
  202. set_control_par(get_ui_id($osc2ampattack),$CONTROL_PAR_WIDTH,18)
  203. set_control_par(get_ui_id($osc2ampattack),$CONTROL_PAR_HEIGHT,88)
  204. set_control_par(get_ui_id($osc2ampattack), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  205. move_control_px($osc2ampattack, 202,194)
  206.  
  207. declare ui_slider $osc2ampdecay(0,1000000)
  208. set_control_par_str(get_ui_id($osc2ampdecay),$CONTROL_PAR_PICTURE,"CentralSynthesis/slider1")
  209. set_control_par(get_ui_id($osc2ampdecay),$CONTROL_PAR_WIDTH,18)
  210. set_control_par(get_ui_id($osc2ampdecay),$CONTROL_PAR_HEIGHT,88)
  211. set_control_par(get_ui_id($osc2ampdecay), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  212. move_control_px($osc2ampdecay, 236,194)
  213.  
  214. declare ui_slider $osc2ampsustain(0,1000000)
  215. set_control_par_str(get_ui_id($osc2ampsustain),$CONTROL_PAR_PICTURE,"CentralSynthesis/slider1")
  216. set_control_par(get_ui_id($osc2ampsustain),$CONTROL_PAR_WIDTH,18)
  217. set_control_par(get_ui_id($osc2ampsustain),$CONTROL_PAR_HEIGHT,88)
  218. set_control_par(get_ui_id($osc2ampsustain), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  219. move_control_px($osc2ampsustain, 269,194)
  220.  
  221. declare ui_slider $osc2amprelease(0,1000000)
  222. set_control_par_str(get_ui_id($osc2amprelease),$CONTROL_PAR_PICTURE,"CentralSynthesis/slider1")
  223. set_control_par(get_ui_id($osc2amprelease),$CONTROL_PAR_WIDTH,18)
  224. set_control_par(get_ui_id($osc2amprelease),$CONTROL_PAR_HEIGHT,88)
  225. set_control_par(get_ui_id($osc2amprelease), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  226. move_control_px($osc2amprelease, 303,194)
  227.  
  228. {FILTER 2}
  229.  
  230. declare ui_slider $osc2filtercutoff(0,1000000)
  231. set_control_par_str(get_ui_id($osc2filtercutoff),$CONTROL_PAR_PICTURE,"CentralSynthesis/slider2")
  232. set_control_par(get_ui_id($osc2filtercutoff),$CONTROL_PAR_WIDTH,18)
  233. set_control_par(get_ui_id($osc2filtercutoff),$CONTROL_PAR_HEIGHT,65)
  234. set_control_par(get_ui_id($osc2filtercutoff), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  235. move_control_px($osc2filtercutoff, 362,173)
  236.  
  237. declare ui_slider $osc2filterreso(0,1000000)
  238. set_control_par_str(get_ui_id($osc2filterreso),$CONTROL_PAR_PICTURE,"CentralSynthesis/slider2")
  239. set_control_par(get_ui_id($osc2filterreso),$CONTROL_PAR_WIDTH,18)
  240. set_control_par(get_ui_id($osc2filterreso),$CONTROL_PAR_HEIGHT,65)
  241. set_control_par(get_ui_id($osc2filterreso), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  242. move_control_px($osc2filterreso, 389,173)
  243.  
  244. {OSC 2 FILTER ENVELOPE}
  245.  
  246. declare ui_slider $osc2filterattack(0,1000000)
  247. set_control_par_str(get_ui_id($osc2filterattack),$CONTROL_PAR_PICTURE,"CentralSynthesis/knob1")
  248. set_control_par(get_ui_id($osc2filterattack),$CONTROL_PAR_WIDTH,40)
  249. set_control_par(get_ui_id($osc2filterattack),$CONTROL_PAR_HEIGHT,40)
  250. set_control_par(get_ui_id($osc2filterattack), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  251. move_control_px($osc2filterattack, 415,195)
  252.  
  253. declare ui_slider $osc2filterdecay(0,1000000)
  254. set_control_par_str(get_ui_id($osc2filterdecay),$CONTROL_PAR_PICTURE,"CentralSynthesis/knob1")
  255. set_control_par(get_ui_id($osc2filterdecay),$CONTROL_PAR_WIDTH,40)
  256. set_control_par(get_ui_id($osc2filterdecay),$CONTROL_PAR_HEIGHT,40)
  257. set_control_par(get_ui_id($osc2filterdecay), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  258. move_control_px($osc2filterdecay, 468,195)
  259.  
  260. declare ui_slider $osc2filtersustain(0,1000000)
  261. set_control_par_str(get_ui_id($osc2filtersustain),$CONTROL_PAR_PICTURE,"CentralSynthesis/knob1")
  262. set_control_par(get_ui_id($osc2filtersustain),$CONTROL_PAR_WIDTH,40)
  263. set_control_par(get_ui_id($osc2filtersustain),$CONTROL_PAR_HEIGHT,40)
  264. set_control_par(get_ui_id($osc2filtersustain), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  265. move_control_px($osc2filtersustain, 522,195)
  266.  
  267. declare ui_slider $osc2filterrelease(0,1000000)
  268. set_control_par_str(get_ui_id($osc2filterrelease),$CONTROL_PAR_PICTURE,"CentralSynthesis/knob1")
  269. set_control_par(get_ui_id($osc2filterrelease),$CONTROL_PAR_WIDTH,40)
  270. set_control_par(get_ui_id($osc2filterrelease),$CONTROL_PAR_HEIGHT,40)
  271. set_control_par(get_ui_id($osc2filterrelease), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  272. move_control_px($osc2filterrelease, 578,195)
  273.  
  274.  
  275. {WAVEFORM MENUS}
  276.  
  277. {OSCILLATOR 1}
  278.  
  279. declare ui_menu $waveformosc1
  280. set_control_par(get_ui_id($waveformosc1),$CONTROL_PAR_WIDTH,80)
  281. set_control_par(get_ui_id($waveformosc1),$CONTROL_PAR_HEIGHT,30)
  282. set_control_par_str(get_ui_id($waveformosc1), $CONTROL_PAR_PICTURE,"CentralSynthesis/null")
  283. set_control_par(get_ui_id($waveformosc1),$CONTROL_PAR_FONT_TYPE,24)
  284. set_control_par(get_ui_id($waveformosc1),$CONTROL_PAR_TEXT_ALIGNMENT, 1)
  285. move_control_px($waveformosc1, 11, 79)
  286.  
  287. add_menu_item($waveformosc1,"Choose...",0)
  288. add_menu_item($waveformosc1,"Square", 1)
  289. add_menu_item($waveformosc1,"Saw", 2)
  290. add_menu_item($waveformosc1,"Ramp", 3)
  291. add_menu_item($waveformosc1,"Triangle",4)
  292.  
  293. {OSCILLATOR 2}
  294.  
  295. declare ui_menu $waveformosc2
  296. set_control_par(get_ui_id($waveformosc2),$CONTROL_PAR_WIDTH,80)
  297. set_control_par(get_ui_id($waveformosc2),$CONTROL_PAR_HEIGHT,30)
  298. set_control_par_str(get_ui_id($waveformosc2), $CONTROL_PAR_PICTURE,"CentralSynthesis/null")
  299. set_control_par(get_ui_id($waveformosc2),$CONTROL_PAR_FONT_TYPE,24)
  300. set_control_par(get_ui_id($waveformosc2),$CONTROL_PAR_TEXT_ALIGNMENT, 1)
  301. move_control_px($waveformosc2, 181, 79)
  302.  
  303. add_menu_item($waveformosc2,"Choose...",0)
  304. add_menu_item($waveformosc2,"Square", 1)
  305. add_menu_item($waveformosc2,"Saw", 2)
  306. add_menu_item($waveformosc2,"Ramp", 3)
  307. add_menu_item($waveformosc2,"Triangle",4)
  308.  
  309. {LFO WAVEFORM}
  310.  
  311. declare ui_menu $waveformlfo
  312. set_control_par(get_ui_id($waveformlfo),$CONTROL_PAR_WIDTH,80)
  313. set_control_par(get_ui_id($waveformlfo),$CONTROL_PAR_HEIGHT,30)
  314. set_control_par_str(get_ui_id($waveformlfo), $CONTROL_PAR_PICTURE,"CentralSynthesis/null")
  315. set_control_par(get_ui_id($waveformlfo),$CONTROL_PAR_FONT_TYPE,5)
  316. set_control_par(get_ui_id($waveformlfo),$CONTROL_PAR_TEXT_ALIGNMENT, 1)
  317. move_control_px($waveformlfo, 366, 253)
  318.  
  319. add_menu_item($waveformlfo,"LFO...",0)
  320. add_menu_item($waveformlfo,"Square", 1)
  321. add_menu_item($waveformlfo,"Saw", 2)
  322. add_menu_item($waveformlfo,"Ramp", 3)
  323. add_menu_item($waveformlfo,"Triangle",4)
  324.  
  325. {WAVEFORMS (Images)}
  326.  
  327. {OSC 1}
  328.  
  329. declare ui_label $osc1square (0,0)
  330. set_text($osc1square, "")
  331. set_control_par(get_ui_id($osc1square),$CONTROL_PAR_WIDTH,50)
  332. set_control_par(get_ui_id($osc1square),$CONTROL_PAR_HEIGHT,30)
  333. set_control_par_str(get_ui_id($osc1square), $CONTROL_PAR_PICTURE,"CentralSynthesis/wave_square")
  334. move_control($osc1square, 0,0)
  335.  
  336. declare ui_label $osc1saw (0,0)
  337. set_text($osc1saw, "")
  338. set_control_par(get_ui_id($osc1saw),$CONTROL_PAR_WIDTH,50)
  339. set_control_par(get_ui_id($osc1saw),$CONTROL_PAR_HEIGHT,30)
  340. set_control_par_str(get_ui_id($osc1saw), $CONTROL_PAR_PICTURE,"CentralSynthesis/wave_saw")
  341. move_control($osc1saw, 0,0)
  342.  
  343. declare ui_label $osc1ramp (0,0)
  344. set_text($osc1ramp, "")
  345. set_control_par(get_ui_id($osc1ramp),$CONTROL_PAR_WIDTH,50)
  346. set_control_par(get_ui_id($osc1ramp),$CONTROL_PAR_HEIGHT,30)
  347. set_control_par_str(get_ui_id($osc1ramp), $CONTROL_PAR_PICTURE,"CentralSynthesis/wave_ramp")
  348. move_control($osc1ramp, 0,0)
  349.  
  350. declare ui_label $osc1triangle (0,0)
  351. set_text($osc1triangle, "")
  352. set_control_par(get_ui_id($osc1triangle),$CONTROL_PAR_WIDTH,50)
  353. set_control_par(get_ui_id($osc1triangle),$CONTROL_PAR_HEIGHT,30)
  354. set_control_par_str(get_ui_id($osc1triangle), $CONTROL_PAR_PICTURE,"CentralSynthesis/wave_triangle")
  355. move_control($osc1triangle, 0,0)
  356.  
  357. {OSC 2}
  358.  
  359. declare ui_label $osc2square (0,0)
  360. set_text($osc2square, "")
  361. set_control_par(get_ui_id($osc2square),$CONTROL_PAR_WIDTH,50)
  362. set_control_par(get_ui_id($osc2square),$CONTROL_PAR_HEIGHT,30)
  363. set_control_par_str(get_ui_id($osc2square), $CONTROL_PAR_PICTURE,"CentralSynthesis/wave_square")
  364. move_control($osc2square, 0,0)
  365.  
  366. declare ui_label $osc2saw (0,0)
  367. set_text($osc2saw, "")
  368. set_control_par(get_ui_id($osc2saw),$CONTROL_PAR_WIDTH,50)
  369. set_control_par(get_ui_id($osc2saw),$CONTROL_PAR_HEIGHT,30)
  370. set_control_par_str(get_ui_id($osc2saw), $CONTROL_PAR_PICTURE,"CentralSynthesis/wave_saw")
  371. move_control($osc2saw, 0,0)
  372.  
  373. declare ui_label $osc2ramp (0,0)
  374. set_text($osc2ramp, "")
  375. set_control_par(get_ui_id($osc2ramp),$CONTROL_PAR_WIDTH,50)
  376. set_control_par(get_ui_id($osc2ramp),$CONTROL_PAR_HEIGHT,30)
  377. set_control_par_str(get_ui_id($osc2ramp), $CONTROL_PAR_PICTURE,"CentralSynthesis/wave_ramp")
  378. move_control($osc2ramp, 0,0)
  379.  
  380. declare ui_label $osc2triangle (0,0)
  381. set_text($osc2triangle, "")
  382. set_control_par(get_ui_id($osc2triangle),$CONTROL_PAR_WIDTH,50)
  383. set_control_par(get_ui_id($osc2triangle),$CONTROL_PAR_HEIGHT,30)
  384. set_control_par_str(get_ui_id($osc2triangle), $CONTROL_PAR_PICTURE,"CentralSynthesis/wave_triangle")
  385. move_control($osc2triangle, 0,0)
  386.  
  387. {LFO CONTROLS}
  388.  
  389. declare ui_slider $lfophase(0,1000000)
  390. set_control_par_str(get_ui_id($lfophase),$CONTROL_PAR_PICTURE,"CentralSynthesis/knob1")
  391. set_control_par(get_ui_id($lfophase),$CONTROL_PAR_WIDTH,40)
  392. set_control_par(get_ui_id($lfophase),$CONTROL_PAR_HEIGHT,40)
  393. set_control_par(get_ui_id($lfophase), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  394. move_control_px($lfophase, 469,269)
  395.  
  396. declare ui_slider $lfofadein(0,1000000)
  397. set_control_par_str(get_ui_id($lfofadein),$CONTROL_PAR_PICTURE,"CentralSynthesis/knob1")
  398. set_control_par(get_ui_id($lfofadein),$CONTROL_PAR_WIDTH,40)
  399. set_control_par(get_ui_id($lfofadein),$CONTROL_PAR_HEIGHT,40)
  400. set_control_par(get_ui_id($lfofadein), $CONTROL_PAR_MOUSE_BEHAVIOUR, -1200)
  401. move_control_px($lfofadein, 577,269)
  402.  
  403. {LFO SPEED}
  404.  
  405. declare ui_menu $lfospeed
  406. set_control_par(get_ui_id($lfospeed),$CONTROL_PAR_WIDTH,33)
  407. set_control_par(get_ui_id($lfospeed),$CONTROL_PAR_HEIGHT,39)
  408. set_control_par_str(get_ui_id($lfospeed), $CONTROL_PAR_PICTURE,"CentralSynthesis/null")
  409. set_control_par(get_ui_id($lfospeed),$CONTROL_PAR_FONT_TYPE,17)
  410. move_control_px($lfospeed, 524,280)
  411.  
  412. add_menu_item($lfospeed," 1/4", $DURATION_QUARTER)
  413. add_menu_item($lfospeed," 1/8", $DURATION_EIGHTH)
  414. add_menu_item($lfospeed," 1/16", $DURATION_SIXTEENTH)
  415. add_menu_item($lfospeed," 1/4T", $DURATION_QUARTER_TRIPLET)
  416. add_menu_item($lfospeed," 1/8T", $DURATION_EIGHTH_TRIPLET)
  417. add_menu_item($lfospeed,"1/16T", $DURATION_SIXTEENTH_TRIPLET)
  418.  
  419. {LFO Menu Waveform show}
  420.  
  421. declare ui_label $lfosquare (0,0)
  422. set_text($lfosquare, "")
  423. set_control_par(get_ui_id($lfosquare),$CONTROL_PAR_WIDTH,50)
  424. set_control_par(get_ui_id($lfosquare),$CONTROL_PAR_HEIGHT,30)
  425. set_control_par_str(get_ui_id($lfosquare), $CONTROL_PAR_PICTURE,"CentralSynthesis/wave_square")
  426. move_control($lfosquare, 0,0)
  427.  
  428. declare ui_label $lfosaw (0,0)
  429. set_text($lfosaw, "")
  430. set_control_par(get_ui_id($lfosaw),$CONTROL_PAR_WIDTH,50)
  431. set_control_par(get_ui_id($lfosaw),$CONTROL_PAR_HEIGHT,30)
  432. set_control_par_str(get_ui_id($lfosaw), $CONTROL_PAR_PICTURE,"CentralSynthesis/wave_saw")
  433. move_control($lfosaw, 0,0)
  434.  
  435. declare ui_label $lforamp (0,0)
  436. set_text($lforamp, "")
  437. set_control_par(get_ui_id($lforamp),$CONTROL_PAR_WIDTH,50)
  438. set_control_par(get_ui_id($lforamp),$CONTROL_PAR_HEIGHT,30)
  439. set_control_par_str(get_ui_id($lforamp), $CONTROL_PAR_PICTURE,"CentralSynthesis/wave_ramp")
  440. move_control($lforamp, 0,0)
  441.  
  442. declare ui_label $lfotriangle (0,0)
  443. set_text($lfotriangle, "")
  444. set_control_par(get_ui_id($lfotriangle),$CONTROL_PAR_WIDTH,50)
  445. set_control_par(get_ui_id($lfotriangle),$CONTROL_PAR_HEIGHT,30)
  446. set_control_par_str(get_ui_id($lfotriangle), $CONTROL_PAR_PICTURE,"CentralSynthesis/wave_triangle")
  447. move_control($lfotriangle, 0,0)
  448.  
  449.  
  450.  
  451. end on
  452.  
  453. {OSCILLATOR 1 MENU WAVEFORM}
  454.  
  455. on ui_control ($waveformosc1)
  456.  
  457.  
  458. select ($waveformosc1)
  459.  
  460. case 0
  461.  
  462. move_control($osc1square, 0,0)
  463. move_control($osc1saw, 0,0)
  464. move_control($osc1ramp, 0,0)
  465. move_control($osc1triangle, 0,0)
  466.  
  467. case 1
  468.  
  469. move_control_px($osc1square, 103,67)
  470. move_control($osc1saw, 0,0)
  471. move_control($osc1ramp, 0,0)
  472. move_control($osc1triangle, 0,0)
  473.  
  474. set_engine_par($ENGINE_PAR_ATTACK,$osc1ampattack,0,-1,-1)
  475. set_engine_par($ENGINE_PAR_DECAY,$osc1ampdecay,0,0,-1)
  476. set_engine_par($ENGINE_PAR_SUSTAIN,$osc1ampsustain,0,0,-1)
  477. set_engine_par($ENGINE_PAR_RELEASE,$osc1amprelease,0,0,-1)
  478.  
  479.  
  480. case 2
  481.  
  482. move_control($osc1square, 0,0)
  483. move_control_px($osc1saw, 103,67)
  484. move_control($osc1ramp, 0,0)
  485. move_control($osc1triangle, 0,0)
  486.  
  487.  
  488. case 3
  489.  
  490. move_control($osc1square, 0,0)
  491. move_control($osc1saw, 0,0)
  492. move_control_px($osc1ramp, 103,67)
  493. move_control($osc1triangle, 0,0)
  494.  
  495. case 4
  496.  
  497. move_control($osc1square, 0,0)
  498. move_control($osc1saw, 0,0)
  499. move_control($osc1ramp, 0,0)
  500. move_control_px($osc1triangle, 103,67)
  501.  
  502.  
  503.  
  504. end select
  505.  
  506. end on
  507.  
  508. on ui_control ($waveformosc2)
  509.  
  510.  
  511. select ($waveformosc2)
  512.  
  513. case 0
  514.  
  515. move_control($osc2square, 0,0)
  516. move_control($osc2saw, 0,0)
  517. move_control($osc2ramp, 0,0)
  518. move_control($osc2triangle, 0,0)
  519.  
  520. case 1
  521.  
  522. move_control_px($osc2square, 273,67)
  523. move_control($osc2saw, 0,0)
  524. move_control($osc2ramp, 0,0)
  525. move_control($osc2triangle, 0,0)
  526.  
  527.  
  528. case 2
  529.  
  530. move_control($osc2square, 0,0)
  531. move_control_px($osc2saw, 273,67)
  532. move_control($osc2ramp, 0,0)
  533. move_control($osc2triangle, 0,0)
  534.  
  535.  
  536. case 3
  537.  
  538. move_control($osc2square, 0,0)
  539. move_control($osc2saw, 0,0)
  540. move_control_px($osc2ramp, 273,67)
  541. move_control($osc2triangle, 0,0)
  542.  
  543. case 4
  544.  
  545. move_control($osc2square, 0,0)
  546. move_control($osc2saw, 0,0)
  547. move_control($osc2ramp, 0,0)
  548. move_control_px($osc2triangle, 273,67)
  549.  
  550.  
  551.  
  552. end select
  553.  
  554. end on
  555.  
  556. on ui_control ($waveformlfo)
  557.  
  558. select ($waveformlfo)
  559.  
  560. case 0
  561.  
  562. move_control($lfosquare, 0,0)
  563. move_control($lfosaw, 0,0)
  564. move_control($lforamp, 0,0)
  565. move_control($lfotriangle, 0,0)
  566.  
  567. case 1
  568.  
  569. move_control_px($lfosquare, 374,279)
  570. move_control($lfosaw, 0,0)
  571. move_control($lforamp, 0,0)
  572. move_control($lfotriangle, 0,0)
  573.  
  574. case 2
  575.  
  576. move_control($lfosquare, 0,0)
  577. move_control_px($lfosaw, 374,279)
  578. move_control($lforamp, 0,0)
  579. move_control($lfotriangle, 0,0)
  580.  
  581. case 3
  582.  
  583. move_control($lfosquare, 0,0)
  584. move_control($lfosaw, 0,0)
  585. move_control_px($lforamp, 374,279)
  586. move_control($lfotriangle, 0,0)
  587.  
  588. case 4
  589.  
  590. move_control($lfosquare, 0,0)
  591. move_control($lfosaw, 0,0)
  592. move_control($lforamp, 0,0)
  593. move_control_px($lfotriangle, 374,279)
  594.  
  595. end select
  596.  
  597. end on
  598.  
  599.  
  600.  
  601. on ui_control ($synthfx)
  602.  
  603. if ($synthfx = 1)
  604.  
  605. _set_skin_offset(300)
  606.  
  607. else
  608.  
  609. _set_skin_offset(0)
  610.  
  611. end if
  612.  
  613. end on
  614.  
  615. {OSC 1 ADSR}
  616.  
  617. on ui_control ($osc1ampattack)
  618.  
  619. set_engine_par($ENGINE_PAR_ATTACK,$osc1ampattack,0,0,-1)
  620.  
  621. 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!