Advertisement
BrandonSpendlove

Kontakt - Volume, Pan and Tune Example

Nov 28th, 2013
204
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.29 KB | None | 0 0
  1. on init
  2.  
  3. message("")
  4.  
  5. make_perfview
  6. set_ui_height(3)
  7.  
  8. declare $count
  9.  
  10. $count := 0
  11.  
  12. declare ui_knob $volume (0,1000000,1)
  13. declare ui_knob $pan (0,1000000,1)
  14. declare ui_knob $tune (0,1000000,1)
  15.  
  16. $pan := 500000
  17. $tune := 500000
  18.  
  19. move_control($volume,1,1)
  20. move_control($pan, 3,1)
  21. move_control($tune,4,1)
  22.  
  23. set_text($volume,"Volume")
  24. set_text($pan,"Pan")
  25. set_text($tune,"Tune")
  26.  
  27. set_knob_unit($volume,$KNOB_UNIT_DB)
  28.  
  29. set_knob_label($volume,_get_engine_par_disp($ENGINE_PAR_VOLUME,-1,-1,-1))
  30. set_knob_label($pan,_get_engine_par_disp($ENGINE_PAR_PAN,-1,-1,-1))
  31. set_knob_label($tune,_get_engine_par_disp($ENGINE_PAR_TUNE,-1,-1,-1))
  32.  
  33.  
  34. end on
  35.  
  36.  
  37. on ui_control ($volume)
  38.  
  39. set_engine_par($ENGINE_PAR_VOLUME,$volume, -1,-1,-1)
  40. set_knob_label($volume,_get_engine_par_disp($ENGINE_PAR_VOLUME,-1,-1,-1))
  41.  
  42. end on
  43.  
  44. on ui_control ($pan)
  45.  
  46. set_engine_par($ENGINE_PAR_PAN,$pan, -1,-1,-1)
  47. set_knob_label($pan,_get_engine_par_disp($ENGINE_PAR_PAN,-1,-1,-1))
  48.  
  49. end on
  50.  
  51. on ui_control ($tune)
  52.  
  53. set_engine_par($ENGINE_PAR_TUNE,$tune, -1,-1,-1)
  54. set_knob_label($tune,_get_engine_par_disp($ENGINE_PAR_TUNE,-1,-1,-1))
  55.  
  56. end on
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement