declare ~gain
 declare ~wet_gain


declare ui_slider $reverb_knob(1,396482)
    make_persistent($reverb_knob)
    set_control_par_str(get_ui_id($reverb_knob),$CONTROL_PAR_PICTURE,"knob3")
    set_control_par(get_ui_id($reverb_knob),$CONTROL_PAR_MOUSE_BEHAVIOUR,$slider_mouse_behaviour)
    set_control_par(get_ui_id($reverb_knob),$CONTROL_PAR_DEFAULT_VALUE,1)

on ui_control($reverb_knob)
 ~gain := int_to_real(396482)*(1.0-((exp(5.0*int_to_real($reverb_knob)/int_to_real(396482))-1.0)/(exp(5.0)-1.0)))
 set_engine_par($ENGINE_PAR_SEND_EFFECT_DRY_LEVEL,real_to_int(~gain),-1,1,$NI_MAIN_BUS)
 ~wet_gain := int_to_real(396482)*log(int_to_real($reverb_knob)+1.0)/log(int_to_real(396482)+1.0)
 set_engine_par($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN,real_to_int(~wet_gain),-1,1,$NI_MAIN_BUS)
end on