on init
declare ui_slider $Slider1(165000*2, 1)
declare $value
make_persistent($Slider1)
declare $k_Slider1
$k_Slider1 := get_ui_id($Slider1)
set_control_par_str($k_Slider1, $CONTROL_PAR_PICTURE, „Slider1“)
set_control_par($k_Slider1, $CONTROL_PAR_POS_X, 512)
set_control_par($k_Slider1, $CONTROL_PAR_POS_Y, 141)
set_control_par($k_Slider1, $CONTROL_PAR_MOUSE_BEHAVIOUR, $mouse_resp)
end on
on ui_control($Slider1)
if ($Slider1 < 165000)
$value := $Slider1
else
$value := 165000 - ($Slider1 - 165000)
end if
set_engine_par($ENGINE_PAR_GN_GAIN, 629961 + $value, -1, 2, $NI_MAIN_BUS)
end on