{*    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
*************************************************}

on init

make_perfview
	set_script_title("Squeaker")
	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_knob $Top (0,630000,1)
set_knob_unit($Top,$KNOB_UNIT_DB)
set_knob_label($Top,get_engine_par_disp($ENGINE_PAR_VOLUME,40,0,-1))
declare ui_switch $TopInv
set_text ($TopInv, "invert")
declare ui_knob $Bottom (0,630000,1)
set_knob_unit($Bottom,$KNOB_UNIT_DB)
set_knob_label($Bottom,get_engine_par_disp($ENGINE_PAR_VOLUME,0,0,-1))
declare ui_switch $BottomInv
set_text ($BottomInv, "invert")
declare ui_knob $Overhead (0,630000,1)
set_knob_unit($Overhead,$KNOB_UNIT_DB)
set_knob_label($Overhead,get_engine_par_disp($ENGINE_PAR_VOLUME,24,0,-1))
declare ui_switch $OverheadInv
set_text ($OverheadInv, "invert")
declare ui_knob $Room (0,630000,1)
set_knob_unit($Room,$KNOB_UNIT_DB)
set_knob_label($Room,get_engine_par_disp($ENGINE_PAR_VOLUME,32,0,-1))
declare ui_switch $RoomInv
set_text ($RoomInv, "invert")
declare ui_knob $Far (0,630000,1)
set_knob_unit($Far,$KNOB_UNIT_DB)
set_knob_label($Far,get_engine_par_disp($ENGINE_PAR_VOLUME,8,0,-1))
declare ui_switch $FarInv
set_text ($FarInv, "invert")
declare ui_knob $Trash (0,630000,1)
set_knob_unit($Trash,$KNOB_UNIT_DB)
set_knob_label($Trash,get_engine_par_disp($ENGINE_PAR_VOLUME,16,0,-1))
declare ui_switch $TrashInv
set_text ($TrashInv, "invert")

declare ui_slider $Attack (0,1000000)
$Attack := 0
declare $id
$id := get_ui_id($Attack)
set_control_par($id,$CONTROL_PAR_MOUSE_BEHAVIOUR,2000)
set_control_par($id,$CONTROL_PAR_DEFAULT_VALUE,0)
set_control_par_str($id,$CONTROL_PAR_PICTURE,"K4_SLIDER_BIP_1")

declare ui_slider $Sustain (0,1000000)
$Attack := 0
declare $id2
$id2 := get_ui_id($Sustain)
set_control_par($id2,$CONTROL_PAR_MOUSE_BEHAVIOUR,2000)
set_control_par($id2,$CONTROL_PAR_DEFAULT_VALUE,0)
set_control_par_str($id2,$CONTROL_PAR_PICTURE,"K4_SLIDER_BIP_1")

declare ui_label $Alabel (1,1)
set_text ($Alabel, "Attack")

declare ui_label $Slabel (1,1)
set_text ($Slabel, "Sustain")

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


move_control ($Top,4,1)
move_control ($TopInv,4,3)
move_control ($Bottom,5,1)
move_control ($BottomInv,5,3)
move_control ($Overhead,6,1)
move_control ($OverheadInv,6,3)
move_control ($Room,4,4)
move_control ($RoomInv,4,6)
move_control ($Far,5,4)
move_control ($FarInv,5,6)
move_control ($Trash,6,4)
move_control ($TrashInv,6,6)

move_control ($Alabel,3,1)
move_control ($Attack,3,2)
move_control ($Slabel,3,3)
move_control ($Sustain,3,4)
move_control ($Rlabel,3,5)
move_control ($Reverb,3,6)


make_persistent ($Top)
make_persistent ($Bottom)
make_persistent ($Overhead)
make_persistent ($Room)
make_persistent ($Far)
make_persistent ($Trash)
make_persistent ($TopInv)
make_persistent ($BottomInv)
make_persistent ($OverheadInv)
make_persistent ($RoomInv)
make_persistent ($FarInv)
make_persistent ($TrashInv)
make_persistent ($Attack)
make_persistent ($Sustain)
make_persistent ($Reverb)

end on

on ui_control ($Attack)
_set_engine_par($ENGINE_PAR_TR_ATTACK,$Attack,-1,0,0)
end on

on ui_control ($Sustain)
_set_engine_par($ENGINE_PAR_TR_SUSTAIN,$Sustain,-1,0,0)
end on

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

on ui_control ($Top)
_set_engine_par($ENGINE_PAR_VOLUME,$Top,40,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Top,41,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Top,42,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Top,43,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Top,44,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Top,45,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Top,46,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Top,47,0,-1)
set_knob_label($Top,get_engine_par_disp($ENGINE_PAR_VOLUME,40,0,-1))
end on

on ui_control ($Bottom)
_set_engine_par($ENGINE_PAR_VOLUME,$Bottom,0,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Bottom,1,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Bottom,2,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Bottom,3,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Bottom,4,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Bottom,5,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Bottom,6,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Bottom,7,0,-1)
set_knob_label($Bottom,get_engine_par_disp($ENGINE_PAR_VOLUME,0,0,-1))
end on

on ui_control ($Overhead)
_set_engine_par($ENGINE_PAR_VOLUME,$Overhead,24,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Overhead,25,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Overhead,26,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Overhead,27,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Overhead,28,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Overhead,29,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Overhead,30,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Overhead,31,0,-1)
set_knob_label($Overhead,get_engine_par_disp($ENGINE_PAR_VOLUME,24,0,-1))
end on

on ui_control ($Room)
_set_engine_par($ENGINE_PAR_VOLUME,$Room,32,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Room,33,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Room,34,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Room,35,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Room,36,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Room,37,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Room,38,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Room,39,0,-1)
set_knob_label($Room,get_engine_par_disp($ENGINE_PAR_VOLUME,32,0,-1))
end on

on ui_control ($Far)
_set_engine_par($ENGINE_PAR_VOLUME,$Far,8,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Far,9,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Far,10,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Far,11,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Far,12,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Far,13,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Far,14,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Far,15,0,-1)
set_knob_label($Far,get_engine_par_disp($ENGINE_PAR_VOLUME,8,0,-1))
end on

on ui_control ($Trash)
_set_engine_par($ENGINE_PAR_VOLUME,$Trash,16,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Trash,17,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Trash,18,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Trash,19,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Trash,20,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Trash,21,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Trash,22,0,-1)
_set_engine_par($ENGINE_PAR_VOLUME,$Trash,23,0,-1)
set_knob_label($Trash,get_engine_par_disp($ENGINE_PAR_VOLUME,16,0,-1))
end on


on ui_control ($TopInv)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$TopInv,40,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$TopInv,41,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$TopInv,42,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$TopInv,43,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$TopInv,44,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$TopInv,45,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$TopInv,46,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$TopInv,47,7,-1)
end on

on ui_control ($BottomInv)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$BottomInv,0,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$BottomInv,1,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$BottomInv,2,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$BottomInv,3,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$BottomInv,4,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$BottomInv,5,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$BottomInv,6,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$BottomInv,7,7,-1)
end on

on ui_control ($OverheadInv)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$OverheadInv,24,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$OverheadInv,25,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$OverheadInv,26,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$OverheadInv,27,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$OverheadInv,28,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$OverheadInv,29,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$OverheadInv,30,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$OverheadInv,31,7,-1)
end on

on ui_control ($RoomInv)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$RoomInv,32,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$RoomInv,33,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$RoomInv,34,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$RoomInv,35,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$RoomInv,36,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$RoomInv,37,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$RoomInv,38,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$RoomInv,39,7,-1)
end on

on ui_control ($FarInv)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$FarInv,8,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$FarInv,9,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$FarInv,10,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$FarInv,11,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$FarInv,12,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$FarInv,13,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$FarInv,14,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$FarInv,15,7,-1)
end on

on ui_control ($TrashInv)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$TrashInv,16,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$TrashInv,17,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$TrashInv,18,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$TrashInv,19,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$TrashInv,20,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$TrashInv,21,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$TrashInv,22,7,-1)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,$TrashInv,23,7,-1)
end on