{*    MMMMMNDDDDDDDDDDDDDDDDDDNDDDDDDDDDDDDDDDDDDDNDDDDDDDDDDDDDDDDDDDNDDDDDDDDDMMMMMM
MMMMMNDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDNMMMMMM
MMMMMDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDNMMMMMM
MMMMMNDDDNDDDDDDDDDDDDDDDDDM  ...   DNDDDDDDDDDDDNDDDDDDDDDDDDDDDDDDDNDDDDMMMMMM
MMMMMNDDDDDDDDDDDDDDDDDDN.              $NDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDNMMMMMM
MMMMMNDDDDDDDDDDDDDDDDD.                  .MDDDDDDDDDDDDDDDDDDDDDDDDDDDDDNMMMMMM
MMMMMNDDDDDDDDDDDDDDDD.          .  .  .     DNDDDDDDDDDDDDDDDDDDDDDDDDDDDMMMMMM
MMMMMNDDDDDDDDDDDDDDD..        .DDDDDDDDNM    .MDDDDDDDDDDDDDDDDNDDDDDDDDNMMMMMM
MMMMMNDDDDDDDDDDDDDDDDDD      NDDDDDDDDDDDDDM    NDDDDDDDDDDDDDDDDDDDDDDDDMMMMMM
MMMMMNDDDDDDDDNDDD=DNDDDDD...DDDDDNDD ...,NDDDM.  :NDDNDDDDDDDDDDDDDDDDDDNMMMMMM
MMMMMNDNDDDDDDDDD    .ONDDDNMDDDDDN      .  .NDN$. .NDDDDDDDDDDDDDDNDDDDDNMMMMMM
MMMMMNDDDDDDDDDDN$      .DDDDDDDDD.   MNDDDN ..NDN. .MDDNDDDDDDDDDDDDDDDDDMMMMMM
MMMMMNDDDDDDDDDDDD         .DDDDDM...NDDDDDDDDI..ND~  ZDDDDDDDDDNDDDDDDDDNMMMMMM
MMMMMNDDDDDDDDDDDD,.         .MNDDDDIDDDDDDDDDDD..DD$  IDDDDDDDDDDDDDDDDDDMMMMMM
MMMMMNDDDDDDDDDDDDD.            .DDDDDDDDDDDDDDDDI.NDN. $DDDDDDDDDDDDDDDDNMMMMMM
MMMMMNDDDDDDDDDDDDD                IDDDDDDDDDDDDDDO.DD$ .MDDDDDDDDDDDDDDDDMMMMMM
MMMMMNDDDDDDDDDDDDDD                 .NDDDDDDDDDDDD..ND. .DDDDDDDDDDDDDDDDMMMMMM
MMMMMNDDDDDDDDDDDDDD                  .DDDDDDDDDDDDD..DD. .NDDDDDDDDDDDDDDMMMMMM
MMMMMNDDDDDDDDDDDDDDN                  NDDDDDDDDDDDDZ NNM  ~DDDDDDDDDDDDDNMMMMMM
MMMMMNNNNNNNNNNNNNNNN.               .MNNNNNNNNNNNNNN .NN.  NNNNNNNNNNNNNNMMMMMM
MMMMMNNNNNNNNNNNNNNNNM              .NNNNNNNNNNNNNNNN..NNI  =NNNNNNNNNNNNNMMMMMM
MMMMMNNNNNNNNNNNNNNNNN.            ZNNNNM.NNNNNNNNNNM  NNM. .MNNNNNNNNNNNNMMMMMM
MMMMMNNNNNNNNNNNNNNNNN7.          MNNNNN   8NNNNNNNN. .NNN.  MNNNNNNNNNNNNMMMMMM
MMMMMNNNNNNNNNNNNNNNNNM.         NNNNNNNM   . 7MNN,   :NNM.  ,NNNNNNNNNNNNMMMMMM
MMMMMNNNNNNNNNNNNNNNNNN+        NNNNNNNNNNM.          NNNN.  .NNNNNNNNNNNNMMMMMM
MMMMMNNNNNNNNNNNNNNNNNNN      .MNNNNNMNNNNNNM?..   .MNNNN8    NNNNNNNNNNNNMMMMMM
MMMMMNNNNNNNNNNNNNNNNNNNM    :NNNNNN   NNNNNNNNNNNNNNNNNN     NNNNNNNNNNNNMMMMMM
MMMMMNNNNNNNNNNNNNNNNNNNNM+~NNNNNNN      MNNNNNNNNNNNNNN.     NNNNNNNNNNNNMMMMMM
MMMMMNNNNNNNNNNNNNNNNNNNNNNNNNNNNN.       . NNNNNNNNNN?      ONNNNNNNNNNNNMMMMMM
MMMMMMNNNNNNNNNNNNNNNNNNNNNNNNNNM.           .  .=:..       .NNNNNNNNNNNNNMMMMMM
MMMMMNNNNNNNNNNNNNNNNNNNNNNNNNNNNN.                         ZNNNNNNNNNNNNNMMMMMM
MMMMMNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN.                      .NNNNNNNNNNNNNNMMMMMM
MMMMMNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN..                  :MNNNNNNNNNNNNNNMMMMMM
MMMMMNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNN..             .NNNNNNNNNNNNNNNNNMMMMMM
MMMMMNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNMM.. .  ...MMNNNNNNNNNNNNNNNNNNMMMMMM
MMMMMNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNMMMMMM
MMMMMNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNMMMMMM
MMMMMNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNNMMMMMM*}

{***********************************************
Puremagnetik Snare Designer Mixer
*************************************************}

on init

make_perfview
set_script_title("Mixer")
	set_control_par_str($INST_WALLPAPER_ID,$CONTROL_PAR_PICTURE,"snareDesigner_skin")
	set_control_par_str($INST_ICON_ID,$CONTROL_PAR_PICTURE,"pm_icon")
  	message ("")


declare ui_level_meter $Bus1l
declare ui_level_meter $Bus2l
declare ui_level_meter $Bus3l
attach_level_meter (get_ui_id($Bus1l),-1,-1,0,0)
attach_level_meter (get_ui_id($Bus2l),-1,-1,0,1)
attach_level_meter (get_ui_id($Bus3l),-1,-1,0,2)

declare ui_level_meter $Bus1r
declare ui_level_meter $Bus2r
declare ui_level_meter $Bus3r
attach_level_meter (get_ui_id($Bus1r),-1,-1,1,0)
attach_level_meter (get_ui_id($Bus2r),-1,-1,1,1)
attach_level_meter (get_ui_id($Bus3r),-1,-1,1,2)


declare ui_slider $Snare1 (0,630000)
declare ui_label $S1l (1,1)
set_text ($S1l, "Acrolite")
declare ui_slider $Snare2 (0,630000)
declare ui_label $S2l (1,1)
set_text ($S2l, "Birch")
declare ui_slider $Snare3 (0,630000)
declare ui_label $S3l (1,1)
set_text ($S3l, "Squeaker")


declare ui_knob $Pan1 (0,1000000,1)
set_text ($Pan1, "Pan")
set_knob_label($Pan1,get_engine_par_disp($ENGINE_PAR_PAN,-1,0,$NI_BUS_OFFSET+0))
declare ui_knob $Pan2 (0,1000000,1)
set_text ($Pan2, "Pan")
set_knob_label($Pan2,get_engine_par_disp($ENGINE_PAR_PAN,-1,0,$NI_BUS_OFFSET+1))
declare ui_knob $Pan3 (0,1000000,1)
set_text ($Pan3, "Pan")
set_knob_label($Pan3,get_engine_par_disp($ENGINE_PAR_PAN,-1,0,$NI_BUS_OFFSET+2))


declare ui_slider $Reverb (0,400000)
declare ui_label $Rlabel (1,1)
set_text ($Rlabel, "Global Reverb")


move_control ($Bus1l,5,1)
move_control ($Bus1r,5,2)
move_control ($Bus2l,5,3)
move_control ($Bus2r,5,4)
move_control ($Bus3l,5,5)
move_control ($Bus3r,5,6)




move_control ($Rlabel,6,1)
move_control ($Reverb,6,2)

move_control ($S1l,3,1)
move_control ($Snare1,3,2)
move_control ($S2l,3,3)
move_control ($Snare2,3,4)
move_control ($S3l,3,5)
move_control ($Snare3,3,6)

move_control ($Pan1,4,1)
move_control ($Pan2,4,3)
move_control ($Pan3,4,5)

make_persistent ($Reverb)
make_persistent ($Snare1)
make_persistent ($Snare2)
make_persistent ($Snare3)
make_persistent ($Pan1)
make_persistent ($Pan2)
make_persistent ($Pan3)

end on


on ui_control ($Snare1)
_set_engine_par($ENGINE_PAR_VOLUME,$Snare1,-1,0,$NI_BUS_OFFSET + 0)
end on

on ui_control ($Snare2)
_set_engine_par($ENGINE_PAR_VOLUME,$Snare2,-1,0,$NI_BUS_OFFSET + 1)
end on

on ui_control ($Snare3)
_set_engine_par($ENGINE_PAR_VOLUME,$Snare3,-1,0,$NI_BUS_OFFSET + 2)
end on

on ui_control ($Pan1)
_set_engine_par($ENGINE_PAR_PAN,$Pan1,-1,0,$NI_BUS_OFFSET + 0)
set_knob_label($Pan1,get_engine_par_disp($ENGINE_PAR_PAN,-1,0,$NI_BUS_OFFSET+0))
end on

on ui_control ($Pan2)
_set_engine_par($ENGINE_PAR_PAN,$Pan2,-1,0,$NI_BUS_OFFSET + 1)
set_knob_label($Pan2,get_engine_par_disp($ENGINE_PAR_PAN,-1,0,$NI_BUS_OFFSET+1))
end on

on ui_control ($Pan3)
_set_engine_par($ENGINE_PAR_PAN,$Pan3,-1,0,$NI_BUS_OFFSET + 2)
set_knob_label($Pan3,get_engine_par_disp($ENGINE_PAR_PAN,-1,0,$NI_BUS_OFFSET+2))
end on


on ui_control ($Reverb)
_set_engine_par($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN,$Reverb,-1,0,0)
end on