on init   
    SET_CONDITION(NO_SYS_SCRIPT_RLS_T RIG)

    message("")
    make_perfview

{ ---- Section equaliseur parametrique 3 bandes ----- }

    declare ui_knob $low_band(167000,833000,1)
    set_knob_unit($low_band,$KNOB_UNIT_DB)
    set_knob_defval($low_band,500000)
    set_text($low_band," Graves")
    {set_control_help($low_band,"Adjust the low frequencies in range from -12 to 12 dB")}
    set_knob_label($low_band,_get_engine_par_disp($ENGINE_PAR_GAIN1,-1,0,1))
    move_control($low_band,4,3)
    make_persistent($low_band)
    _read_persistent_va r($low_band)

    declare ui_knob $mid_band(167000,833000,1)
    set_knob_unit($mid_band,$KNOB_UNIT_DB)
    set_knob_defval($mid_band, 500000)
    set_text($mid_band,"Mediums")
    {set_control_help($mid_band,"Adjust the middle frequencies in range from -12 to 12 dB")}
    set_knob_label($mid_band,_get_engine_par_disp($ENGINE_PAR_GAIN2,-1,0,1))
    move_control($mid_band,5,3)
    make_persistent($mid_band)
    _read_persistent_va r($mid_band)

    declare ui_knob $hight_band(167000,833000,1)
    set_knob_unit($hight_band,$KNOB_UNIT_DB)
    set_knob_defval($hight_band,500000)
    set_text($hight_band,"  Aigus")
    {set_control_help($hight_band,"Adjust the high frequencies in range from -12 to 12 dB")}
    set_knob_label($hight_band,_get_engine_par_disp($ENGINE_PAR_GAIN3,-1,0,1))
    move_control($hight_band,6,3)
    make_persistent($hight_band)
    _read_persistent_va r($hight_band)

{ ---- Section volume - pan - width ----- }

    declare ui_knob $volume(0,100,1)
    set_text($volume, " Volume")
    move_control($volume,6,1)
    $volume := 50

    declare ui_knob $pan(0,100,1)
    set_text($pan, " Balance")
    move_control($pan,5,1)
    $pan := 50

    declare ui_knob $width(0,100,1)
    set_text($width, " Stereo")
    move_control($width,4,1)
    $width := 50
    set_knob_label($width,_get_engine_par_disp($ENGINE_PAR_STEREO,-1,2,1))

{ ----- Section reverbe a convolution ----- }

    declare ui_knob $mix(100000, 300000, 5000)
    move_control($mix,1,2)
    set_text($mix,"   Mix")
    set_knob_unit($mix,$KNOB_UNIT_PERCENT)
    make_persistent($mix)

    declare $count
    declare const $num_ir_samples := 6
    declare !ir_names[$num_ir_samples]
    declare ui_label $reverb(1,1)
    set_text($reverb,"  Reverberation")

    !ir_names[0] := "Room"
    !ir_names[1] := "Hall"
    !ir_names[2] := "Plate"
    !ir_names[3] := "Jazz Club"
    !ir_names[4] := "Studio"
    !ir_names[5] := "Concert Hall"
   
    declare ui_menu $ir_menu
    add_menu_item($ir_menu,"Aucune",-1)

    while ($count < $num_ir_samples)
        add_menu_item($ir_menu,!ir_names[$count],$count)
        inc($count)
    end while

    move_control($ir_menu,1,4)
    make_persistent($ir_menu)
end on


on ui_control($low_band)
    _set_engine_par($ENGINE_PAR_GAIN1,$low_band,-1,0,1)
    set_knob_label($low_band, _get_engine_par_dis p($ENGINE_PAR_GAIN1,-1,0,1))
end on


on ui_control($mid_band)
    _set_engine_par($ENGINE_PAR_GAIN2,$mid_band,-1,0,1)
    set_knob_label($mid_band, _get_engine_par_dis p($ENGINE_PAR_GAIN2,-1,0,1))
end on


on ui_control($hight_band)
    _set_engine_par($ENGINE_PAR_GAIN3,$hight_band,-1,0,1)
    set_knob_label($hight_band,_get_engine_par_disp($ENGINE_PAR_GAIN3,-1,0,1))
end on


on ui_control($volume)
     _set_engine_par($ENGINE_PAR_VOLUME,$volume * 10000,-1,-1,-1) 
end on


on ui_control($pan)
    _set_engine_par($ENGINE_PAR_PAN,$pan * 10000,-1,-1,-1) 
end on
 

on ui_control($width)
    _set_engine_par($ENGINE_PAR_STEREO,$width * 10000,-1,2,1)
    set_knob_label ($Width,_get_engine_par_disp($ENGINE_PAR_STEREO,-1,2,1))
end on


on ui_control($ir_menu)
    if ($ir_menu = -1)
        set_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS,1,-1,1,1)
   else
   set_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS,0,-1,1,1)
        load_ir_sample(get_folder($GET_FOLDER_PATCH_DIR) & "Yamaha Grand C5 Samples/IR Samples/" & !ir_names[$ir_menu] & ".wav",1,1)   
    end if
end on


on ui_control($mix)
    set_knob_label($mix, ($mix - 100000) / 2000)
    _set_engine_par($ENGINE_PAR_SEND_EFFECT_DRY_LEVEL,500000 - ($mix), -1, 1, 1)
    _set_engine_par($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN,100000 + ($mix), -1, 1, 1)
end on