on init

    set_control_par_str($INST_WALLPAPER_ID,$CONTROL_PAR_PICTURE,"PEA-bg-master")
    set_skin_offset(0)
    set_ui_height_px(420)
    
	{Library info tab}
	show_library_tab
	set_control_par_str($INST_LIB_PIC_ONE_ID,$CONTROL_PAR_PICTURE,"AboutIconLibrary")
	set_control_par_str($INST_LIB_PIC_TWO_ID,$CONTROL_PAR_PICTURE,"AboutIconLibAuthor")
    set_control_par_str($INST_ICON_ID,$CONTROL_PAR_PICTURE,"InstIcon")
	set_control_par_str($INST_LIB_COPYRIGHT_ID,$CONTROL_PAR_TEXT,"Copyright 2015 Impact Soundworks")
	set_control_par_str($INST_LIB_DESCRIPTION_ID,$CONTROL_PAR_TEXT,"Recorded & Performed by Simon Dalzell")
	set_control_par_str($INST_LIB_DESCRIPTION_ID,$CONTROL_PAR_TEXTLINE,"Produced by Impact Soundworks")
    set_control_par_str($INST_LIB_DESCRIPTION_ID,$CONTROL_PAR_TEXTLINE,"Editing by Elan Hickler & Iain Morland")
	set_control_par_str($INST_LIB_DESCRIPTION_ID,$CONTROL_PAR_TEXTLINE,"Scripting by Andrew Aversa")    
    
    declare const $altVelocity := 1
    declare $LIGHT_RR := 1 { If enabled, RRs are assumed to exist }
    declare $LIGHT_SUSTAINS := 1 { If enabled, sustains are assumed to exist }
    declare $CHROMATIC := 1 { If enabled, neighboring zones = 1 instead of 2 }
    make_persistent($LIGHT_RR)
    make_persistent($LIGHT_SUSTAINS)
    make_persistent($CHROMATIC)
    declare $V_MULT := 200
    declare const $VR_MULT := 50
    declare $presetType
    declare $LoadStarted
    declare $DisplayChanged
    
    declare polyphonic $dynamics_mod
    declare polyphonic $zone_velocity

    declare $load_arr_id
    declare $save_arr_id    
    declare %PRESET_Array[500]
    
    declare $debugActive
    declare $debugCounter

    declare $i
    declare $x
    declare $a
    declare $b
    declare $y
    declare polyphonic $poly_i
    declare polyphonic $poly_x
    declare polyphonic $poly_a
    declare polyphonic $poly_b
    declare polyphonic $poly_y
    
    declare %notesActive[128]
    declare %notesHeld[128]
    declare %notesActiveTuning[128]
    declare %notesActiveTiming[128]
    declare $numActiveNotes
            
    declare polyphonic $e1
    declare polyphonic $e2
    declare polyphonic $e3
    declare polyphonic $e4
    declare polyphonic $e
    
    declare $pedalUpRR
    declare $pedalDownRR
    declare $pedalRelRR
    declare $pedalRR
    
    declare polyphonic $extraRRNote
    declare $noteOffset
    declare polyphonic $tuneOffset
    
    declare $prevPedalValue := 0
    
    declare $NEIGHBOR_RANGE := 1
    if ($CHROMATIC = 0)
        $NEIGHBOR_RANGE := 2
    end if
    make_persistent($NEIGHBOR_RANGE)
    declare const $KEY_MIN := 20
    declare const $KEY_MAX := 108
    declare %polarity[2] := (-1,1)
    
    declare @DISPLAY_label_string
    declare @DISPLAY_label_value
            
    declare polyphonic $play_velocity
    declare polyphonic $altplay_velocity
    
    declare polyphonic $pedal_down
    
    declare $resetID
    
    declare %rr[127]
    
    declare %RELEASE_rr[127]       
            
    declare %HALL_SUSTAIN_groups[4]
    %HALL_SUSTAIN_groups[0] := find_group("HALL.Sustain.Off.rr1")
    %HALL_SUSTAIN_groups[1] := find_group("HALL.Sustain.Off.rr2")
    %HALL_SUSTAIN_groups[2] := find_group("HALL.Sustain.On.rr1")
    %HALL_SUSTAIN_groups[3] := find_group("HALL.Sustain.On.rr2")
    
    declare %SUSTAIN_groups[16]
    %SUSTAIN_groups[0] := find_group("CLOSE.Sustain.Off.rr1")
    %SUSTAIN_groups[1] := find_group("CLOSE.Sustain.Off.rr2")
    %SUSTAIN_groups[2] := find_group("CLOSE.Sustain.On.rr1")
    %SUSTAIN_groups[3] := find_group("CLOSE.Sustain.On.rr2")
    %SUSTAIN_groups[4] := find_group("HALL.Sustain.Off.rr1")
    %SUSTAIN_groups[5] := find_group("HALL.Sustain.Off.rr2")
    %SUSTAIN_groups[6] := find_group("HALL.Sustain.On.rr1")
    %SUSTAIN_groups[7] := find_group("HALL.Sustain.On.rr2")
    %SUSTAIN_groups[8] := find_group("TAIL.Sustain.Off.rr1")
    %SUSTAIN_groups[9] := find_group("TAIL.Sustain.Off.rr2")
    %SUSTAIN_groups[10] := find_group("TAIL.Sustain.On.rr1")
    %SUSTAIN_groups[11] := find_group("TAIL.Sustain.On.rr2")
    %SUSTAIN_groups[12] := find_group("STAGE.Sustain.Off.rr1")
    %SUSTAIN_groups[13] := find_group("STAGE.Sustain.Off.rr2")
    %SUSTAIN_groups[14] := find_group("STAGE.Sustain.On.rr1")
    %SUSTAIN_groups[15] := find_group("STAGE.Sustain.On.rr2")  
    
    declare %PEDAL_groups[12]
    %PEDAL_groups[0] := find_group("CLOSE.Pedal.Rel.rr1")          
    %PEDAL_groups[1] := find_group("CLOSE.Pedal.Rel.rr2")
    %PEDAL_groups[2] := find_group("STAGE.Pedal.Rel.rr1")          
    %PEDAL_groups[3] := find_group("STAGE.Pedal.Rel.rr2")
    %PEDAL_groups[4] := find_group("TAIL.Pedal.Rel.rr1")          
    %PEDAL_groups[5] := find_group("TAIL.Pedal.Rel.rr2")
    %PEDAL_groups[6] := find_group("HALL.Pedal.Rel.rr1")          
    %PEDAL_groups[7] := find_group("HALL.Pedal.Rel.rr2")   
    %PEDAL_groups[8] := find_group("CLOSE.Pedal")
    %PEDAL_groups[9] := find_group("STAGE.Pedal")
    %PEDAL_groups[10] := find_group("TAIL.Pedal")
    %PEDAL_groups[11] := find_group("HALL.Pedal")
    
    declare %KEY_groups[8]     
    %KEY_groups[0] := find_group("CLOSE.Key.Rel.rr1")
    %KEY_groups[1] := find_group("CLOSE.Key.Rel.rr2")
    %KEY_groups[2] := find_group("STAGE.Key.Rel.rr1")
    %KEY_groups[3] := find_group("STAGE.Key.Rel.rr2")
    %KEY_groups[4] := find_group("TAIL.Key.Rel.rr1")
    %KEY_groups[5] := find_group("TAIL.Key.Rel.rr2")
    %KEY_groups[6] := find_group("HALL.Key.Rel.rr1")
    %KEY_groups[7] := find_group("HALL.Key.Rel.rr2")
                
    declare %CLOSE_groups[9]
    %CLOSE_groups[0] := find_group("CLOSE.Key.Rel.rr1")
    %CLOSE_groups[1] := find_group("CLOSE.Key.Rel.rr2")
    %CLOSE_groups[2] := find_group("CLOSE.Pedal")
    %CLOSE_groups[3] := find_group("CLOSE.Pedal.Rel.rr1")
    %CLOSE_groups[4] := find_group("CLOSE.Pedal.Rel.rr2")
    %CLOSE_groups[5] := find_group("CLOSE.Sustain.Off.rr1")
    %CLOSE_groups[6] := find_group("CLOSE.Sustain.Off.rr2")
    %CLOSE_groups[7] := find_group("CLOSE.Sustain.On.rr1")
    %CLOSE_groups[8] := find_group("CLOSE.Sustain.On.rr2")
    
    declare %HALL_groups[9]
    %HALL_groups[0] := find_group("HALL.Key.Rel.rr1")
    %HALL_groups[1] := find_group("HALL.Key.Rel.rr2")
    %HALL_groups[2] := find_group("HALL.Pedal")
    %HALL_groups[3] := find_group("HALL.Pedal.Rel.rr1")
    %HALL_groups[4] := find_group("HALL.Pedal.Rel.rr2")
    %HALL_groups[5] := find_group("HALL.Sustain.Off.rr1")
    %HALL_groups[6] := find_group("HALL.Sustain.Off.rr2")
    %HALL_groups[7] := find_group("HALL.Sustain.On.rr1")
    %HALL_groups[8] := find_group("HALL.Sustain.On.rr2")

    declare %STAGE_groups[9]
    %STAGE_groups[0] := find_group("STAGE.Key.Rel.rr1")
    %STAGE_groups[1] := find_group("STAGE.Key.Rel.rr2")
    %STAGE_groups[2] := find_group("STAGE.Pedal")
    %STAGE_groups[3] := find_group("STAGE.Pedal.Rel.rr1")
    %STAGE_groups[4] := find_group("STAGE.Pedal.Rel.rr2")
    %STAGE_groups[5] := find_group("STAGE.Sustain.Off.rr1")
    %STAGE_groups[6] := find_group("STAGE.Sustain.Off.rr2")
    %STAGE_groups[7] := find_group("STAGE.Sustain.On.rr1")
    %STAGE_groups[8] := find_group("STAGE.Sustain.On.rr2")

    declare %TAIL_groups[9]
    %TAIL_groups[0] := find_group("TAIL.Key.Rel.rr1")
    %TAIL_groups[1] := find_group("TAIL.Key.Rel.rr2")
    %TAIL_groups[2] := find_group("TAIL.Pedal")
    %TAIL_groups[3] := find_group("TAIL.Pedal.Rel.rr1")
    %TAIL_groups[4] := find_group("TAIL.Pedal.Rel.rr2")
    %TAIL_groups[5] := find_group("TAIL.Sustain.Off.rr1")
    %TAIL_groups[6] := find_group("TAIL.Sustain.Off.rr2")
    %TAIL_groups[7] := find_group("TAIL.Sustain.On.rr1")
    %TAIL_groups[8] := find_group("TAIL.Sustain.On.rr2")

    declare ui_menu $MASTER_presets
    set_control_par_str(get_ui_id($MASTER_presets),$CONTROL_PAR_PICTURE,"PEA-dropdown1")
    set_control_par(get_ui_id($MASTER_presets),$CONTROL_PAR_FONT_TYPE,17)
    set_control_par(get_ui_id($MASTER_presets),$CONTROL_PAR_TEXTPOS_Y,2)
    set_control_help($MASTER_presets,"MASTER PRESET: Loads (or saves) a preset for the ENTIRE patch, including mics, velocity curve, tuning, and effects.")
    
    add_menu_item($MASTER_presets,"Concert Grand",0)
    add_menu_item($MASTER_presets,"Live Concert",1)
    add_menu_item($MASTER_presets,"Lovely Mono",2)
    add_menu_item($MASTER_presets,"Reverse Piano",3)
    add_menu_item($MASTER_presets,"On Stage",4)
    add_menu_item($MASTER_presets,"Newman Close",5)
    add_menu_item($MASTER_presets,"Vintage Dark",6)
    add_menu_item($MASTER_presets,"Beach Song",7)
    add_menu_item($MASTER_presets,"In the Hall",8)
    add_menu_item($MASTER_presets,"Sparse Dreamy",9)
    add_menu_item($MASTER_presets,"Pad Nostalgia",10)
    add_menu_item($MASTER_presets,"Old Grand",11)
    add_menu_item($MASTER_presets,"Staccato Dance",12)
    add_menu_item($MASTER_presets,"----------------",98)
    add_menu_item($MASTER_presets,"Save Preset",99)
    add_menu_item($MASTER_presets,"Load Preset",100)
    
    move_control_px($MASTER_presets,57,37)

    declare ui_slider $MASTER_volume(0,630000)
    set_control_par(get_ui_id($MASTER_volume),$CONTROL_PAR_MOUSE_BEHAVIOUR,-500)
    set_control_par_str(get_ui_id($MASTER_volume),$CONTROL_PAR_PICTURE,"PEA-knob1-128")
    set_control_par(get_ui_id($MASTER_volume),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($MASTER_volume),$CONTROL_PAR_HEIGHT,40)               
    set_control_par(get_ui_id($MASTER_volume),$CONTROL_PAR_DEFAULT_VALUE,315000)
    set_control_help($MASTER_volume,"MASTER VOLUME: Sets output volume for the entire instrument, including all mics & FX.")
    set_control_par_str(get_ui_id($MASTER_volume),$CONTROL_PAR_AUTOMATION_NAME,"Mstr Vol")
            
    move_control_px($MASTER_volume,180,31)
    
    declare ui_slider $transpose(-36,36)
    set_control_par(get_ui_id($transpose),$CONTROL_PAR_MOUSE_BEHAVIOUR,-500)
    set_control_par_str(get_ui_id($transpose),$CONTROL_PAR_PICTURE,"PEA-knob1-101")
    set_control_par(get_ui_id($transpose),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($transpose),$CONTROL_PAR_HEIGHT,40)               
    set_control_par(get_ui_id($transpose),$CONTROL_PAR_DEFAULT_VALUE,0)
    set_control_help($transpose,"TRANSPOSE: Transposes all incoming MIDI notes by a number of semitones.")
    set_control_par_str(get_ui_id($transpose),$CONTROL_PAR_AUTOMATION_NAME,"Transpose")

    move_control_px($transpose,241,31)    
    
    declare ui_label $CLOSE_fxstrip(1,1)
    set_control_par_str(get_ui_id($CLOSE_fxstrip),$CONTROL_PAR_TEXT,"")    
    set_control_par_str(get_ui_id($CLOSE_fxstrip),$CONTROL_PAR_PICTURE,"PEA-channel-bg-fx")
    
    move_control_px($CLOSE_fxstrip,47,114)
    
    declare ui_label $TAIL_fxstrip(1,1)
    set_control_par_str(get_ui_id($TAIL_fxstrip),$CONTROL_PAR_TEXT,"")    
    set_control_par_str(get_ui_id($TAIL_fxstrip),$CONTROL_PAR_PICTURE,"PEA-channel-bg-fx")
    
    move_control_px($TAIL_fxstrip,110,114)            
    
    declare ui_label $HALL_fxstrip(1,1)
    set_control_par_str(get_ui_id($HALL_fxstrip),$CONTROL_PAR_TEXT,"")    
    set_control_par_str(get_ui_id($HALL_fxstrip),$CONTROL_PAR_PICTURE,"PEA-channel-bg-fx")    
    
    move_control_px($HALL_fxstrip,234,114)      
    
    declare ui_label $STAGE_fxstrip(1,1)
    set_control_par_str(get_ui_id($STAGE_fxstrip),$CONTROL_PAR_TEXT,"")    
    set_control_par_str(get_ui_id($STAGE_fxstrip),$CONTROL_PAR_PICTURE,"PEA-channel-bg-fx")    

    move_control_px($STAGE_fxstrip,171,114)    
    
    declare ui_label $CLOSE_micstrip(1,1)
    set_control_par_str(get_ui_id($CLOSE_micstrip),$CONTROL_PAR_TEXT,"")    
    set_control_par_str(get_ui_id($CLOSE_micstrip),$CONTROL_PAR_PICTURE,"PEA-channel-bg-mic")
    
    move_control_px($CLOSE_micstrip,47,114)
    
    declare ui_label $TAIL_micstrip(1,1)
    set_control_par_str(get_ui_id($TAIL_micstrip),$CONTROL_PAR_TEXT,"")    
    set_control_par_str(get_ui_id($TAIL_micstrip),$CONTROL_PAR_PICTURE,"PEA-channel-bg-mic")
    
    move_control_px($TAIL_micstrip,110,114)
    
    declare ui_label $STAGE_micstrip(1,1)
    set_control_par_str(get_ui_id($STAGE_micstrip),$CONTROL_PAR_TEXT,"")    
    set_control_par_str(get_ui_id($STAGE_micstrip),$CONTROL_PAR_PICTURE,"PEA-channel-bg-mic")    

    move_control_px($STAGE_micstrip,171,114)

    declare ui_label $HALL_micstrip(1,1)
    set_control_par_str(get_ui_id($HALL_micstrip),$CONTROL_PAR_TEXT,"")    
    set_control_par_str(get_ui_id($HALL_micstrip),$CONTROL_PAR_PICTURE,"PEA-channel-bg-mic")    
    
    move_control_px($HALL_micstrip,234,114)    

    declare ui_slider $CLOSE_volume(0,1000000)
    set_control_par(get_ui_id($CLOSE_volume),$CONTROL_PAR_MOUSE_BEHAVIOUR,-700)
    set_control_par_str(get_ui_id($CLOSE_volume),$CONTROL_PAR_PICTURE,"PEA-fader-101")
    set_control_par(get_ui_id($CLOSE_volume),$CONTROL_PAR_WIDTH,24)               
    set_control_par(get_ui_id($CLOSE_volume),$CONTROL_PAR_HEIGHT,94)               
    set_control_par(get_ui_id($CLOSE_volume),$CONTROL_PAR_DEFAULT_VALUE,630000)
    set_control_help($CLOSE_volume,"CLOSE MIC VOLUME: Sets the output level for the CLOSE mic position.")
    set_control_par_str(get_ui_id($CLOSE_volume),$CONTROL_PAR_AUTOMATION_NAME,"Close Vol")
    
    move_control_px($CLOSE_volume,63,201)
    
    declare ui_slider $TAIL_volume(0,1000000)
    set_control_par(get_ui_id($TAIL_volume),$CONTROL_PAR_MOUSE_BEHAVIOUR,-700)
    set_control_par_str(get_ui_id($TAIL_volume),$CONTROL_PAR_PICTURE,"PEA-fader-101")
    set_control_par(get_ui_id($TAIL_volume),$CONTROL_PAR_WIDTH,24)               
    set_control_par(get_ui_id($TAIL_volume),$CONTROL_PAR_HEIGHT,94)               
    set_control_par(get_ui_id($TAIL_volume),$CONTROL_PAR_DEFAULT_VALUE,630000)
    set_control_help($TAIL_volume,"PEDAL MIC VOLUME: Sets the output level for the PEDAL mic position.")
    set_control_par_str(get_ui_id($TAIL_volume),$CONTROL_PAR_AUTOMATION_NAME,"Pedal Vol")
    
    move_control_px($TAIL_volume,126,201)
    
    declare ui_slider $STAGE_volume(0,1000000)
    set_control_par(get_ui_id($STAGE_volume),$CONTROL_PAR_MOUSE_BEHAVIOUR,-700)
    set_control_par_str(get_ui_id($STAGE_volume),$CONTROL_PAR_PICTURE,"PEA-fader-101")
    set_control_par(get_ui_id($STAGE_volume),$CONTROL_PAR_WIDTH,24)               
    set_control_par(get_ui_id($STAGE_volume),$CONTROL_PAR_HEIGHT,94)               
    set_control_par(get_ui_id($STAGE_volume),$CONTROL_PAR_DEFAULT_VALUE,630000)
    set_control_help($STAGE_volume,"STAGE MIC VOLUME: Sets the output level for the STAGE mic position.")
    set_control_par_str(get_ui_id($STAGE_volume),$CONTROL_PAR_AUTOMATION_NAME,"Stage Vol")

    
    move_control_px($STAGE_volume,187,201)
    
    declare ui_slider $HALL_volume(0,1000000)
    set_control_par(get_ui_id($HALL_volume),$CONTROL_PAR_MOUSE_BEHAVIOUR,-700)
    set_control_par_str(get_ui_id($HALL_volume),$CONTROL_PAR_PICTURE,"PEA-fader-101")
    set_control_par(get_ui_id($HALL_volume),$CONTROL_PAR_WIDTH,24)               
    set_control_par(get_ui_id($HALL_volume),$CONTROL_PAR_HEIGHT,94)               
    set_control_par(get_ui_id($HALL_volume),$CONTROL_PAR_DEFAULT_VALUE,630000)
    set_control_help($HALL_volume,"HALL MIC VOLUME: Sets the output level for the HALL mic position.")
    set_control_par_str(get_ui_id($HALL_volume),$CONTROL_PAR_AUTOMATION_NAME,"Hall Vol")
    
    move_control_px($HALL_volume,250,201)
    
    declare ui_switch $GLOBAL_FX
    set_control_par_str(get_ui_id($GLOBAL_FX),$CONTROL_PAR_PICTURE,"PEA-btn-globalfx6")
    set_control_par(get_ui_id($GLOBAL_FX),$CONTROL_PAR_WIDTH,91)               
    set_control_par(get_ui_id($GLOBAL_FX),$CONTROL_PAR_HEIGHT,19) 
    set_control_par_str(get_ui_id($GLOBAL_FX),$CONTROL_PAR_TEXT,"")   
    set_control_help($GLOBAL_FX,"GLOBAL EFFECTS: Opens the global effects rack, which processes ALL instrument output.")     
    
    move_control_px($GLOBAL_FX,66,66)
    
    declare ui_switch $UI_COLOR
    set_control_par_str(get_ui_id($UI_COLOR),$CONTROL_PAR_PICTURE,"dummy")
    set_control_par(get_ui_id($UI_COLOR),$CONTROL_PAR_WIDTH,147)               
    set_control_par(get_ui_id($UI_COLOR),$CONTROL_PAR_HEIGHT,110)   
    set_control_par_str(get_ui_id($UI_COLOR),$CONTROL_PAR_TEXT,"")    
    move_control_px($UI_COLOR,396,285)
    set_control_help($UI_COLOR,"UI COLOR TONE: Sets the color tone of the user interface to blue, or gold.")
    { 0 Blue }
    { 1 Gold }
            
    make_persistent($UI_COLOR)
    
    declare ui_switch $CLOSE_displaytoggle
    set_control_par_str(get_ui_id($CLOSE_displaytoggle),$CONTROL_PAR_PICTURE,"PEA-btn-mic-fx")
    set_control_par(get_ui_id($CLOSE_displaytoggle),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($CLOSE_displaytoggle),$CONTROL_PAR_HEIGHT,17)   
    set_control_par_str(get_ui_id($CLOSE_displaytoggle),$CONTROL_PAR_TEXT,"")   
    set_control_help($CLOSE_displaytoggle,"CLOSE MICS/FX DISPLAY: Toggles between mic mix and FX settings for the close mics.")
    
    move_control_px($CLOSE_displaytoggle,56,292)
    
    declare ui_switch $TAIL_displaytoggle
    set_control_par_str(get_ui_id($TAIL_displaytoggle),$CONTROL_PAR_PICTURE,"PEA-btn-mic-fx")
    set_control_par(get_ui_id($TAIL_displaytoggle),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($TAIL_displaytoggle),$CONTROL_PAR_HEIGHT,17)   
    set_control_par_str(get_ui_id($TAIL_displaytoggle),$CONTROL_PAR_TEXT,"")    
set_control_help($TAIL_displaytoggle,"PEDAL MIC/FX DISPLAY: Toggles between mic mix and FX settings for the pedal mic.")
    
    move_control_px($TAIL_displaytoggle,119,292)    
    
    declare ui_switch $STAGE_displaytoggle
    set_control_par_str(get_ui_id($STAGE_displaytoggle),$CONTROL_PAR_PICTURE,"PEA-btn-mic-fx")
    set_control_par(get_ui_id($STAGE_displaytoggle),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($STAGE_displaytoggle),$CONTROL_PAR_HEIGHT,17)   
    set_control_par_str(get_ui_id($STAGE_displaytoggle),$CONTROL_PAR_TEXT,"")    
set_control_help($STAGE_displaytoggle,"STAGE MICS/FX DISPLAY: Toggles between mic mix and FX settings for the stage mics.")    
    
    move_control_px($STAGE_displaytoggle,180,292)    
    
    declare ui_switch $HALL_displaytoggle    
    set_control_par_str(get_ui_id($HALL_displaytoggle),$CONTROL_PAR_PICTURE,"PEA-btn-mic-fx")
    set_control_par(get_ui_id($HALL_displaytoggle),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($HALL_displaytoggle),$CONTROL_PAR_HEIGHT,17)   
    set_control_par_str(get_ui_id($HALL_displaytoggle),$CONTROL_PAR_TEXT,"")  
    set_control_help($HALL_displaytoggle,"HALL MICS/FX DISPLAY: Toggles between mic mix and FX settings for the hall mics.")  
    
    move_control_px($HALL_displaytoggle,243,292)

    declare ui_switch $CLOSE_purge
    set_control_par_str(get_ui_id($CLOSE_purge),$CONTROL_PAR_PICTURE,"PEA-btn-mics-close")
    set_control_par(get_ui_id($CLOSE_purge),$CONTROL_PAR_WIDTH,45)               
    set_control_par(get_ui_id($CLOSE_purge),$CONTROL_PAR_HEIGHT,24)   
    set_control_par_str(get_ui_id($CLOSE_purge),$CONTROL_PAR_TEXT,"")    
    set_control_help($CLOSE_purge,"CLOSE MICS ENABLE: Enables or disables the close mic position. If Purge Muted is on, turning off this position will unload it from RAM.")      
    
    move_control_px($CLOSE_purge,52,313)   
    
    declare ui_menu $CLOSE_output        
    set_control_par_str(get_ui_id($CLOSE_output),$CONTROL_PAR_PICTURE,"PEA-dropdown4")
    set_control_par(get_ui_id($CLOSE_output),$CONTROL_PAR_WIDTH,51)               
        
    move_control_px($CLOSE_output,50,333)
        
    declare ui_switch $TAIL_purge
    set_control_par_str(get_ui_id($TAIL_purge),$CONTROL_PAR_PICTURE,"PEA-btn-mics-pedal")
    set_control_par(get_ui_id($TAIL_purge),$CONTROL_PAR_WIDTH,45)               
    set_control_par(get_ui_id($TAIL_purge),$CONTROL_PAR_HEIGHT,24)   
    set_control_par_str(get_ui_id($TAIL_purge),$CONTROL_PAR_TEXT,"")   
    set_control_help($TAIL_purge,"PEDAL MIC ENABLE: Enables or disables the pedal mic position. If Purge Muted is on, turning off this position will unload it from RAM.")           
    
    move_control_px($TAIL_purge,115,313)

    declare ui_menu $TAIL_output        
    set_control_par_str(get_ui_id($TAIL_output),$CONTROL_PAR_PICTURE,"PEA-dropdown4")
    set_control_par(get_ui_id($TAIL_output),$CONTROL_PAR_WIDTH,51)
        
    move_control_px($TAIL_output,113,333)
    
    declare ui_switch $STAGE_purge
    set_control_par_str(get_ui_id($STAGE_purge),$CONTROL_PAR_PICTURE,"PEA-btn-mics-stage")
    set_control_par(get_ui_id($STAGE_purge),$CONTROL_PAR_WIDTH,45)               
    set_control_par(get_ui_id($STAGE_purge),$CONTROL_PAR_HEIGHT,24)   
    set_control_par_str(get_ui_id($STAGE_purge),$CONTROL_PAR_TEXT,"")    
    set_control_help($STAGE_purge,"STAGE MICS ENABLE: Enables or disables the close mic position. If Purge Muted is on, turning off this position will unload it from RAM.")      
    
    move_control_px($STAGE_purge,176,313)

    declare ui_menu $STAGE_output
    set_control_par_str(get_ui_id($STAGE_output),$CONTROL_PAR_PICTURE,"PEA-dropdown4")
    set_control_par(get_ui_id($STAGE_output),$CONTROL_PAR_WIDTH,51)               
        
    move_control_px($STAGE_output,174,333)
   
    declare ui_switch $HALL_purge
    set_control_par_str(get_ui_id($HALL_purge),$CONTROL_PAR_PICTURE,"PEA-btn-mics-hall")
    set_control_par(get_ui_id($HALL_purge),$CONTROL_PAR_WIDTH,45)               
    set_control_par(get_ui_id($HALL_purge),$CONTROL_PAR_HEIGHT,24)   
    set_control_par_str(get_ui_id($HALL_purge),$CONTROL_PAR_TEXT,"")  
    set_control_help($HALL_purge,"HALL MICS ENABLE: Enables or disables the close mic position. If Purge Muted is on, turning off this position will unload it from RAM.")            
    
    move_control_px($HALL_purge,239,313)
    
    declare ui_menu $HALL_output
    set_control_par_str(get_ui_id($HALL_output),$CONTROL_PAR_PICTURE,"PEA-dropdown4")
    set_control_par(get_ui_id($HALL_output),$CONTROL_PAR_WIDTH,51)               
        
    move_control_px($HALL_output,236,333)    
    
    declare ui_slider $CLOSE_offset(0,50000)
    set_control_par(get_ui_id($CLOSE_offset),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($CLOSE_offset),$CONTROL_PAR_PICTURE,"PEA-knob2-101")
    set_control_par(get_ui_id($CLOSE_offset),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($CLOSE_offset),$CONTROL_PAR_HEIGHT,40)               
    set_control_par(get_ui_id($CLOSE_offset),$CONTROL_PAR_DEFAULT_VALUE,0)
    set_control_help($CLOSE_offset,"CLOSE MICS OFFSET: Sets the sample playback offset for the close mic position, which removes pre-transient silence and finger sound.")  
    set_control_par_str(get_ui_id($CLOSE_offset),$CONTROL_PAR_AUTOMATION_NAME,"Close Offset")
    
    move_control_px($CLOSE_offset,55,159)
    
    declare ui_slider $TAIL_offset(0,50000)
    set_control_par(get_ui_id($TAIL_offset),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($TAIL_offset),$CONTROL_PAR_PICTURE,"PEA-knob2-101")
    set_control_par(get_ui_id($TAIL_offset),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($TAIL_offset),$CONTROL_PAR_HEIGHT,40)               
    set_control_par(get_ui_id($TAIL_offset),$CONTROL_PAR_DEFAULT_VALUE,0)
    set_control_help($TAIL_offset,"PEDAL MIC OFFSET: Sets the sample playback offset for the pedal mic position, which removes pre-transient silence and finger sound.")  
    set_control_par_str(get_ui_id($TAIL_offset),$CONTROL_PAR_AUTOMATION_NAME,"Pedal Offset")
    
    move_control_px($TAIL_offset,118,159)
    
    declare ui_slider $STAGE_offset(0,50000)
    set_control_par(get_ui_id($STAGE_offset),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($STAGE_offset),$CONTROL_PAR_PICTURE,"PEA-knob2-101")
    set_control_par(get_ui_id($STAGE_offset),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($STAGE_offset),$CONTROL_PAR_HEIGHT,40)               
    set_control_par(get_ui_id($STAGE_offset),$CONTROL_PAR_DEFAULT_VALUE,0)
    set_control_help($STAGE_offset,"STAGE MIC OFFSET: Sets the sample playback offset for the stage mic position, which removes pre-transient silence and finger sound.")  
    set_control_par_str(get_ui_id($STAGE_offset),$CONTROL_PAR_AUTOMATION_NAME,"Stage Offset")
    
    move_control_px($STAGE_offset,179,159)
    
    declare ui_slider $HALL_offset(0,50000)
    set_control_par(get_ui_id($HALL_offset),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($HALL_offset),$CONTROL_PAR_PICTURE,"PEA-knob2-101")
    set_control_par(get_ui_id($HALL_offset),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($HALL_offset),$CONTROL_PAR_HEIGHT,40)               
    set_control_par(get_ui_id($HALL_offset),$CONTROL_PAR_DEFAULT_VALUE,0)
    set_control_help($HALL_offset,"HALL MIC OFFSET: Sets the sample playback offset for the hall mic position, which removes pre-transient silence and finger sound.")  
    set_control_par_str(get_ui_id($HALL_offset),$CONTROL_PAR_AUTOMATION_NAME,"Hall Offset")
    
    move_control_px($HALL_offset,242,159)
    
    declare ui_slider $CLOSE_width(0,1000000)
    set_control_par(get_ui_id($CLOSE_width),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($CLOSE_width),$CONTROL_PAR_PICTURE,"PEA-knob2-101")
    set_control_par(get_ui_id($CLOSE_width),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($CLOSE_width),$CONTROL_PAR_HEIGHT,40)               
    set_control_par(get_ui_id($CLOSE_width),$CONTROL_PAR_DEFAULT_VALUE,500000)
    set_control_help($CLOSE_width,"CLOSE MIC WIDTH: Sets the stereo width for the close mic position.")
    set_control_par_str(get_ui_id($CLOSE_width),$CONTROL_PAR_AUTOMATION_NAME,"Close Width")
    
    move_control_px($CLOSE_width,55,110)
    
    declare ui_slider $TAIL_width(0,1000000)
    set_control_par(get_ui_id($TAIL_width),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($TAIL_width),$CONTROL_PAR_PICTURE,"PEA-knob2-101")
    set_control_par(get_ui_id($TAIL_width),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($TAIL_width),$CONTROL_PAR_HEIGHT,40)               
    set_control_par(get_ui_id($TAIL_width),$CONTROL_PAR_DEFAULT_VALUE,500000)
    set_control_help($TAIL_width,"PEDAL MIC WIDTH: Sets the stereo width for the pedal mic position.")
    set_control_par_str(get_ui_id($TAIL_width),$CONTROL_PAR_AUTOMATION_NAME,"Pedal Width")
    
    move_control_px($TAIL_width,118,110)
    
    declare ui_slider $STAGE_width(0,1000000)
    set_control_par(get_ui_id($STAGE_width),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($STAGE_width),$CONTROL_PAR_PICTURE,"PEA-knob2-101")
    set_control_par(get_ui_id($STAGE_width),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($STAGE_width),$CONTROL_PAR_HEIGHT,40)               
    set_control_par(get_ui_id($STAGE_width),$CONTROL_PAR_DEFAULT_VALUE,500000)
    set_control_help($STAGE_width,"STAGE MIC WIDTH: Sets the stereo width for the stage mic position.")
    set_control_par_str(get_ui_id($STAGE_width),$CONTROL_PAR_AUTOMATION_NAME,"Stage Width")
    
    move_control_px($STAGE_width,179,110)
       
    declare ui_slider $HALL_width(0,1000000)
    set_control_par(get_ui_id($HALL_width),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($HALL_width),$CONTROL_PAR_PICTURE,"PEA-knob2-101")
    set_control_par(get_ui_id($HALL_width),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($HALL_width),$CONTROL_PAR_HEIGHT,40)               
    set_control_par(get_ui_id($HALL_width),$CONTROL_PAR_DEFAULT_VALUE,500000)
    set_control_help($HALL_width,"HALL MIC WIDTH: Sets the stereo width for the hall mic position.")    
    set_control_par_str(get_ui_id($HALL_width),$CONTROL_PAR_AUTOMATION_NAME,"Hall Width")
    
    move_control_px($HALL_width,242,110)
    
    declare ui_slider $CLOSE_compressor(0,1000000)
    set_control_par(get_ui_id($CLOSE_compressor),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($CLOSE_compressor),$CONTROL_PAR_PICTURE,"PEA-knob2-128")
    set_control_par(get_ui_id($CLOSE_compressor),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($CLOSE_compressor),$CONTROL_PAR_HEIGHT,40)
    set_control_par(get_ui_id($CLOSE_compressor),$CONTROL_PAR_DEFAULT_VALUE,0) 
     
    
    move_control_px($CLOSE_compressor,55,110)  
    
    declare ui_slider $CLOSE_hf(0,1000000)
    set_control_par(get_ui_id($CLOSE_hf),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($CLOSE_hf),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($CLOSE_hf),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($CLOSE_hf),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($CLOSE_hf),$CONTROL_PAR_DEFAULT_VALUE,500000) 

    move_control_px($CLOSE_hf,49,198)  
    
    declare ui_slider $CLOSE_hmf(0,1000000)
    set_control_par(get_ui_id($CLOSE_hmf),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($CLOSE_hmf),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($CLOSE_hmf),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($CLOSE_hmf),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($CLOSE_hmf),$CONTROL_PAR_DEFAULT_VALUE,500000) 

    move_control_px($CLOSE_hmf,79,198) 
    
    declare ui_slider $CLOSE_lf(0,1000000)
    set_control_par(get_ui_id($CLOSE_lf),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($CLOSE_lf),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($CLOSE_lf),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($CLOSE_lf),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($CLOSE_lf),$CONTROL_PAR_DEFAULT_VALUE,500000) 

    move_control_px($CLOSE_lf,79,242) 
    
    declare ui_slider $CLOSE_lmf(0,1000000)
    set_control_par(get_ui_id($CLOSE_lmf),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($CLOSE_lmf),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($CLOSE_lmf),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($CLOSE_lmf),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($CLOSE_lmf),$CONTROL_PAR_DEFAULT_VALUE,500000) 

    move_control_px($CLOSE_lmf,49,242) 

    declare ui_slider $TAIL_compressor(0,1000000)
    set_control_par(get_ui_id($TAIL_compressor),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($TAIL_compressor),$CONTROL_PAR_PICTURE,"PEA-knob2-128")
    set_control_par(get_ui_id($TAIL_compressor),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($TAIL_compressor),$CONTROL_PAR_HEIGHT,40)
    set_control_par(get_ui_id($TAIL_compressor),$CONTROL_PAR_DEFAULT_VALUE,0)  
    
    move_control_px($TAIL_compressor,118,110)  
    
    declare ui_slider $TAIL_hf(0,1000000)
    set_control_par(get_ui_id($TAIL_hf),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($TAIL_hf),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($TAIL_hf),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($TAIL_hf),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($TAIL_hf),$CONTROL_PAR_DEFAULT_VALUE,500000) 

    move_control_px($TAIL_hf,112,198)  
    
    declare ui_slider $TAIL_hmf(0,1000000)
    set_control_par(get_ui_id($TAIL_hmf),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($TAIL_hmf),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($TAIL_hmf),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($TAIL_hmf),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($TAIL_hmf),$CONTROL_PAR_DEFAULT_VALUE,500000) 

    move_control_px($TAIL_hmf,142,198) 
    
    declare ui_slider $TAIL_lf(0,1000000)
    set_control_par(get_ui_id($TAIL_lf),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($TAIL_lf),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($TAIL_lf),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($TAIL_lf),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($TAIL_lf),$CONTROL_PAR_DEFAULT_VALUE,500000) 

    move_control_px($TAIL_lf,142,242) 
    
    declare ui_slider $TAIL_lmf(0,1000000)
    set_control_par(get_ui_id($TAIL_lmf),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($TAIL_lmf),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($TAIL_lmf),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($TAIL_lmf),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($TAIL_lmf),$CONTROL_PAR_DEFAULT_VALUE,500000) 

    move_control_px($TAIL_lmf,112,242) 

    declare ui_slider $STAGE_compressor(0,1000000)
    set_control_par(get_ui_id($STAGE_compressor),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($STAGE_compressor),$CONTROL_PAR_PICTURE,"PEA-knob2-128")
    set_control_par(get_ui_id($STAGE_compressor),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($STAGE_compressor),$CONTROL_PAR_HEIGHT,40)
    set_control_par(get_ui_id($STAGE_compressor),$CONTROL_PAR_DEFAULT_VALUE,0)  
    
    move_control_px($STAGE_compressor,179,110)  
    
    declare ui_slider $STAGE_hf(0,1000000)
    set_control_par(get_ui_id($STAGE_hf),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($STAGE_hf),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($STAGE_hf),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($STAGE_hf),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($STAGE_hf),$CONTROL_PAR_DEFAULT_VALUE,500000) 

    move_control_px($STAGE_hf,173,198)  
    
    declare ui_slider $STAGE_hmf(0,1000000)
    set_control_par(get_ui_id($STAGE_hmf),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($STAGE_hmf),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($STAGE_hmf),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($STAGE_hmf),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($STAGE_hmf),$CONTROL_PAR_DEFAULT_VALUE,500000) 

    move_control_px($STAGE_hmf,203,198) 
    
    declare ui_slider $STAGE_lf(0,1000000)
    set_control_par(get_ui_id($STAGE_lf),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($STAGE_lf),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($STAGE_lf),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($STAGE_lf),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($STAGE_lf),$CONTROL_PAR_DEFAULT_VALUE,500000) 

    move_control_px($STAGE_lf,203,242) 
    
    declare ui_slider $STAGE_lmf(0,1000000)
    set_control_par(get_ui_id($STAGE_lmf),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($STAGE_lmf),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($STAGE_lmf),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($STAGE_lmf),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($STAGE_lmf),$CONTROL_PAR_DEFAULT_VALUE,500000) 

    move_control_px($STAGE_lmf,173,242) 

    declare ui_slider $HALL_compressor(0,1000000)
    set_control_par(get_ui_id($HALL_compressor),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($HALL_compressor),$CONTROL_PAR_PICTURE,"PEA-knob2-128")
    set_control_par(get_ui_id($HALL_compressor),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($HALL_compressor),$CONTROL_PAR_HEIGHT,40)
    set_control_par(get_ui_id($HALL_compressor),$CONTROL_PAR_DEFAULT_VALUE,0)  
    
    move_control_px($HALL_compressor,242,110)  
    
    declare ui_slider $HALL_hf(0,1000000)
    set_control_par(get_ui_id($HALL_hf),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($HALL_hf),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($HALL_hf),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($HALL_hf),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($HALL_hf),$CONTROL_PAR_DEFAULT_VALUE,500000) 

    move_control_px($HALL_hf,236,198)  
    
    declare ui_slider $HALL_hmf(0,1000000)
    set_control_par(get_ui_id($HALL_hmf),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($HALL_hmf),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($HALL_hmf),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($HALL_hmf),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($HALL_hmf),$CONTROL_PAR_DEFAULT_VALUE,500000) 

    move_control_px($HALL_hmf,266,198) 
    
    declare ui_slider $HALL_lf(0,1000000)
    set_control_par(get_ui_id($HALL_lf),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($HALL_lf),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($HALL_lf),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($HALL_lf),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($HALL_lf),$CONTROL_PAR_DEFAULT_VALUE,500000) 

    move_control_px($HALL_lf,266,242) 
    
    declare ui_slider $HALL_lmf(0,1000000)
    set_control_par(get_ui_id($HALL_lmf),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($HALL_lmf),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($HALL_lmf),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($HALL_lmf),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($HALL_lmf),$CONTROL_PAR_DEFAULT_VALUE,500000) 

    move_control_px($HALL_lmf,236,242) 

    $i := 0
    add_menu_item($CLOSE_output,"Default",-1)
    add_menu_item($STAGE_output,"Default",-1)
    add_menu_item($TAIL_output,"Default",-1)
    add_menu_item($HALL_output,"Default",-1)
    while ($i < $NUM_OUTPUT_CHANNELS)
        add_menu_item($CLOSE_output,output_channel_name($i),$i)
        add_menu_item($STAGE_output,output_channel_name($i),$i)
        add_menu_item($TAIL_output,output_channel_name($i),$i)
        add_menu_item($HALL_output,output_channel_name($i),$i)
        inc($i)
    end while
    
    $CLOSE_output := get_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,-1,$NI_BUS_OFFSET + 0)  
    $STAGE_output := get_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,-1,$NI_BUS_OFFSET + 2)
    $TAIL_output := get_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,-1,$NI_BUS_OFFSET + 3)
    $HALL_output := get_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,-1,-1,$NI_BUS_OFFSET + 1)


    set_control_help($CLOSE_compressor,"CLOSE MIC COMPRESSION: Sets the bus compressor mix for the close mic position.")    
    set_control_help($CLOSE_hf,"CLOSE EQ HIGH: Sets the amount of high frequency gain or attentuation for the close mic position.")        
    set_control_help($CLOSE_hmf,"CLOSE EQ HIGH-MID: Sets the amount of high-mid frequency gain or attentuation for the close mic position.")        
    set_control_help($CLOSE_lf,"CLOSE EQ LOW: Sets the amount of low frequency gain or attentuation for the close mic position.")        
    set_control_help($CLOSE_lmf,"CLOSE EQ LOW-MID: Sets the amount of low-mid frequency gain or attentuation for the close mic position.")        

    set_control_par_str(get_ui_id($CLOSE_compressor),$CONTROL_PAR_AUTOMATION_NAME,"Close Comp")
    set_control_par_str(get_ui_id($CLOSE_hf),$CONTROL_PAR_AUTOMATION_NAME,"Close HF")
    set_control_par_str(get_ui_id($CLOSE_hmf),$CONTROL_PAR_AUTOMATION_NAME,"Close HMF")
    set_control_par_str(get_ui_id($CLOSE_lf),$CONTROL_PAR_AUTOMATION_NAME,"Close LF")
    set_control_par_str(get_ui_id($CLOSE_lmf),$CONTROL_PAR_AUTOMATION_NAME,"Close LMF")

    set_control_help($STAGE_compressor,"STAGE MIC COMPRESSION: Sets the bus compressor mix for the stage mic position.")    
    set_control_help($STAGE_hf,"STAGE EQ HIGH: Sets the amount of high frequency gain or attentuation for the stage mic position.")        
    set_control_help($STAGE_hmf,"STAGE EQ HIGH-MID: Sets the amount of high-mid frequency gain or attentuation for the stage mic position.")        
    set_control_help($STAGE_lf,"STAGE EQ LOW: Sets the amount of low frequency gain or attentuation for the stage mic position.")        
    set_control_help($STAGE_lmf,"STAGE EQ LOW-MID: Sets the amount of low-mid frequency gain or attentuation for the stage mic position.")        

    set_control_help($HALL_compressor,"HALL MIC COMPRESSION: Sets the bus compressor mix for the hall mic position.")    
    set_control_help($HALL_hf,"HALL EQ HIGH: Sets the amount of high frequency gain or attentuation for the hall mic position.")        
    set_control_help($HALL_hmf,"HALL EQ HIGH-MID: Sets the amount of high-mid frequency gain or attentuation for the hall mic position.")        
    set_control_help($HALL_lf,"HALL EQ LOW: Sets the amount of low frequency gain or attentuation for the hall mic position.")        
    set_control_help($HALL_lmf,"HALL EQ LOW-MID: Sets the amount of low-mid frequency gain or attentuation for the hall mic position.")        

    set_control_help($TAIL_compressor,"PEDAL MIC COMPRESSION: Sets the bus compressor mix for the pedal mic position.")    
    set_control_help($TAIL_hf,"PEDAL EQ HIGH: Sets the amount of high frequency gain or attentuation for the pedal mic position.")        
    set_control_help($TAIL_hmf,"PEDAL EQ HIGH-MID: Sets the amount of high-mid frequency gain or attentuation for the pedal mic position.")        
    set_control_help($TAIL_lf,"PEDAL EQ LOW: Sets the amount of low frequency gain or attentuation for the pedal mic position.")        
    set_control_help($TAIL_lmf,"PEDAL EQ LOW-MID: Sets the amount of low-mid frequency gain or attentuation for the pedal mic position.")        


    set_control_par_str(get_ui_id($STAGE_compressor),$CONTROL_PAR_AUTOMATION_NAME,"Stage Comp")
    set_control_par_str(get_ui_id($STAGE_hf),$CONTROL_PAR_AUTOMATION_NAME,"Stage HF")
    set_control_par_str(get_ui_id($STAGE_hmf),$CONTROL_PAR_AUTOMATION_NAME,"Stage HMF")
    set_control_par_str(get_ui_id($STAGE_lf),$CONTROL_PAR_AUTOMATION_NAME,"Stage LF")
    set_control_par_str(get_ui_id($STAGE_lmf),$CONTROL_PAR_AUTOMATION_NAME,"Stage LMF")
    
    set_control_par_str(get_ui_id($HALL_compressor),$CONTROL_PAR_AUTOMATION_NAME,"Hall Comp")
    set_control_par_str(get_ui_id($HALL_hf),$CONTROL_PAR_AUTOMATION_NAME,"Hall HF")
    set_control_par_str(get_ui_id($HALL_hmf),$CONTROL_PAR_AUTOMATION_NAME,"Hall HMF")
    set_control_par_str(get_ui_id($HALL_lf),$CONTROL_PAR_AUTOMATION_NAME,"Hall LF")
    set_control_par_str(get_ui_id($HALL_lmf),$CONTROL_PAR_AUTOMATION_NAME,"Hall LMF")
    
    set_control_par_str(get_ui_id($TAIL_compressor),$CONTROL_PAR_AUTOMATION_NAME,"Pedal Comp")
    set_control_par_str(get_ui_id($TAIL_hf),$CONTROL_PAR_AUTOMATION_NAME,"Pedal HF")
    set_control_par_str(get_ui_id($TAIL_hmf),$CONTROL_PAR_AUTOMATION_NAME,"Pedal HMF")
    set_control_par_str(get_ui_id($TAIL_lf),$CONTROL_PAR_AUTOMATION_NAME,"Pedal LF")
    set_control_par_str(get_ui_id($TAIL_lmf),$CONTROL_PAR_AUTOMATION_NAME,"Pedal LMF")
    
            
    
    declare ui_label $DISPLAY_label(2,1)
    set_control_par_str(get_ui_id($DISPLAY_label),$CONTROL_PAR_TEXT,"")    
    set_control_par(get_ui_id($DISPLAY_label),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
    set_control_par(get_ui_id($DISPLAY_label),$CONTROL_PAR_FONT_TYPE,1)
    set_control_par(get_ui_id($DISPLAY_label),$CONTROL_PAR_WIDTH,100)
    
    declare ui_label $DISPLAY_value(1,1)
    set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,"")    
    set_control_par(get_ui_id($DISPLAY_value),$CONTROL_PAR_HIDE,$HIDE_PART_BG)    
    set_control_par(get_ui_id($DISPLAY_value),$CONTROL_PAR_FONT_TYPE,1)

    move_control_px($DISPLAY_label,115,373)
    move_control_px($DISPLAY_value,195,373)

    declare %PRESET_VelocityArray[65]
    declare ui_table %table_velocity[65] (1,1,127)        
    set_control_par(get_ui_id(%table_velocity),$CONTROL_PAR_WIDTH,240)
    set_control_par(get_ui_id(%table_velocity),$CONTROL_PAR_HEIGHT,65)
    move_control_px(%table_velocity,49,49)
    set_control_help(%table_velocity,"VELOCITY TABLE: Adjusts the velocity response of the instrument to incoming MIDI events.")


    declare ui_switch $PurgeMuted
    set_control_par_str(get_ui_id($PurgeMuted),$CONTROL_PAR_PICTURE,"PEA-btn-purgemuted") 
    set_control_par(get_ui_id($PurgeMuted),$CONTROL_PAR_WIDTH,81)  
    set_control_par(get_ui_id($PurgeMuted),$CONTROL_PAR_HEIGHT,26)   
    set_control_par_str(get_ui_id($PurgeMuted),$CONTROL_PAR_TEXT,"")    
    
    set_control_help($PurgeMuted,"PURGE MUTED MICS: When enabled, mics that are disabled will also be unloaded (purged) from RAM.")
    
    declare %ui_main[52]
    %ui_main[0] := get_ui_id($MASTER_volume)
    %ui_main[1] := get_ui_id($transpose)
    %ui_main[2] := get_ui_id($CLOSE_volume)
    %ui_main[3] := get_ui_id($STAGE_volume)
    %ui_main[4] := get_ui_id($HALL_volume)
    %ui_main[5] := get_ui_id($TAIL_volume)
    %ui_main[6] := get_ui_id($CLOSE_offset)
    %ui_main[7] := get_ui_id($STAGE_offset)
    %ui_main[8] := get_ui_id($HALL_offset)
    %ui_main[9] := get_ui_id($TAIL_offset)
    %ui_main[10] := get_ui_id($CLOSE_width)
    %ui_main[11] := get_ui_id($STAGE_width)
    %ui_main[12] := get_ui_id($TAIL_width)
    %ui_main[13] := get_ui_id($HALL_width)
    %ui_main[14] := get_ui_id($CLOSE_purge)    
    %ui_main[15] := get_ui_id($STAGE_purge)
    %ui_main[16] := get_ui_id($TAIL_purge)
    %ui_main[17] := get_ui_id($HALL_purge)
    %ui_main[18] := get_ui_id($CLOSE_micstrip)
    %ui_main[19] := get_ui_id($TAIL_micstrip)
    %ui_main[20] := get_ui_id($STAGE_micstrip)
    %ui_main[21] := get_ui_id($HALL_micstrip)
    %ui_main[18] := get_ui_id($CLOSE_displaytoggle)
    %ui_main[19] := get_ui_id($TAIL_displaytoggle)
    %ui_main[20] := get_ui_id($STAGE_displaytoggle)
    %ui_main[21] := get_ui_id($HALL_displaytoggle)
    %ui_main[22] := get_ui_id($CLOSE_fxstrip)
    %ui_main[23] := get_ui_id($TAIL_fxstrip)
    %ui_main[24] := get_ui_id($STAGE_fxstrip)
    %ui_main[25] := get_ui_id($HALL_fxstrip)
    %ui_main[26] := get_ui_id($CLOSE_compressor)
    %ui_main[27] := get_ui_id($TAIL_compressor)
    %ui_main[28] := get_ui_id($STAGE_compressor)
    %ui_main[29] := get_ui_id($HALL_compressor)
    %ui_main[30] := get_ui_id($CLOSE_HF)
    %ui_main[31] := get_ui_id($CLOSE_HMF)
    %ui_main[32] := get_ui_id($CLOSE_LF)
    %ui_main[33] := get_ui_id($CLOSE_LMF)
    %ui_main[34] := get_ui_id($TAIL_HF)
    %ui_main[35] := get_ui_id($TAIL_HMF)
    %ui_main[36] := get_ui_id($TAIL_LF)
    %ui_main[37] := get_ui_id($TAIL_LMF)
    %ui_main[38] := get_ui_id($STAGE_HF)
    %ui_main[39] := get_ui_id($STAGE_LF)
    %ui_main[40] := get_ui_id($STAGE_HMF)
    %ui_main[41] := get_ui_id($STAGE_LMF)
    %ui_main[42] := get_ui_id($HALL_HF)
    %ui_main[43] := get_ui_id($HALL_HMF)
    %ui_main[44] := get_ui_id($HALL_LF)
    %ui_main[45] := get_ui_id($HALL_LMF)
    %ui_main[46] := get_ui_id($GLOBAL_FX)
    %ui_main[47] := get_ui_id($MASTER_presets)
    %ui_main[48] := get_ui_id($CLOSE_output)
    %ui_main[49] := get_ui_id($TAIL_output)
    %ui_main[50] := get_ui_id($STAGE_output)
    %ui_main[51] := get_ui_id($HALL_output)

    declare ui_slider $velocityVolume(0,1000000)
    set_control_par(get_ui_id($velocityVolume),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($velocityVolume),$CONTROL_PAR_PICTURE,"PEA-knob1-101")
    set_control_par(get_ui_id($velocityVolume),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($velocityVolume),$CONTROL_PAR_HEIGHT,40)
    set_control_par(get_ui_id($velocityVolume),$CONTROL_PAR_DEFAULT_VALUE,1000000) 
    set_control_help($velocityVolume,"VELOCITY -> VOLUME: Sets the amount to which velocity affects output volume. At 0, velocity has no effect on volume.")
    set_control_par_str(get_ui_id($velocityVolume),$CONTROL_PAR_AUTOMATION_NAME,"Vel->Vol")

    move_control_px($velocityVolume,52,127) 
    
    declare ui_slider $velocityBright(0,1000000)
    set_control_par(get_ui_id($velocityBright),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($velocityBright),$CONTROL_PAR_PICTURE,"PEA-knob1-101")
    set_control_par(get_ui_id($velocityBright),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($velocityBright),$CONTROL_PAR_HEIGHT,40)
    set_control_par(get_ui_id($velocityBright),$CONTROL_PAR_DEFAULT_VALUE,500000) 
    set_control_help($velocityBright,"VELOCITY -> BRIGHTNESS: Sets the amount to which velocity affects the instrument's brightness (high shelf EQ).")    
    set_control_par_str(get_ui_id($velocityBright),$CONTROL_PAR_AUTOMATION_NAME,"Vel->Bright")

    move_control_px($velocityBright,117,127)     

    declare ui_table %table_dynamic[88] (1,1,127)
    set_control_par(get_ui_id(%table_dynamic),$CONTROL_PAR_WIDTH,540)
    set_control_par(get_ui_id(%table_dynamic),$CONTROL_PAR_HEIGHT,150)
    move_control_px(%table_dynamic,49,49)
    set_control_help(%table_dynamic,"DYNAMICS TABLE: Adjusts the dynamic curve for each MIDI note. Lower values will yield a softer dynamic without reducing output volume.")        
    make_persistent(%table_dynamic)
    
    declare ui_switch $DYNAMIC_expand
    set_control_par_str(get_ui_id($DYNAMIC_expand),$CONTROL_PAR_PICTURE,"dummy") 
    set_control_par(get_ui_id($DYNAMIC_expand),$CONTROL_PAR_WIDTH,14)               
    set_control_par(get_ui_id($DYNAMIC_expand),$CONTROL_PAR_HEIGHT,14)   
    set_control_par_str(get_ui_id($DYNAMIC_expand),$CONTROL_PAR_TEXT,"") 
    set_control_help($DYNAMIC_expand,"OPEN DYNAMICS TABLE: Opens the dynamic curve table for editing, which controls dynamics without affecting output volume.")               
    move_control_px($DYNAMIC_expand,135,29)


    declare ui_label $DYNAMIC_expand_label(1,1)
    set_control_par_str(get_ui_id($DYNAMIC_expand_label),$CONTROL_PAR_PICTURE,"DynamicIcon") 
    set_control_par(get_ui_id($DYNAMIC_expand_label),$CONTROL_PAR_WIDTH,14)               
    set_control_par(get_ui_id($DYNAMIC_expand_label),$CONTROL_PAR_HEIGHT,14)   
    set_control_par_str(get_ui_id($DYNAMIC_expand_label),$CONTROL_PAR_TEXT,"")        

    move_control_px($DYNAMIC_expand_label,135,29)

    
    
    declare ui_switch $VELOCITY_revert
    set_control_par_str(get_ui_id($VELOCITY_revert),$CONTROL_PAR_PICTURE,"PEA-btn-revert") 
    set_control_par(get_ui_id($VELOCITY_revert),$CONTROL_PAR_WIDTH,14)               
    set_control_par(get_ui_id($VELOCITY_revert),$CONTROL_PAR_HEIGHT,14)   
    set_control_par_str(get_ui_id($VELOCITY_revert),$CONTROL_PAR_TEXT,"")    
    set_control_help($VELOCITY_revert,"REVERT VELOCITY CURVE: Sets the velocity curve to a simple linear default.")    
    
    
    move_control_px($VELOCITY_revert,180,29)
    
    declare ui_label $VELOCITY_expand_label(1,1)
    set_control_par_str(get_ui_id($VELOCITY_expand_label),$CONTROL_PAR_PICTURE,"PEA-btn-expand") 
    set_control_par(get_ui_id($VELOCITY_expand_label),$CONTROL_PAR_WIDTH,14)               
    set_control_par(get_ui_id($VELOCITY_expand_label),$CONTROL_PAR_HEIGHT,14)   
    set_control_par_str(get_ui_id($VELOCITY_expand_label),$CONTROL_PAR_TEXT,"")        

    move_control_px($VELOCITY_expand_label,160,30)
    
    declare ui_switch $VELOCITY_expand
    set_control_par_str(get_ui_id($VELOCITY_expand),$CONTROL_PAR_PICTURE,"dummy") 
    set_control_par(get_ui_id($VELOCITY_expand),$CONTROL_PAR_WIDTH,14)               
    set_control_par(get_ui_id($VELOCITY_expand),$CONTROL_PAR_HEIGHT,14)   
    set_control_par_str(get_ui_id($VELOCITY_expand),$CONTROL_PAR_TEXT,"") 
    set_control_help($VELOCITY_expand,"EXPAND VELOCITY TABLE: Magnifies the velocity curve table for easier editing. Handy!")               

    move_control_px($VELOCITY_expand,160,30)
    
    declare ui_slider $releaseVolume(0,850000)
    set_control_par(get_ui_id($releaseVolume),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($releaseVolume),$CONTROL_PAR_PICTURE,"PEA-knob1-128")
    set_control_par(get_ui_id($releaseVolume),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($releaseVolume),$CONTROL_PAR_HEIGHT,40)
    set_control_par(get_ui_id($releaseVolume),$CONTROL_PAR_DEFAULT_VALUE,200000)
    set_control_help($releaseVolume,"KEY RELEASE NOISE VOLUME: Controls the volume of the key release noises, triggered when a key is lifted.")        
    set_control_par_str(get_ui_id($releaseVolume),$CONTROL_PAR_AUTOMATION_NAME,"Key Noise")

    move_control_px($releaseVolume,182,127)
    
    declare ui_slider $pedalVolume(0,1000000)
    set_control_par(get_ui_id($pedalVolume),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($pedalVolume),$CONTROL_PAR_PICTURE,"PEA-knob1-128")
    set_control_par(get_ui_id($pedalVolume),$CONTROL_PAR_WIDTH,40)               
    set_control_par(get_ui_id($pedalVolume),$CONTROL_PAR_HEIGHT,40)
    set_control_par(get_ui_id($pedalVolume),$CONTROL_PAR_DEFAULT_VALUE,400000) 
    set_control_help($pedalVolume,"PEDAL NOISE VOLUME: Controls the volume of the pedal noises, triggered when using the sustain pedal (CC64).")        
    set_control_par_str(get_ui_id($pedalVolume),$CONTROL_PAR_AUTOMATION_NAME,"Pedal Noise")

    move_control_px($pedalVolume,245,127)    

    declare ui_slider $AMP_attack(0,800000)
    set_control_par(get_ui_id($AMP_attack),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($AMP_attack),$CONTROL_PAR_PICTURE,"PEA-knob2-128")
    set_control_par(get_ui_id($AMP_attack),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($AMP_attack),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($AMP_attack),$CONTROL_PAR_DEFAULT_VALUE,100000) 
    set_control_help($AMP_attack,"ATTACK TIME: Controls the attack time of the instrument. A small attack of 1-3ms is ideal.")        
    set_control_par_str(get_ui_id($AMP_attack),$CONTROL_PAR_AUTOMATION_NAME,"Attack Time")

    move_control_px($AMP_attack,123,311)    

    declare ui_slider $AMP_decay(0,1000000)
    set_control_par(get_ui_id($AMP_decay),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($AMP_decay),$CONTROL_PAR_PICTURE,"PEA-knob2-128")
    set_control_par(get_ui_id($AMP_decay),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($AMP_decay),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($AMP_decay),$CONTROL_PAR_DEFAULT_VALUE,1000000) 
    set_control_help($AMP_decay,"DECAY TIME: Controls the decay time of the instrument, i.e. the post-attack time it takes to reach the sustain level.")
    set_control_par_str(get_ui_id($AMP_decay),$CONTROL_PAR_AUTOMATION_NAME,"Decay Time")

    move_control_px($AMP_decay,163,311)    
    
    declare ui_slider $AMP_sustain(0,1000000)
    set_control_par(get_ui_id($AMP_sustain),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($AMP_sustain),$CONTROL_PAR_PICTURE,"PEA-knob2-128")
    set_control_par(get_ui_id($AMP_sustain),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($AMP_sustain),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($AMP_sustain),$CONTROL_PAR_DEFAULT_VALUE,1000000) 
    set_control_help($AMP_sustain,"SUSTAIN LEVEL: Controls the sustain level of the instrument. Leave this at max, unless you want an artificially short decay + sustain.")
    set_control_par_str(get_ui_id($AMP_sustain),$CONTROL_PAR_AUTOMATION_NAME,"Sustain Lvl")

    move_control_px($AMP_sustain,203,311)    
    
    declare ui_slider $AMP_release(0,1000000)
    set_control_par(get_ui_id($AMP_release),$CONTROL_PAR_MOUSE_BEHAVIOUR,-400)
    set_control_par_str(get_ui_id($AMP_release),$CONTROL_PAR_PICTURE,"PEA-knob2-128")
    set_control_par(get_ui_id($AMP_release),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($AMP_release),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($AMP_release),$CONTROL_PAR_DEFAULT_VALUE,470000) 
    set_control_help($AMP_release,"RELEASE TIME: Controls the release time of the instrument, i.e. the time it takes for the sound to fade away after a key is lifted.")
    set_control_par_str(get_ui_id($AMP_release),$CONTROL_PAR_AUTOMATION_NAME,"Release Time")

    move_control_px($AMP_release,243,311)            

   
    declare ui_switch $SETTINGS_toggle
    set_control_par_str(get_ui_id($SETTINGS_toggle),$CONTROL_PAR_PICTURE,"dummy") 
    set_control_par(get_ui_id($SETTINGS_toggle),$CONTROL_PAR_WIDTH,30)               
    set_control_par(get_ui_id($SETTINGS_toggle),$CONTROL_PAR_HEIGHT,26)   
    set_control_par_str(get_ui_id($SETTINGS_toggle),$CONTROL_PAR_TEXT,"")    
    set_control_help($SETTINGS_toggle,"TOGGLE SETTINGS PAGE: Toggles between the main page with mic positions to the advanced settings page.")
    
    move_control_px($SETTINGS_toggle,68,368)
    
    declare ui_switch $EXTRA_RR
    set_control_par_str(get_ui_id($EXTRA_RR),$CONTROL_PAR_PICTURE,"PEA-btn-extraRR") 
    set_control_par(get_ui_id($EXTRA_RR),$CONTROL_PAR_WIDTH,72)               
    set_control_par(get_ui_id($EXTRA_RR),$CONTROL_PAR_HEIGHT,24)   
    set_control_par_str(get_ui_id($EXTRA_RR),$CONTROL_PAR_TEXT,"")
    set_control_help($EXTRA_RR,"EXTRA ROUND ROBIN: When enabled, randomly adds variation to notes by transposing neighboring zones.")        
    set_control_par_str(get_ui_id($EXTRA_RR),$CONTROL_PAR_AUTOMATION_NAME,"Extra RR")
    
    move_control_px($EXTRA_RR,40,309)
    
    declare ui_switch $HighDampers
    set_control_par_str(get_ui_id($HighDampers),$CONTROL_PAR_PICTURE,"PEA-btn-highdampers") 
    set_control_par(get_ui_id($HighDampers),$CONTROL_PAR_WIDTH,72)               
    set_control_par(get_ui_id($HighDampers),$CONTROL_PAR_HEIGHT,24)   
    set_control_par_str(get_ui_id($HighDampers),$CONTROL_PAR_TEXT,"")    
    set_control_help($HighDampers,"HIGH DAMPERS: When enabled, notes F#6 and above will NOT ring out. Leave DISABLED for realism.")        
set_control_par_str(get_ui_id($HighDampers),$CONTROL_PAR_AUTOMATION_NAME,"High Dampers")
    
    move_control_px($HighDampers,40,327)
    move_control_px($PurgeMuted,40,345)
    
        
    declare ui_slider $TUNING_key(0,11)
    set_control_par(get_ui_id($TUNING_key),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($TUNING_key),$CONTROL_PAR_PICTURE,"PEA-knob4-31")
    set_control_par(get_ui_id($TUNING_key),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($TUNING_key),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($TUNING_key),$CONTROL_PAR_DEFAULT_VALUE,0) 
    set_control_help($TUNING_key,"TUNING KEY: Sets the root key used for the tuning table.")        
    set_control_par_str(get_ui_id($TUNING_key),$CONTROL_PAR_AUTOMATION_NAME,"Tuning Key")
    
    declare ui_menu $VELOCITY_presets
    set_control_par_str(get_ui_id($VELOCITY_presets),$CONTROL_PAR_PICTURE,"PEA-dropdown2") 
    set_control_par(get_ui_id($VELOCITY_presets),$CONTROL_PAR_FONT_TYPE,0)
    set_control_par(get_ui_id($VELOCITY_presets),$CONTROL_PAR_TEXTPOS_Y,1)
    set_control_help($VELOCITY_presets,"VELOCITY CURVE PRESETS: Loads (or saves) a preset for the velocity response curve.")            

    add_menu_item($VELOCITY_presets,"Default",0) 
    add_menu_item($VELOCITY_presets,"Light",1) 
    add_menu_item($VELOCITY_presets,"Very Light",2) 
    add_menu_item($VELOCITY_presets,"Lightest",3) 
    add_menu_item($VELOCITY_presets,"Heavy",4) 
    add_menu_item($VELOCITY_presets,"Very Heavy",5) 
    add_menu_item($VELOCITY_presets,"Heaviest",6) 
    add_menu_item($VELOCITY_presets,"Floor 1",7) 
    add_menu_item($VELOCITY_presets,"Floor 2",8) 
    add_menu_item($VELOCITY_presets,"Ceiling 1",9) 
    add_menu_item($VELOCITY_presets,"Ceiling 2",10) 
    add_menu_item($VELOCITY_presets,"----------------",98)
    add_menu_item($VELOCITY_presets,"Save Preset",99)
    add_menu_item($VELOCITY_presets,"Load Preset",100)
    
    move_control_px($VELOCITY_presets,200,28)

    declare ui_menu $TUNING_presets
    set_control_par_str(get_ui_id($TUNING_presets),$CONTROL_PAR_PICTURE,"PEA-dropdown2") 
    set_control_par(get_ui_id($TUNING_presets),$CONTROL_PAR_FONT_TYPE,0)
    set_control_par(get_ui_id($TUNING_presets),$CONTROL_PAR_TEXTPOS_Y,1)
    set_control_help($TUNING_presets,"TUNING PRESETS: Loads (or saves) a preset for the instrument tuning.")                

    add_menu_item($TUNING_presets,"Default",0)
    add_menu_item($TUNING_presets,"Just Intonation",1)
    add_menu_item($TUNING_presets,"Pythagorean",2)
    add_menu_item($TUNING_presets,"Concert 432hz",3)
    add_menu_item($TUNING_presets,"Concert 442hz",4)
    add_menu_item($TUNING_presets,"Concert 448hz",5)
    add_menu_item($TUNING_presets,"----------------",98)
    add_menu_item($TUNING_presets,"Save Preset",99)
    add_menu_item($TUNING_presets,"Load Preset",100)
    
    move_control_px($TUNING_presets,200,206)
           
    declare %TUNING_keyroots[12]
    { 21,23,25,26,28,30,32,33,35,37,38,40,42,44,45,47,49,50,52,54,56,57,59,61,62,64,66,68,69,71,73,74,76,78,80,81,83,85,86,88,90,92,93,95,97,98,100,102,105,107 }
    %TUNING_keyroots[0] := 24
    %TUNING_keyroots[1] := 25
    %TUNING_keyroots[2] := 26
    %TUNING_keyroots[3] := 27
    %TUNING_keyroots[4] := 28
    %TUNING_keyroots[5] := 29
    %TUNING_keyroots[6] := 30
    %TUNING_keyroots[7] := 31
    %TUNING_keyroots[8] := 32
    %TUNING_keyroots[9] := 21
    %TUNING_keyroots[10] := 22
    %TUNING_keyroots[11] := 23
           
    declare !KEY_STRINGS[12]
    !KEY_STRINGS[0] := "C"
    !KEY_STRINGS[1] := "C#"
    !KEY_STRINGS[2] := "D"
    !KEY_STRINGS[3] := "D#"
    !KEY_STRINGS[4] := "E"
    !KEY_STRINGS[5] := "F"
    !KEY_STRINGS[6] := "F#"
    !KEY_STRINGS[7] := "G"
    !KEY_STRINGS[8] := "G#"
    !KEY_STRINGS[9] := "A"
    !KEY_STRINGS[10] := "A#"
    !KEY_STRINGS[11] := "B"

    move_control_px($TUNING_key,141,205)    
    
    declare ui_table %TUNING_table[12](1,1,-100)
    set_control_par(get_ui_id(%TUNING_table),$CONTROL_PAR_WIDTH,240)
    set_control_par(get_ui_id(%TUNING_table),$CONTROL_PAR_HEIGHT,65)
    set_control_help(%TUNING_table,"TUNING TABLE: Edits micro tuning applied to the entire instrument.")                    
    
    
    move_control_px(%TUNING_table,49,229)
    
    declare ui_switch $TUNING_revert
    set_control_par_str(get_ui_id($TUNING_revert),$CONTROL_PAR_PICTURE,"PEA-btn-revert") 
    set_control_par(get_ui_id($TUNING_revert),$CONTROL_PAR_WIDTH,14)               
    set_control_par(get_ui_id($TUNING_revert),$CONTROL_PAR_HEIGHT,14)   
    set_control_par_str(get_ui_id($TUNING_revert),$CONTROL_PAR_TEXT,"")    
    set_control_help($TUNING_revert,"REVERT TUNING: Clears the tuning table and returns the instrument to default tuning & temperment.")                    
    
    move_control_px($TUNING_revert,180,207)
            
    declare %ui_advanced[22]
    %ui_advanced[0] := get_ui_id(%table_velocity)
    %ui_advanced[1] := get_ui_id($velocityVolume)
    %ui_advanced[2] := get_ui_id($releaseVolume)
    %ui_advanced[3] := get_ui_id($pedalVolume)
    %ui_advanced[4] := get_ui_id($AMP_attack)
    %ui_advanced[5] := get_ui_id($AMP_decay)
    %ui_advanced[6] := get_ui_id($AMP_sustain)
    %ui_advanced[7] := get_ui_id($AMP_release)
    %ui_advanced[8] := get_ui_id($TUNING_key)
    %ui_advanced[9] := get_ui_id(%TUNING_table)
    %ui_advanced[10] := get_ui_id($TUNING_revert)
    %ui_advanced[11] := get_ui_id($VELOCITY_revert)
    %ui_advanced[12] := get_ui_id($VELOCITY_presets)
    %ui_advanced[13] := get_ui_id($TUNING_presets)
    %ui_advanced[14] := get_ui_id($EXTRA_RR)
    %ui_advanced[15] := get_ui_id($velocityBright)    
    %ui_advanced[16] := get_ui_id($velocity_expand)
    %ui_advanced[17] := get_ui_id($velocity_expand_label) 
    %ui_advanced[18] := get_ui_id($HighDampers) 
    %ui_advanced[19] := get_ui_id($PurgeMuted)
    %ui_advanced[20] := get_ui_id($Dynamic_Expand)
    %ui_advanced[21] := get_ui_id($Dynamic_Expand_Label)

    
    
    $i := 0
    while ($i < num_elements(%ui_advanced))
        set_control_par(%ui_advanced[$i],$CONTROL_PAR_HIDE,16)
        inc($i)
    end while
    
    set_control_par(get_ui_id(%table_dynamic),$CONTROL_PAR_HIDE,16)
    
    make_persistent($PurgeMuted)
    make_persistent($HighDampers)
    make_persistent($EXTRA_RR)
    make_persistent($velocityBright)
    make_persistent(%table_velocity)
    make_persistent($CLOSE_volume)
    make_persistent($TAIL_volume)
    make_persistent($STAGE_volume)
    make_persistent($HALL_volume)
    make_persistent($CLOSE_purge)
    make_persistent($TAIL_purge)
    make_persistent($STAGE_purge)
    make_persistent($HALL_purge)
    make_persistent($CLOSE_offset)
    make_persistent($STAGE_offset)
    make_persistent($TAIL_offset)
    make_persistent($HALL_offset)
    make_persistent($MASTER_volume)
    make_persistent($CLOSE_width)
    make_persistent($STAGE_width)
    make_persistent($TAIL_width)
    make_persistent($HALL_width)
    make_persistent($transpose)
    make_persistent($CLOSE_displaytoggle)
    make_persistent($TAIL_displaytoggle)
    make_persistent($STAGE_displaytoggle)
    make_persistent($HALL_displaytoggle)
    make_persistent($CLOSE_compressor)
    make_persistent($TAIL_compressor)
    make_persistent($STAGE_compressor)
    make_persistent($HALL_compressor)
    make_persistent($CLOSE_HF)
    make_persistent($CLOSE_HMF)
    make_persistent($CLOSE_LF)
    make_persistent($CLOSE_LMF)
    make_persistent($TAIL_HF)
    make_persistent($TAIL_HMF)
    make_persistent($TAIL_LF)
    make_persistent($TAIL_LMF)
    make_persistent($STAGE_HF)
    make_persistent($STAGE_LF)
    make_persistent($STAGE_HMF)
    make_persistent($STAGE_LMF)
    make_persistent($HALL_HF)
    make_persistent($HALL_HMF)
    make_persistent($HALL_LF)
    make_persistent($HALL_LMF)
    make_persistent($SETTINGS_toggle)
    make_persistent($velocityVolume)
    make_persistent($releaseVolume)
    make_persistent($pedalVolume)
    make_persistent($AMP_attack)
    make_persistent($AMP_sustain)
    make_persistent($AMP_decay)
    make_persistent($AMP_release)
    make_persistent($TUNING_key)
    make_persistent(%TUNING_table)
    
    read_persistent_var($CLOSE_displaytoggle)
    read_persistent_var($TAIL_displaytoggle)
    read_persistent_var($STAGE_displaytoggle)
    read_persistent_var($HALL_displaytoggle)
    
    read_persistent_var($SETTINGS_toggle)
    read_persistent_var($UI_COLOR)
                    
        if ($SETTINGS_toggle = 1)
        $i := 0
        while ($i < num_elements(%ui_main))
            set_control_par(%ui_main[$i],$CONTROL_PAR_HIDE,16)
            inc($i)
        end while
        
        set_control_par(get_ui_id($CLOSE_micstrip),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
        set_control_par(get_ui_id($STAGE_micstrip),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
        set_control_par(get_ui_id($HALL_micstrip),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
        set_control_par(get_ui_id($TAIL_micstrip),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
        set_control_par(get_ui_id(%TUNING_table),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
        set_control_par(get_ui_id(%table_velocity),$CONTROL_PAR_HIDE,$HIDE_PART_BG)        
        
        $i := 0
        while ($i < num_elements(%ui_advanced))
            set_control_par(%ui_advanced[$i],$CONTROL_PAR_HIDE,0)
            inc($i)
        end while        
        
        else            

            $i := 0
            while ($i < num_elements(%ui_main))
                set_control_par(%ui_main[$i],$CONTROL_PAR_HIDE,0)
                inc($i)
            end while
        
            $i := 0
            while ($i < num_elements(%ui_advanced))
                set_control_par(%ui_advanced[$i],$CONTROL_PAR_HIDE,16)
                inc($i)
            end while
            
                if ($CLOSE_displaytoggle = 1)
                    set_control_par(get_ui_id($CLOSE_fxstrip),$CONTROL_PAR_HIDE,16)
                    set_control_par(get_ui_id($CLOSE_compressor),$CONTROL_PAR_HIDE,16)  
                    set_control_par(get_ui_id($CLOSE_HF),$CONTROL_PAR_HIDE,16)
                    set_control_par(get_ui_id($CLOSE_HMF),$CONTROL_PAR_HIDE,16)
                    set_control_par(get_ui_id($CLOSE_LF),$CONTROL_PAR_HIDE,16)
                    set_control_par(get_ui_id($CLOSE_LMF),$CONTROL_PAR_HIDE,16)
                    set_control_par(get_ui_id($CLOSE_offset),$CONTROL_PAR_HIDE,0)
                    set_control_par(get_ui_id($CLOSE_width),$CONTROL_PAR_HIDE,0)
                    set_control_par(get_ui_id($CLOSE_volume),$CONTROL_PAR_HIDE,0)            
                    set_control_par(get_ui_id($CLOSE_micstrip),$CONTROL_PAR_HIDE,0)
                    else
                        set_control_par(get_ui_id($CLOSE_fxstrip),$CONTROL_PAR_HIDE,0)
                        set_control_par(get_ui_id($CLOSE_compressor),$CONTROL_PAR_HIDE,0) 
                        set_control_par(get_ui_id($CLOSE_HF),$CONTROL_PAR_HIDE,0)
                        set_control_par(get_ui_id($CLOSE_HMF),$CONTROL_PAR_HIDE,0)
                        set_control_par(get_ui_id($CLOSE_LF),$CONTROL_PAR_HIDE,0)
                        set_control_par(get_ui_id($CLOSE_LMF),$CONTROL_PAR_HIDE,0)
                        set_control_par(get_ui_id($CLOSE_offset),$CONTROL_PAR_HIDE,16)
                        set_control_par(get_ui_id($CLOSE_width),$CONTROL_PAR_HIDE,16)
                        set_control_par(get_ui_id($CLOSE_volume),$CONTROL_PAR_HIDE,16)            
                        set_control_par(get_ui_id($CLOSE_micstrip),$CONTROL_PAR_HIDE,16)
                end if

                if ($TAIL_displaytoggle = 1)
                    set_control_par(get_ui_id($TAIL_fxstrip),$CONTROL_PAR_HIDE,16)
                    set_control_par(get_ui_id($TAIL_compressor),$CONTROL_PAR_HIDE,16)  
                    set_control_par(get_ui_id($TAIL_HF),$CONTROL_PAR_HIDE,16)
                    set_control_par(get_ui_id($TAIL_HMF),$CONTROL_PAR_HIDE,16)
                    set_control_par(get_ui_id($TAIL_LF),$CONTROL_PAR_HIDE,16)
                    set_control_par(get_ui_id($TAIL_LMF),$CONTROL_PAR_HIDE,16)
                    set_control_par(get_ui_id($TAIL_offset),$CONTROL_PAR_HIDE,0)
                    set_control_par(get_ui_id($TAIL_width),$CONTROL_PAR_HIDE,0)
                    set_control_par(get_ui_id($TAIL_volume),$CONTROL_PAR_HIDE,0)            
                    set_control_par(get_ui_id($TAIL_micstrip),$CONTROL_PAR_HIDE,0)
                    else
                        set_control_par(get_ui_id($TAIL_fxstrip),$CONTROL_PAR_HIDE,0)
                        set_control_par(get_ui_id($TAIL_compressor),$CONTROL_PAR_HIDE,0) 
                        set_control_par(get_ui_id($TAIL_HF),$CONTROL_PAR_HIDE,0)
                        set_control_par(get_ui_id($TAIL_HMF),$CONTROL_PAR_HIDE,0)
                        set_control_par(get_ui_id($TAIL_LF),$CONTROL_PAR_HIDE,0)
                        set_control_par(get_ui_id($TAIL_LMF),$CONTROL_PAR_HIDE,0)
                        set_control_par(get_ui_id($TAIL_offset),$CONTROL_PAR_HIDE,16)
                        set_control_par(get_ui_id($TAIL_width),$CONTROL_PAR_HIDE,16)
                        set_control_par(get_ui_id($TAIL_volume),$CONTROL_PAR_HIDE,16)            
                        set_control_par(get_ui_id($TAIL_micstrip),$CONTROL_PAR_HIDE,16)
                end if
                
                if ($STAGE_displaytoggle = 1)
                    set_control_par(get_ui_id($STAGE_fxstrip),$CONTROL_PAR_HIDE,16)
                    set_control_par(get_ui_id($STAGE_compressor),$CONTROL_PAR_HIDE,16)  
                    set_control_par(get_ui_id($STAGE_HF),$CONTROL_PAR_HIDE,16)
                    set_control_par(get_ui_id($STAGE_HMF),$CONTROL_PAR_HIDE,16)
                    set_control_par(get_ui_id($STAGE_LF),$CONTROL_PAR_HIDE,16)
                    set_control_par(get_ui_id($STAGE_LMF),$CONTROL_PAR_HIDE,16)
                    set_control_par(get_ui_id($STAGE_offset),$CONTROL_PAR_HIDE,0)
                    set_control_par(get_ui_id($STAGE_width),$CONTROL_PAR_HIDE,0)
                    set_control_par(get_ui_id($STAGE_volume),$CONTROL_PAR_HIDE,0)            
                    set_control_par(get_ui_id($STAGE_micstrip),$CONTROL_PAR_HIDE,0)
                    else
                        set_control_par(get_ui_id($STAGE_fxstrip),$CONTROL_PAR_HIDE,0)
                        set_control_par(get_ui_id($STAGE_compressor),$CONTROL_PAR_HIDE,0) 
                        set_control_par(get_ui_id($STAGE_HF),$CONTROL_PAR_HIDE,0)
                        set_control_par(get_ui_id($STAGE_HMF),$CONTROL_PAR_HIDE,0)
                        set_control_par(get_ui_id($STAGE_LF),$CONTROL_PAR_HIDE,0)
                        set_control_par(get_ui_id($STAGE_LMF),$CONTROL_PAR_HIDE,0)
                        set_control_par(get_ui_id($STAGE_offset),$CONTROL_PAR_HIDE,16)
                        set_control_par(get_ui_id($STAGE_width),$CONTROL_PAR_HIDE,16)
                        set_control_par(get_ui_id($STAGE_volume),$CONTROL_PAR_HIDE,16)            
                        set_control_par(get_ui_id($STAGE_micstrip),$CONTROL_PAR_HIDE,16)
                end if
                
                if ($HALL_displaytoggle = 1)
                    set_control_par(get_ui_id($HALL_fxstrip),$CONTROL_PAR_HIDE,16)
                    set_control_par(get_ui_id($HALL_compressor),$CONTROL_PAR_HIDE,16)  
                    set_control_par(get_ui_id($HALL_HF),$CONTROL_PAR_HIDE,16)
                    set_control_par(get_ui_id($HALL_HMF),$CONTROL_PAR_HIDE,16)
                    set_control_par(get_ui_id($HALL_LF),$CONTROL_PAR_HIDE,16)
                    set_control_par(get_ui_id($HALL_LMF),$CONTROL_PAR_HIDE,16)
                    set_control_par(get_ui_id($HALL_offset),$CONTROL_PAR_HIDE,0)
                    set_control_par(get_ui_id($HALL_width),$CONTROL_PAR_HIDE,0)
                    set_control_par(get_ui_id($HALL_volume),$CONTROL_PAR_HIDE,0)            
                    set_control_par(get_ui_id($HALL_micstrip),$CONTROL_PAR_HIDE,0)
                    else
                        set_control_par(get_ui_id($HALL_fxstrip),$CONTROL_PAR_HIDE,0)
                        set_control_par(get_ui_id($HALL_compressor),$CONTROL_PAR_HIDE,0) 
                        set_control_par(get_ui_id($HALL_HF),$CONTROL_PAR_HIDE,0)
                        set_control_par(get_ui_id($HALL_HMF),$CONTROL_PAR_HIDE,0)
                        set_control_par(get_ui_id($HALL_LF),$CONTROL_PAR_HIDE,0)
                        set_control_par(get_ui_id($HALL_LMF),$CONTROL_PAR_HIDE,0)
                        set_control_par(get_ui_id($HALL_offset),$CONTROL_PAR_HIDE,16)
                        set_control_par(get_ui_id($HALL_width),$CONTROL_PAR_HIDE,16)
                        set_control_par(get_ui_id($HALL_volume),$CONTROL_PAR_HIDE,16)            
                        set_control_par(get_ui_id($HALL_micstrip),$CONTROL_PAR_HIDE,16)
                end if  
        end if
    
    make_perfview
    
    declare ui_label $GLOBAL_FX_overlay(1,1)        
    set_control_par_str(get_ui_id($GLOBAL_FX_overlay),$CONTROL_PAR_PICTURE,"PEA-bg-fx")
    set_control_par_str(get_ui_id($GLOBAL_FX_overlay),$CONTROL_PAR_TEXT,"")
    
    move_control_px($GLOBAL_FX_OVERLAY,50,3)    
    
    declare ui_switch $GLOBAL_FX_power
    set_control_par_str(get_ui_id($GLOBAL_FX_power),$CONTROL_PAR_PICTURE,"SHD-fx-X")
    set_control_par(get_ui_id($GLOBAL_FX_power),$CONTROL_PAR_WIDTH,22)               
    set_control_par(get_ui_id($GLOBAL_FX_power),$CONTROL_PAR_HEIGHT,22) 
    set_control_par_str(get_ui_id($GLOBAL_FX_power),$CONTROL_PAR_TEXT,"")    
    set_control_help($GLOBAL_FX_power,"CLOSE FX WINDOW: Closes the instrument FX rack.")                    
                

    move_control_px($GLOBAL_FX_power,68,7)            
    
    declare ui_switch $FX_compressor
    set_control_par_str(get_ui_id($FX_compressor),$CONTROL_PAR_PICTURE,"PEA-btn-power")
    set_control_par(get_ui_id($FX_compressor),$CONTROL_PAR_WIDTH,27)               
    set_control_par(get_ui_id($FX_compressor),$CONTROL_PAR_HEIGHT,27) 
    set_control_par_str(get_ui_id($FX_compressor),$CONTROL_PAR_TEXT,"")          
    set_control_help($FX_compressor,"COMPRESSOR: Enables a lovely analog-modeled compressor for the instrument.") 
    set_control_par_str(get_ui_id($FX_compressor),$CONTROL_PAR_AUTOMATION_NAME,"Global Comp")
    
    move_control_px($FX_compressor,125,68)

    declare ui_switch $FX_saturator
    set_control_par_str(get_ui_id($FX_saturator),$CONTROL_PAR_PICTURE,"PEA-btn-power")
    set_control_par(get_ui_id($FX_saturator),$CONTROL_PAR_WIDTH,27)               
    set_control_par(get_ui_id($FX_saturator),$CONTROL_PAR_HEIGHT,27) 
    set_control_par_str(get_ui_id($FX_saturator),$CONTROL_PAR_TEXT,"") 
    set_control_help($FX_saturator,"TAPE SATURATOR: Enables a tape saturation & warming effect for the instrument.")           
    set_control_par_str(get_ui_id($FX_saturator),$CONTROL_PAR_AUTOMATION_NAME,"Global TapeSat")
    
    move_control_px($FX_saturator,125,139)
    
    declare ui_switch $FX_transientdesigner
    set_control_par_str(get_ui_id($FX_transientdesigner),$CONTROL_PAR_PICTURE,"PEA-btn-power")
    set_control_par(get_ui_id($FX_transientdesigner),$CONTROL_PAR_WIDTH,27)               
    set_control_par(get_ui_id($FX_transientdesigner),$CONTROL_PAR_HEIGHT,27) 
    set_control_par_str(get_ui_id($FX_transientdesigner),$CONTROL_PAR_TEXT,"")    
    set_control_help($FX_transientdesigner,"TRANSIENT DESIGNER: Enables a transient designer for the instrument.")           
    set_control_par_str(get_ui_id($FX_transientdesigner),$CONTROL_PAR_AUTOMATION_NAME,"Global Trans")            
    
    move_control_px($FX_transientdesigner,125,208)  
    
    declare ui_switch $FX_eq
    set_control_par_str(get_ui_id($FX_eq),$CONTROL_PAR_PICTURE,"PEA-btn-power")
    set_control_par(get_ui_id($FX_eq),$CONTROL_PAR_WIDTH,27)               
    set_control_par(get_ui_id($FX_eq),$CONTROL_PAR_HEIGHT,27) 
    set_control_par_str(get_ui_id($FX_eq),$CONTROL_PAR_TEXT,"")     
    set_control_help($FX_eq,"4-BAND EQUALIZER: Enables a precise 4-band parametric EQ for the instrument.")                      
    set_control_par_str(get_ui_id($FX_eq),$CONTROL_PAR_AUTOMATION_NAME,"Global EQ")            
    
    move_control_px($FX_eq,125,278)     
    
    declare ui_switch $FX_reverb
    set_control_par_str(get_ui_id($FX_reverb),$CONTROL_PAR_PICTURE,"PEA-btn-power")
    set_control_par(get_ui_id($FX_reverb),$CONTROL_PAR_WIDTH,27)               
    set_control_par(get_ui_id($FX_reverb),$CONTROL_PAR_HEIGHT,27) 
    set_control_par_str(get_ui_id($FX_reverb),$CONTROL_PAR_TEXT,"")            
    set_control_help($FX_reverb,"CONVOLUTION REVERB: Enables a high-quality convolution reverb send for the instrument.")                      
    set_control_par_str(get_ui_id($FX_reverb),$CONTROL_PAR_AUTOMATION_NAME,"Global Reverb")            
    
    move_control_px($FX_reverb,125,348)         
    
    declare ui_slider $FX_compressor_threshold(0,1000000)
    set_control_par(get_ui_id($FX_compressor_threshold),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_compressor_threshold),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_compressor_threshold),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_compressor_threshold),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_compressor_threshold),$CONTROL_PAR_DEFAULT_VALUE,500000)     
    move_control_px($FX_compressor_threshold,195,55)
    set_control_help($FX_compressor_threshold,"COMPRESSOR THRESHOLD: Sets the volume at which the compressor will trigger and begin attenuating input.")
    set_control_par_str(get_ui_id($FX_compressor_threshold),$CONTROL_PAR_AUTOMATION_NAME,"Comp Thresh")            

    declare ui_slider $FX_compressor_attack(0,1000000)
    set_control_par(get_ui_id($FX_compressor_attack),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_compressor_attack),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_compressor_attack),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_compressor_attack),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_compressor_attack),$CONTROL_PAR_DEFAULT_VALUE,500000)     
    move_control_px($FX_compressor_attack,255,55)
    set_control_help($FX_compressor_attack,"COMPRESSOR ATTACK: Sets the speed at which the compressor clamps down on the input, once triggered.")
set_control_par_str(get_ui_id($FX_compressor_attack),$CONTROL_PAR_AUTOMATION_NAME,"Comp Attack")            

    declare ui_slider $FX_compressor_makeup(0,1000000)
    set_control_par(get_ui_id($FX_compressor_makeup),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_compressor_makeup),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_compressor_makeup),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_compressor_makeup),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_compressor_makeup),$CONTROL_PAR_DEFAULT_VALUE,500000)     
    move_control_px($FX_compressor_makeup,315,55)
    set_control_help($FX_compressor_makeup,"COMPRESSOR MAKEUP GAIN: Sets the post-compression makeup (volume) gain.")
set_control_par_str(get_ui_id($FX_compressor_makeup),$CONTROL_PAR_AUTOMATION_NAME,"Comp Makeup")            
    
    declare ui_slider $FX_compressor_ratio(0,1000000)
    set_control_par(get_ui_id($FX_compressor_ratio),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_compressor_ratio),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_compressor_ratio),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_compressor_ratio),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_compressor_ratio),$CONTROL_PAR_DEFAULT_VALUE,500000)     
    move_control_px($FX_compressor_ratio,375,55)
    set_control_help($FX_compressor_ratio,"COMPRESSOR RATIO: Sets the compression ratio for the compressor. Higher ratio = stronger compression.")
set_control_par_str(get_ui_id($FX_compressor_ratio),$CONTROL_PAR_AUTOMATION_NAME,"Comp Ratio")            
    
    declare ui_slider $FX_compressor_mix(0,1000000)
    set_control_par(get_ui_id($FX_compressor_mix),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_compressor_mix),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_compressor_mix),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_compressor_mix),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_compressor_mix),$CONTROL_PAR_DEFAULT_VALUE,1000000)     
    move_control_px($FX_compressor_mix,435,55)                
    set_control_help($FX_compressor_mix,"COMPRESSOR MIX: Sets the WET amount of compression. 100% = entirely processed signal, 0% = dry signal.")
set_control_par_str(get_ui_id($FX_compressor_mix),$CONTROL_PAR_AUTOMATION_NAME,"Comp Mix")            

    declare ui_slider $FX_saturator_gain(0,1000000)
    set_control_par(get_ui_id($FX_saturator_gain),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_saturator_gain),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_saturator_gain),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_saturator_gain),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_saturator_gain),$CONTROL_PAR_DEFAULT_VALUE,500000)     
    move_control_px($FX_saturator_gain,255,126)                
    set_control_help($FX_saturator_gain,"SATURATOR GAIN: Sets the saturator's input gain, which in turn controls the amount of tape-modeled saturation.")
set_control_par_str(get_ui_id($FX_saturator_gain),$CONTROL_PAR_AUTOMATION_NAME,"Tape Gain")            

    declare ui_slider $FX_saturator_warmth(0,1000000)
    set_control_par(get_ui_id($FX_saturator_warmth),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_saturator_warmth),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_saturator_warmth),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_saturator_warmth),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_saturator_warmth),$CONTROL_PAR_DEFAULT_VALUE,500000)     
    move_control_px($FX_saturator_warmth,315,126)                
    set_control_help($FX_saturator_warmth,"SATURATOR WARMTH: Sets the amount of 'warm' processing through the tape saturator.")
set_control_par_str(get_ui_id($FX_saturator_warmth),$CONTROL_PAR_AUTOMATION_NAME,"Tape Warmth")            
        
    declare ui_slider $FX_saturator_hf(0,1000000)
    set_control_par(get_ui_id($FX_saturator_hf),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_saturator_hf),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_saturator_hf),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_saturator_hf),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_saturator_hf),$CONTROL_PAR_DEFAULT_VALUE,1000000)     
    move_control_px($FX_saturator_hf,375,126)   
    set_control_help($FX_saturator_hf,"SATURATOR HIGH ROLLOFF: Sets the cutoff of the tape saturator's gentle lowpass filter.")
set_control_par_str(get_ui_id($FX_saturator_hf),$CONTROL_PAR_AUTOMATION_NAME,"Tape HF Rolloff")            
    
    declare ui_slider $FX_td_input(0,1000000)
    set_control_par(get_ui_id($FX_td_input),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_td_input),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_td_input),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_td_input),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_td_input),$CONTROL_PAR_DEFAULT_VALUE,500000)     
    move_control_px($FX_td_input,315,196)          
    set_control_help($FX_td_input,"TRANSIENT DESIGNER INPUT: Sets the input drive into the transient designer.")
set_control_par_str(get_ui_id($FX_td_input),$CONTROL_PAR_AUTOMATION_NAME,"Trans Input")            
           
    declare ui_slider $FX_td_attack(0,1000000)
    set_control_par(get_ui_id($FX_td_attack),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_td_attack),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_td_attack),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_td_attack),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_td_attack),$CONTROL_PAR_DEFAULT_VALUE,500000)     
    move_control_px($FX_td_attack,375,196)           
    set_control_help($FX_td_attack,"TRANSIENT DESIGNER ATTACK: Sets the amount of gain (or attenuation) for attack transients. Higher attack values will emphasize transients more.") 
set_control_par_str(get_ui_id($FX_td_attack),$CONTROL_PAR_AUTOMATION_NAME,"Trans Attack")            
           
    declare ui_slider $FX_td_sustain(0,1000000)
    set_control_par(get_ui_id($FX_td_sustain),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_td_sustain),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_td_sustain),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_td_sustain),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_td_sustain),$CONTROL_PAR_DEFAULT_VALUE,500000)     
    move_control_px($FX_td_sustain,435,196)
    set_control_help($FX_td_sustain,"TRANSIENT DESIGNER SUSTAIN: Sets the amount of gain (or attenuation) for sustained signals. Higher sustain values will emphasize the sustain of each note.") 
set_control_par_str(get_ui_id($FX_td_sustain),$CONTROL_PAR_AUTOMATION_NAME,"Trans Sustain")            
    
    declare ui_slider $FX_eq_lf_gain(0,1000000)
    set_control_par(get_ui_id($FX_eq_lf_gain),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_eq_lf_gain),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_eq_lf_gain),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_eq_lf_gain),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_eq_lf_gain),$CONTROL_PAR_DEFAULT_VALUE,500000)     
    move_control_px($FX_eq_lf_gain,187,261)  
set_control_par_str(get_ui_id($FX_eq_lf_gain),$CONTROL_PAR_AUTOMATION_NAME,"EQ LF Gain")            
        
    declare ui_slider $FX_eq_lf_freq(0,1000000)
    set_control_par(get_ui_id($FX_eq_lf_freq),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_eq_lf_freq),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_eq_lf_freq),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_eq_lf_freq),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_eq_lf_freq),$CONTROL_PAR_DEFAULT_VALUE,500000)     
    move_control_px($FX_eq_lf_freq,223,258)    
set_control_par_str(get_ui_id($FX_eq_lf_freq),$CONTROL_PAR_AUTOMATION_NAME,"EQ LF Freq")            
    
    declare ui_slider $FX_eq_lmf_gain(0,1000000)
    set_control_par(get_ui_id($FX_eq_lmf_gain),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_eq_lmf_gain),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_eq_lmf_gain),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_eq_lmf_gain),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_eq_lmf_gain),$CONTROL_PAR_DEFAULT_VALUE,500000)     
    move_control_px($FX_eq_lmf_gain,290,261)  
set_control_par_str(get_ui_id($FX_eq_lmf_gain),$CONTROL_PAR_AUTOMATION_NAME,"EQ LMF Gain")
    
    declare ui_slider $FX_eq_lmf_freq(0,1000000)
    set_control_par(get_ui_id($FX_eq_lmf_freq),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_eq_lmf_freq),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_eq_lmf_freq),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_eq_lmf_freq),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_eq_lmf_freq),$CONTROL_PAR_DEFAULT_VALUE,500000)     
    move_control_px($FX_eq_lmf_freq,326,258)                           
set_control_par_str(get_ui_id($FX_eq_lmf_freq),$CONTROL_PAR_AUTOMATION_NAME,"EQ LMF Freq")
                             
    declare ui_slider $FX_eq_lmf_q(0,1000000)
    set_control_par(get_ui_id($FX_eq_lmf_q),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_eq_lmf_q),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_eq_lmf_q),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_eq_lmf_q),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_eq_lmf_q),$CONTROL_PAR_DEFAULT_VALUE,500000)     
    move_control_px($FX_eq_lmf_q,326,279) 
set_control_par_str(get_ui_id($FX_eq_lmf_q),$CONTROL_PAR_AUTOMATION_NAME,"EQ LMF Q")
    
    declare ui_slider $FX_eq_hmf_gain(0,1000000)
    set_control_par(get_ui_id($FX_eq_hmf_gain),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_eq_hmf_gain),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_eq_hmf_gain),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_eq_hmf_gain),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_eq_hmf_gain),$CONTROL_PAR_DEFAULT_VALUE,500000)     
    move_control_px($FX_eq_hmf_gain,393,261)  
set_control_par_str(get_ui_id($FX_eq_hmf_gain),$CONTROL_PAR_AUTOMATION_NAME,"EQ HMF Gain")
    
    declare ui_slider $FX_eq_hmf_freq(0,1000000)
    set_control_par(get_ui_id($FX_eq_hmf_freq),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_eq_hmf_freq),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_eq_hmf_freq),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_eq_hmf_freq),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_eq_hmf_freq),$CONTROL_PAR_DEFAULT_VALUE,500000)     
    move_control_px($FX_eq_hmf_freq,429,258)                           
set_control_par_str(get_ui_id($FX_eq_hmf_freq),$CONTROL_PAR_AUTOMATION_NAME,"EQ HMF Freq")
                             
    declare ui_slider $FX_eq_hmf_q(0,1000000)
    set_control_par(get_ui_id($FX_eq_hmf_q),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_eq_hmf_q),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_eq_hmf_q),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_eq_hmf_q),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_eq_hmf_q),$CONTROL_PAR_DEFAULT_VALUE,500000)     
    move_control_px($FX_eq_hmf_q,429,279)     
set_control_par_str(get_ui_id($FX_eq_hmf_q),$CONTROL_PAR_AUTOMATION_NAME,"EQ HMF Q")    
    
    declare ui_slider $FX_eq_hf_gain(0,1000000)
    set_control_par(get_ui_id($FX_eq_hf_gain),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_eq_hf_gain),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_eq_hf_gain),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_eq_hf_gain),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_eq_hf_gain),$CONTROL_PAR_DEFAULT_VALUE,500000)     
    move_control_px($FX_eq_hf_gain,495,261)  
set_control_par_str(get_ui_id($FX_eq_hf_gain),$CONTROL_PAR_AUTOMATION_NAME,"EQ HF Gain")
    
    declare ui_slider $FX_eq_hf_freq(0,1000000)
    set_control_par(get_ui_id($FX_eq_hf_freq),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_eq_hf_freq),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_eq_hf_freq),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_eq_hf_freq),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_eq_hf_freq),$CONTROL_PAR_DEFAULT_VALUE,500000)     
    move_control_px($FX_eq_hf_freq,531,258)  
set_control_par_str(get_ui_id($FX_eq_hf_freq),$CONTROL_PAR_AUTOMATION_NAME,"EQ HF Freq")
    
    set_control_help($FX_eq_hf_gain,"EQ HIGH GAIN: Sets the amount of high frequency gain or attentuation for the global EQ.")        
    set_control_help($FX_eq_hmf_gain,"EQ HIGH-MID GAIN: Sets the amount of high-mid frequency gain or attentuation for the global EQ.")        
    set_control_help($FX_eq_lf_gain,"EQ LOW GAIN: Sets the amount of low frequency gain or attentuation for the global EQ.")        
    set_control_help($FX_eq_lmf_gain,"EQ LOW-MID GAIN: Sets the amount of low-mid frequency gain or attentuation for the global EQ.")            
    set_control_help($FX_eq_hmf_freq,"EQ HIGH-MID FREQ: Sets the frequency of the high-mid band in the global EQ.")        
    set_control_help($FX_eq_lmf_freq,"EQ LOW-MID FREQ: Sets the frequency of the low-mid band in the global EQ.")                
    set_control_help($FX_eq_hmf_q,"EQ HIGH-MID Q: Sets the band width (Q) of the high-mid band in the global EQ.")        
    set_control_help($FX_eq_lmf_q,"EQ LOW-MID Q: Sets the band width (Q) of the low-mid band in the global EQ.")                    
      
    
    declare ui_slider $FX_reverb_hpf(0,1000000)  
    set_control_par(get_ui_id($FX_reverb_hpf),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_reverb_hpf),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_reverb_hpf),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_reverb_hpf),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_reverb_hpf),$CONTROL_PAR_DEFAULT_VALUE,200000)     
    set_control_help($FX_reverb_hpf,"REVERB HIGHPASS: Sets the highpass filter cutoff frequency of the convolution reverb.")    
    move_control_px($FX_reverb_hpf,315,336)  
    set_control_par_str(get_ui_id($FX_reverb_hpf),$CONTROL_PAR_AUTOMATION_NAME,"Reverb HPF")
    
    declare ui_slider $FX_reverb_lpf(0,1000000)  
    set_control_par(get_ui_id($FX_reverb_lpf),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_reverb_lpf),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_reverb_lpf),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_reverb_lpf),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_reverb_lpf),$CONTROL_PAR_DEFAULT_VALUE,900000)  
    set_control_help($FX_reverb_lpf,"REVERB LOWPASS: Sets the lowpass filter cutoff frequency of the convolution reverb.")       
    move_control_px($FX_reverb_lpf,375,336)    
    set_control_par_str(get_ui_id($FX_reverb_lpf),$CONTROL_PAR_AUTOMATION_NAME,"Reverb LPF")
    
    declare ui_slider $FX_reverb_size(0,1000000)  
    set_control_par(get_ui_id($FX_reverb_size),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_reverb_size),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_reverb_size),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_reverb_size),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_reverb_size),$CONTROL_PAR_DEFAULT_VALUE,500000)  
    set_control_help($FX_reverb_size,"REVERB SIZE: Sets the impulse response length multiplier of the convolution reverb.")       
    move_control_px($FX_reverb_size,435,336) 
    set_control_par_str(get_ui_id($FX_reverb_size),$CONTROL_PAR_AUTOMATION_NAME,"Reverb Size")
    
    declare ui_slider $FX_reverb_wet(0,500000)  
    set_control_par(get_ui_id($FX_reverb_wet),$CONTROL_PAR_MOUSE_BEHAVIOUR,-300)
    set_control_par_str(get_ui_id($FX_reverb_wet),$CONTROL_PAR_PICTURE,"PEA-knob4-128")
    set_control_par(get_ui_id($FX_reverb_wet),$CONTROL_PAR_WIDTH,20)               
    set_control_par(get_ui_id($FX_reverb_wet),$CONTROL_PAR_HEIGHT,20)
    set_control_par(get_ui_id($FX_reverb_wet),$CONTROL_PAR_DEFAULT_VALUE,250000)     
    set_control_help($FX_reverb_wet,"REVERB WET AMOUNT: Sets the send return amount for the global reverb effect.")    
    move_control_px($FX_reverb_wet,495,336)  
    set_control_par_str(get_ui_id($FX_reverb_wet),$CONTROL_PAR_AUTOMATION_NAME,"Reverb Wet")
    
    declare ui_menu $FX_reverb_ir
    set_control_help($FX_reverb_ir,"REVERB IMPULSE SELECTOR: Loads from a variety of custom-made impulse responses.")    
    set_control_par_str(get_ui_id($FX_reverb_ir),$CONTROL_PAR_PICTURE,"PEA-dropdown1")    
    set_control_par(get_ui_id($FX_reverb_ir),$CONTROL_PAR_FONT_TYPE,0)
    set_control_par(get_ui_id($FX_reverb_ir),$CONTROL_PAR_TEXTPOS_Y,1)
    add_menu_item($FX_reverb_ir,"Chamber Concert 1",0)
    add_menu_item($FX_reverb_ir,"Chamber Concert 2",1)
    add_menu_item($FX_reverb_ir,"Chamber Concert 3",2)
    add_menu_item($FX_reverb_ir,"Classical Hall",3)
    add_menu_item($FX_reverb_ir,"Concert Hall 1",4)
    add_menu_item($FX_reverb_ir,"Concert Hall 2",5)
    add_menu_item($FX_reverb_ir,"Concert Hall 3",6)
    add_menu_item($FX_reverb_ir,"Cosmic 1",7)
    add_menu_item($FX_reverb_ir,"Cosmic 2",8)
    add_menu_item($FX_reverb_ir,"Cosmic 3",9)
    add_menu_item($FX_reverb_ir,"Cosmic 4",10)
    add_menu_item($FX_reverb_ir,"Dark Hall",11)
    add_menu_item($FX_reverb_ir,"Digi Hall 1",12)
    add_menu_item($FX_reverb_ir,"Digi Hall 2",13)
    add_menu_item($FX_reverb_ir,"Digi Hall 3",14)
    add_menu_item($FX_reverb_ir,"Dreamy Hall",15)
    add_menu_item($FX_reverb_ir,"Iconic Digital",16)
    add_menu_item($FX_reverb_ir,"Light Hall",17)
    add_menu_item($FX_reverb_ir,"Live Hall",18)
    add_menu_item($FX_reverb_ir,"Live Room",19)
    add_menu_item($FX_reverb_ir,"Mega Dreamy",20)
    add_menu_item($FX_reverb_ir,"Natural Room",21)
    add_menu_item($FX_reverb_ir,"Neutral Hall",22)
    add_menu_item($FX_reverb_ir,"Piano Hall",23)
    add_menu_item($FX_reverb_ir,"Piano Room",24)
    add_menu_item($FX_reverb_ir,"Plate Verb 1",25)
    add_menu_item($FX_reverb_ir,"Plate Verb 2",26)
    add_menu_item($FX_reverb_ir,"Tight Room",27)
    add_menu_item($FX_reverb_ir,"Vintage Bright",28)
    add_menu_item($FX_reverb_ir,"Vintage Verb 1",29)
    add_menu_item($FX_reverb_ir,"Vintage Verb 2",30)
    move_control_px($FX_reverb_ir,190,335)  
        
    declare %ui_globalfx[33]
    %ui_globalfx[0] := get_ui_id($GLOBAL_FX_overlay)
    %ui_globalfx[1] := get_ui_id($GLOBAL_FX_power)
    %ui_globalfx[2] := get_ui_id($FX_compressor)
    %ui_globalfx[3] := get_ui_id($FX_saturator)
    %ui_globalfx[4] := get_ui_id($FX_transientdesigner)
    %ui_globalfx[5] := get_ui_id($FX_eq)
    %ui_globalfx[6] := get_ui_id($FX_reverb)
    %ui_globalfx[7] := get_ui_id($FX_compressor_threshold)
    %ui_globalfx[8] := get_ui_id($FX_compressor_makeup)
    %ui_globalfx[9] := get_ui_id($FX_compressor_attack)
    %ui_globalfx[10] := get_ui_id($FX_compressor_ratio)
    %ui_globalfx[11] := get_ui_id($FX_compressor_mix)
    %ui_globalfx[12] := get_ui_id($FX_reverb_ir)
    %ui_globalfx[13] := get_ui_id($FX_reverb_wet)
    %ui_globalfx[14] := get_ui_id($FX_reverb_hpf)
    %ui_globalfx[15] := get_ui_id($FX_reverb_lpf)
    %ui_globalfx[16] := get_ui_id($FX_eq_lf_gain)
    %ui_globalfx[17] := get_ui_id($FX_eq_lf_freq)
    %ui_globalfx[18] := get_ui_id($FX_eq_lmf_freq)
    %ui_globalfx[19] := get_ui_id($FX_eq_lmf_q)
    %ui_globalfx[20] := get_ui_id($FX_eq_lmf_gain)
    %ui_globalfx[21] := get_ui_id($FX_eq_hmf_freq)
    %ui_globalfx[22] := get_ui_id($FX_eq_hmf_q)
    %ui_globalfx[23] := get_ui_id($FX_eq_hmf_gain)    
    %ui_globalfx[24] := get_ui_id($FX_eq_hf_freq)
    %ui_globalfx[25] := get_ui_id($FX_eq_hf_gain)    
    %ui_globalfx[26] := get_ui_id($FX_td_attack)    
    %ui_globalfx[27] := get_ui_id($FX_td_sustain) 
    %ui_globalfx[28] := get_ui_id($FX_td_input)
    %ui_globalfx[29] := get_ui_id($FX_saturator_hf)
    %ui_globalfx[30] := get_ui_id($FX_saturator_warmth)
    %ui_globalfx[31] := get_ui_id($FX_saturator_gain)
    %ui_globalfx[32] := get_ui_id($FX_reverb_size)
        
    $i := 0
    while ($i < num_elements(%ui_globalfx))
        set_control_par(%ui_globalfx[$i],$CONTROL_PAR_HIDE,16)
        inc($i)
    end while
    
    make_persistent($FX_compressor)
    make_persistent($FX_saturator)
    make_persistent($FX_transientdesigner)
    make_persistent($FX_eq)
    make_persistent($FX_reverb)
    make_persistent($FX_compressor_threshold)
    make_persistent($FX_compressor_makeup)
    make_persistent($FX_compressor_attack)
    make_persistent($FX_compressor_ratio)
    make_persistent($FX_compressor_mix)
    make_persistent($FX_reverb_ir)
    make_persistent($FX_reverb_wet)
    make_persistent($FX_reverb_hpf)
    make_persistent($FX_reverb_lpf)
    make_persistent($FX_eq_lf_gain)
    make_persistent($FX_eq_lf_freq)
    make_persistent($FX_eq_lmf_freq)
    make_persistent($FX_eq_lmf_q)
    make_persistent($FX_eq_lmf_gain)
    make_persistent($FX_eq_hmf_freq)
    make_persistent($FX_eq_hmf_q)
    make_persistent($FX_eq_hmf_gain)    
    make_persistent($FX_eq_hf_freq)
    make_persistent($FX_eq_hf_gain)    
    make_persistent($FX_td_attack)    
    make_persistent($FX_td_sustain) 
    make_persistent($FX_td_input)
    make_persistent($FX_saturator_hf)
    make_persistent($FX_saturator_warmth)
    make_persistent($FX_saturator_gain)
    make_persistent($FX_reverb_size)    
    
    declare %TempArray[100]
    
    read_persistent_var($GLOBAL_FX)
    
    if ($UI_COLOR = 1)
        { Gold }
        if ($SETTINGS_toggle = 1) 
            
            set_skin_offset(2000)
            else
                
                set_skin_offset(1500)
        end if
        
        else
            { Blue }
            if ($SETTINGS_TOGGLE = 1)
                
                set_skin_offset(500)
                else
                    
                    set_skin_offset(0)
            end if                        
    end if
    if ($GLOBAL_FX = 1)
        set_skin_offset(2500)
    end if
        
    declare %Velocity_Light[65] := (2,4,6,8,11,13,15,18,21,23,24,26,28,29,32,35,38,41,44,45,47,50,52,54,56,58,60,63,64,67,68,70,73,74,77,79,82,83,86,89,91,95,97,100,102,104,106,107,108,109,110,111,112,113,114,116,117,118,119,120,121,123,124,126,127)
    declare %Velocity_VeryLight[65] := (3,5,7,9,13,18,23,26,30,34,36,40,43,45,47,49,51,53,55,57,59,60,61,63,65,67,69,70,71,73,74,76,77,79,80,82,85,88,91,93,95,97,100,102,103,104,106,107,108,109,110,111,112,114,115,116,117,118,119,121,123,124,125,126,127)
    declare %Velocity_Lightest[65] := (10,14,20,24,30,35,39,43,46,49,52,53,55,58,59,60,62,64,67,69,71,74,76,79,81,82,82,84,86,88,89,91,94,95,97,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,125,126,126,127,127)
    declare %Velocity_Ceiling1[65] := (3,5,6,8,9,11,13,14,16,17,19,21,22,24,25,27,29,30,32,33,35,37,38,40,41,43,45,46,48,49,51,53,54,56,57,59,61,62,64,65,67,69,70,72,73,75,77,78,80,81,83,85,86,88,89,91,93,94,96,97,99,101,102,104,105)
    declare %Velocity_VeryHeavy[65] := (1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,38,39,40,42,44,46,48,49,51,53,55,57,58,60,62,67,69,72,74,77,82,86,89,97,103,111,119,123,127)
    declare %Velocity_Heavy[65] := (1,2,3,5,6,7,8,9,11,12,13,14,15,16,17,19,20,21,22,23,24,26,28,29,31,33,34,35,36,37,38,39,40,41,42,44,46,48,51,55,60,63,65,67,70,72,74,75,78,80,83,85,87,89,93,97,100,103,107,110,114,117,120,124,127)
    declare %Velocity_Heaviest[65] := (1,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,36,37,38,39,41,43,45,46,47,48,49,50,52,54,57,58,60,62,65,69,74,77,82,87,93,97,103,109,117,127)
    declare %Velocity_Floor2[65] := (54,55,56,58,59,60,61,62,63,64,65,67,68,69,70,71,72,73,75,76,77,78,79,80,81,82,84,85,86,87,88,89,90,91,93,94,95,96,97,98,99,101,102,103,104,105,106,107,108,110,111,112,113,114,115,116,117,119,120,121,122,123,124,125,127)
    declare %Velocity_Floor1[65] := (27,28,30,32,33,35,36,38,39,41,42,44,46,47,49,50,52,53,55,56,58,60,61,63,64,66,67,69,70,72,74,75,77,78,80,81,83,84,86,88,89,91,92,94,95,97,98,100,102,103,105,106,108,109,111,112,114,116,117,119,120,122,123,125,127)
    declare %Velocity_Ceiling2[65] := (2,3,5,6,7,8,9,11,12,13,14,15,17,18,19,20,21,23,24,25,26,27,29,30,31,32,33,35,36,37,38,39,41,42,43,44,45,47,48,49,50,51,52,54,55,56,57,58,60,61,62,63,64,66,67,68,69,70,72,73,74,75,76,78,79)
    
    declare %Tuning_JustIntonation[13] := (0,0,-11,-4,-15,14,2,17,-2,-14,16,4,12)
    declare %Tuning_Pythagorean[13] := (2,0,-10,4,-6,8,-2,12,2,-8,6,-4,10)
    declare %Tuning_Concert432[13] := (0,-8,-8,-8,-8,-8,-8,-8,-8,-8,-8,-8,-8)
    declare %Tuning_Concert442[13] := (0,2,2,2,2,2,2,2,2,2,2,2,2)
    declare %Tuning_Concert448[13] := (0,8,8,8,8,8,8,8,8,8,8,8,8)
    
    declare %Master_ConcertGrand[501] := (150,0,1,0,0,912821,630000,630000,409140,630000,1,0,1,0,4359,7692,0,0,500000,500000,500000,510256,0,0,0,0,500000,584211,563158,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,102564,1000000,1000000,482563,0,0,0,1,0,500000,500000,555263,413158,1000000,0,238158,200000,900000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,557895,500000,0,2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,34,36,38,40,42,44,46,48,50,52,54,56,58,60,62,64,66,68,70,72,74,76,78,80,82,84,86,88,90,92,94,96,98,100,102,104,106,108,110,112,114,116,118,120,122,124,126,127,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,902564,353846,400000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
    declare %Master_LiveConcert[501] := (150,1,1,0,0,1000000,630000,630000,533333,554731,1,1,1,1,4359,9487,4359,13846,500000,500000,500000,510256,0,0,0,0,500000,584211,563158,542105,500000,500000,563158,563158,500000,500000,500000,500000,500000,500000,500000,500000,102564,1000000,1000000,487691,0,0,1,1,0,500000,500000,555263,413158,1000000,18,285526,200000,900000,500000,500000,500000,500000,500000,500000,500000,500000,571053,586842,500000,500000,500000,500000,557895,500000,0,2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,34,36,38,40,42,44,46,48,50,52,54,56,58,60,62,64,66,68,70,72,74,76,78,80,82,84,86,88,90,92,94,96,98,100,102,104,106,108,110,112,114,116,118,120,122,124,126,127,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,902564,353846,400000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
    declare %Master_LovelyMono[501] := (150,0,1,0,0,912821,630000,630000,409140,630000,0,1,0,0,4359,7692,8205,0,500000,500000,500000,510256,0,0,0,0,500000,584211,563158,500000,342105,500000,521053,500000,500000,500000,500000,500000,500000,500000,500000,500000,102564,1000000,1000000,482563,0,0,1,1,1,500000,500000,555263,413158,1000000,24,186842,200000,900000,500000,500000,436843,207895,500000,500000,500000,500000,523684,752632,500000,500000,500000,334211,636843,500000,0,2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,34,36,38,40,42,44,46,48,50,52,54,56,58,60,62,64,66,68,70,72,74,76,78,80,82,84,86,88,90,92,94,96,98,100,102,104,106,108,110,112,114,116,118,120,122,124,126,127,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,902564,353846,400000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
    declare %Master_NewmanClose[501] := (150,0,1,0,0,882051,632258,628495,430592,0,1,1,0,0,0,1282,0,0,710257,500000,510256,510256,0,0,0,0,500000,497895,510526,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,102154,958974,1000000,405640,1,0,1,1,0,375000,495264,721052,357895,613158,5,278948,294737,763158,452632,444737,476315,215790,500000,444737,413158,189474,323684,310528,500000,500000,500000,500000,557895,573684,3,5,6,8,9,11,13,14,16,17,19,21,22,24,25,27,29,30,32,33,35,37,38,40,41,43,45,46,48,49,51,53,54,56,57,59,61,62,64,65,67,69,70,72,73,75,77,78,80,81,83,85,86,88,89,91,93,94,96,97,99,101,102,104,105,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,820513,332308,441026,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
    declare %Master_OldGrand[501] := (150,1,1,0,0,912821,530645,614946,646237,614946,1,0,1,0,3333,7180,0,0,0,500000,212821,510256,0,0,0,0,500000,500001,500000,500000,500000,500000,500000,500000,500000,447368,500000,384210,500000,500000,500000,500000,102564,1000000,1000000,456922,0,0,1,1,0,500000,500000,555263,413158,1000000,18,257894,200000,900000,492105,500000,484210,34211,500000,397369,381579,468420,397369,623683,500000,500000,500000,500000,557895,381580,0,2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,34,36,38,40,42,44,46,48,50,52,54,56,58,60,62,64,66,68,70,72,74,76,78,80,82,84,86,88,90,92,94,96,98,100,102,104,106,108,110,112,114,116,118,120,122,124,126,127,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,841026,264615,446154,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
    declare %Master_OnStage[501] := (150,0,1,0,0,912821,630000,630000,634947,630000,0,0,1,0,4359,12564,0,0,500000,500000,500000,510256,0,0,41026,0,500000,584211,563158,500000,500000,500000,500000,500000,542105,500000,500000,500000,500000,500000,500000,500000,102564,1000000,1000000,482563,0,0,0,1,0,500000,500000,555263,413158,1000000,11,147369,389474,900000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,557895,160527,0,2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,34,36,38,40,42,44,46,48,50,52,54,56,58,60,62,64,66,68,70,72,74,76,78,80,82,84,86,88,90,92,94,96,98,100,102,104,106,108,110,112,114,116,118,120,122,124,126,127,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,902564,353846,400000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
    declare %Master_PadNostalgia[501] := (150,0,1,0,0,1000000,696237,549462,0,0,1,1,0,0,0,1282,0,0,453847,500000,746154,510256,0,0,0,0,500000,497895,510526,289474,500000,500000,500000,500000,626316,500000,500000,310526,500000,500000,500000,500000,734359,1000000,1000000,805640,1,0,1,1,1,373684,539474,476316,413158,613157,15,344736,318421,900000,434210,500000,373684,500000,500000,500000,500000,473684,523684,500000,500000,500000,500000,500000,628947,681579,1,2,3,5,6,7,8,9,11,12,13,14,15,16,17,19,20,21,22,23,24,26,28,29,31,33,34,35,36,37,38,39,40,41,42,44,46,48,51,55,60,63,65,67,70,72,74,75,78,80,83,85,87,89,93,97,100,103,107,110,114,117,120,124,127,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,297436,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
    declare %Master_SongBeach[501] := (150,1,1,0,0,846154,701882,491129,321452,0,1,1,1,0,0,4359,0,0,710257,500000,628205,510256,0,0,0,0,500000,497895,510526,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,102154,958974,1000000,405640,0,0,1,1,0,405263,500000,602631,357895,494737,4,309210,200000,900000,444737,626316,492105,468421,500000,500000,500000,473684,476316,500000,500000,500000,500000,500000,557895,476316,2,3,5,6,7,8,9,11,12,13,14,15,17,18,19,20,21,23,24,25,26,27,29,30,31,32,33,35,36,37,38,39,41,42,43,44,45,47,48,49,50,51,52,54,55,56,57,58,60,61,62,63,64,66,67,68,69,70,72,73,74,75,76,78,79,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,815385,600000,579487,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
    declare %Master_SparseDreamy[501] := (150,0,1,0,0,210257,630000,630000,409140,630000,1,0,0,0,4359,7692,0,0,500000,500000,500000,510256,215385,0,0,0,636842,542105,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,102564,1000000,1000000,482563,0,0,0,1,0,500000,500000,555263,413158,1000000,7,297369,160526,1000000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,557895,326316,1,2,3,5,6,7,8,9,11,12,13,14,15,16,17,19,20,21,22,23,24,26,28,29,31,33,34,35,36,37,38,39,40,41,42,44,46,48,51,55,60,63,65,67,70,72,74,75,78,80,83,85,87,89,93,97,100,103,107,110,114,117,120,124,127,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,902564,353846,400000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
    declare %Master_StaccatoDance[501] := (150,0,1,1,0,46154,630000,630000,537097,630000,1,0,0,0,7692,12820,0,0,500000,500000,500000,510256,0,0,0,0,500000,584211,563158,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,102564,600000,0,431281,1,0,1,0,0,413158,421053,278947,413158,1000000,0,238158,200000,900000,421053,500000,381579,500000,500000,500000,500000,500000,594737,760527,500000,500000,500000,500000,557895,500000,10,14,20,24,30,35,39,43,46,49,52,53,55,58,59,60,62,64,67,69,71,74,76,79,81,82,82,84,86,88,89,91,94,95,97,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,125,126,126,127,127,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,902564,0,241026,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
    declare %Master_VintageDark[501] := (150,0,1,0,0,748718,630000,630000,409140,630000,1,0,0,0,4359,7692,0,0,338462,500000,500000,510256,0,0,0,0,426316,457895,563158,626316,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,102564,1000000,1000000,482563,0,0,0,1,0,500000,500000,555263,413158,1000000,19,167105,200000,900000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,557895,500000,1,2,3,5,6,7,8,9,11,12,13,14,15,16,17,19,20,21,22,23,24,26,28,29,31,33,34,35,36,37,38,39,40,41,42,44,46,48,51,55,60,63,65,67,70,72,74,75,78,80,83,85,87,89,93,97,100,103,107,110,114,117,120,124,127,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-11,-4,-15,14,2,17,-2,-14,16,4,12,0,0,0,0,0,0,0,0,0,0,0,0,641026,658205,641026,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
    declare %Master_JazzPiano[501] := (150,0,1,0,0,866667,630000,566022,409140,630000,1,1,0,0,5128,7692,5385,0,376923,500000,500000,510256,0,338462,0,0,500000,584211,563158,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,102564,1000000,1000000,482563,0,0,0,0,1,500000,500000,555263,413158,1000000,0,238158,200000,900000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,10527,1000000,500000,0,2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,34,36,38,40,42,44,46,48,50,52,54,56,58,60,62,64,66,68,70,72,74,76,78,80,82,84,86,88,90,92,94,96,98,100,102,104,106,108,110,112,114,116,118,120,122,124,126,127,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1000000,336410,400000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
    declare %Master_InTheHall[501] := (150,0,1,0,0,912821,630000,630000,409140,630000,0,0,0,1,4359,7692,0,41282,500000,500000,500000,510256,0,0,0,0,500000,584211,563158,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,102564,1000000,1000000,426153,0,0,0,1,0,500000,500000,555263,413158,1000000,6,242105,200000,900000,500000,500000,500000,500000,500000,500000,500000,500000,428947,500000,500000,500000,500000,500000,557895,500000,0,2,4,6,8,10,12,14,16,18,20,22,24,26,28,30,32,34,36,38,40,42,44,46,48,50,52,54,56,58,60,62,64,66,68,70,72,74,76,78,80,82,84,86,88,90,92,94,96,98,100,102,104,106,108,110,112,114,116,118,120,122,124,126,127,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,902564,627692,400000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
    declare %Master_ReversePiano[501] := (150,0,1,0,0,353847,630000,630000,409140,630000,1,0,0,0,4359,7692,0,0,500000,500000,500000,510256,0,0,0,0,500000,584211,563158,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,775385,769231,0,482563,1,0,0,1,0,121053,634211,555263,539474,1000000,20,273684,200000,900000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,500000,557895,500000,10,14,20,24,30,35,39,43,46,49,52,53,55,58,59,60,62,64,67,69,71,74,76,79,81,82,82,84,86,88,89,91,94,95,97,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,125,126,126,127,127,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,738461,244872,400000,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0)
    
    message("LOADED: Pearl Concert Grand v1.1, 4/14/2015")
    
    $i := 0
    while ($i <= 127)
        { For 5.4.2 - set_key_color($i,$KEY_COLOR_INACTIVE }
        set_key_color($i,$KEY_COLOR_BLACK)
        inc($i)
    end while
    
    $i := 20
    while ($i <= 108)
        set_key_color($i,$KEY_COLOR_BLUE)
        inc($i)
    end while
end on
function AdjustSkinOffset
    if ($UI_COLOR = 1)
        { Gold }
        if ($SETTINGS_toggle = 1) 
            set_skin_offset(2000)
            else
                set_skin_offset(1500)
        end if
        
        else
            { Blue }
            if ($SETTINGS_TOGGLE = 1)
                set_skin_offset(500)
                else
                    set_skin_offset(0)
            end if                        
    end if
    if ($GLOBAL_FX = 1)
        set_skin_offset(2500)
    end if
    
end function


function LoadPreset
            $VELOCITY_presets := 0
            $TUNING_presets := 0
            $i := 0
            @DISPLAY_label_string := "Loading..." 
            @DISPLAY_label_value := "0%"
            set_control_par_str(get_ui_id($DISPLAY_label),$CONTROL_PAR_TEXT,@DISPLAY_label_string) 
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)
                                  
            $UI_COLOR := %PRESET_Array[1]
            $PurgeMuted := %PRESET_ARRAY[2]
            $HighDampers := %PRESET_ARRAY[3]
            $EXTRA_RR := %PRESET_ARRAY[4] 
            $velocityBright := %PRESET_ARRAY[5]
            $CLOSE_volume := %PRESET_ARRAY[6] 
            $TAIL_volume := %PRESET_ARRAY[7] 
            $STAGE_volume := %PRESET_ARRAY[8] 
            $HALL_volume := %PRESET_ARRAY[9] 
            $CLOSE_purge := %PRESET_ARRAY[10] 
            $TAIL_purge := %PRESET_ARRAY[11]
            $STAGE_purge := %PRESET_ARRAY[12] 
            $HALL_purge := %PRESET_ARRAY[13] 
            $CLOSE_offset := %PRESET_ARRAY[14] 
            $STAGE_offset := %PRESET_ARRAY[15] 
            $TAIL_offset := %PRESET_ARRAY[16] 
            $HALL_offset := %PRESET_ARRAY[17] 
            $CLOSE_width := %PRESET_ARRAY[18] 
            $TAIL_width := %PRESET_ARRAY[19] 
            $STAGE_width := %PRESET_ARRAY[20] 

            @DISPLAY_label_value := "2%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

            $HALL_width := %PRESET_ARRAY[21]
            $CLOSE_compressor := %PRESET_ARRAY[22] 
            $TAIL_compressor := %PRESET_ARRAY[23] 
            $STAGE_compressor := %PRESET_ARRAY[24] 
            $HALL_compressor := %PRESET_ARRAY[25]
            $CLOSE_HF := %PRESET_ARRAY[26] 
            $CLOSE_HMF := %PRESET_ARRAY[27] 
            $CLOSE_LMF := %PRESET_ARRAY[28] 
            $CLOSE_LF := %PRESET_ARRAY[29] 
            $TAIL_HF := %PRESET_ARRAY[30]
            $TAIL_HMF := %PRESET_ARRAY[31] 
            $TAIL_LMF := %PRESET_ARRAY[32] 
            $TAIL_LF := %PRESET_ARRAY[33] 
            $STAGE_HF := %PRESET_ARRAY[34] 
            $STAGE_HMF := %PRESET_ARRAY[35] 
            $STAGE_LMF := %PRESET_ARRAY[36] 
            $STAGE_LF := %PRESET_ARRAY[37] 
            $HALL_HF := %PRESET_ARRAY[38] 
            $HALL_HMF := %PRESET_ARRAY[39] 
            $HALL_LMF := %PRESET_ARRAY[40] 

            @DISPLAY_label_value := "4%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

            $HALL_LF := %PRESET_ARRAY[41] 
            $AMP_attack := %PRESET_ARRAY[42] 
            $AMP_decay := %PRESET_ARRAY[43] 
            $AMP_sustain := %PRESET_ARRAY[44] 
            $AMP_release := %PRESET_ARRAY[45] 
            $FX_compressor := %PRESET_ARRAY[46]
            $FX_transientdesigner := %PRESET_ARRAY[47]
            $FX_eq := %PRESET_ARRAY[48]
            $FX_reverb := %PRESET_ARRAY[49]
            $FX_saturator := %PRESET_ARRAY[50] 
            $FX_compressor_threshold := %PRESET_ARRAY[51] 
            $FX_compressor_makeup := %PRESET_ARRAY[52] 
            $FX_compressor_attack := %PRESET_ARRAY[53] 
            $FX_compressor_ratio := %PRESET_ARRAY[54] 
            $FX_compressor_mix := %PRESET_ARRAY[55] 
            $FX_reverb_ir := %PRESET_ARRAY[56] 
            $FX_reverb_wet := %PRESET_ARRAY[57] 
            $FX_reverb_hpf := %PRESET_ARRAY[58] 
            $FX_reverb_lpf := %PRESET_ARRAY[59] 
            $FX_eq_lf_gain := %PRESET_ARRAY[60] 

            @DISPLAY_label_value := "6%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

            $FX_eq_lf_freq := %PRESET_ARRAY[61] 
            $FX_eq_lmf_gain := %PRESET_ARRAY[62] 
            $FX_eq_lmf_freq := %PRESET_ARRAY[63] 
            $FX_eq_lmf_q := %PRESET_ARRAY[64] 
            $FX_eq_hmf_gain := %PRESET_ARRAY[65] 
            $FX_eq_hmf_freq := %PRESET_ARRAY[66] 
            $FX_eq_hmf_q := %PRESET_ARRAY[67] 
            $FX_eq_hf_gain := %PRESET_ARRAY[68] 
            $FX_eq_hf_freq := %PRESET_ARRAY[69] 
            $FX_td_attack := %PRESET_ARRAY[70] 
            $FX_td_sustain := %PRESET_ARRAY[71] 
            $FX_td_input := %PRESET_ARRAY[72] 
           $FX_saturator_hf := %PRESET_ARRAY[72]
            $FX_saturator_warmth := %PRESET_ARRAY[74] 
            $FX_reverb_size := %PRESET_ARRAY[75] 

            @DISPLAY_label_value := "8%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

            $i :=0
            while ($i < 65)
                %table_velocity[$i] := %PRESET_ARRAY[76 + $i]
                inc($i)
            end while

            @DISPLAY_label_value := "12%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)
            
            $i := 0
            while ($i < 12)
                %tuning_table[$i] := %PRESET_ARRAY[205 + $i]
                inc($i)
            end while
            
            $velocityVolume := %PRESET_ARRAY[230]
            $releaseVolume := %PRESET_ARRAY[231]
            $pedalVolume := %PRESET_ARRAY[232]
            
            @DISPLAY_label_value := "14%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

        load_ir_sample(get_menu_item_str(get_ui_id($FX_reverb_ir),$FX_reverb_ir),0,0)  	

        @DISPLAY_label_value := "23%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

        call AdjustSkinOffset
        set_engine_par($ENGINE_PAR_GN_GAIN,$MASTER_volume,-1,0,1)
        set_engine_par($ENGINE_PAR_EFFECT_BYPASS,abs(1 - $FX_eq),-1,1,1)
        set_engine_par($ENGINE_PAR_SEQ_LF_FREQ,$FX_eq_lf_freq,-1,1,1)
        set_engine_par($ENGINE_PAR_SEQ_LMF_FREQ,$FX_eq_lmf_freq,-1,1,1)

        @DISPLAY_label_value := "27%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

        set_engine_par($ENGINE_PAR_SEQ_HF_FREQ,$FX_eq_hf_freq,-1,1,1)
        set_engine_par($ENGINE_PAR_SEQ_HMF_FREQ,$FX_eq_hmf_freq,-1,1,1)
        set_engine_par($ENGINE_PAR_SEQ_LF_GAIN,$FX_eq_lf_gain,-1,1,1)
        set_engine_par($ENGINE_PAR_SEQ_LMF_GAIN,$FX_eq_lmf_gain,-1,1,1)

        @DISPLAY_label_value := "31%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

        set_engine_par($ENGINE_PAR_SEQ_HF_GAIN,$FX_eq_hf_gain,-1,1,1)
        set_engine_par($ENGINE_PAR_SEQ_HMF_GAIN,$FX_eq_hmf_gain,-1,1,1)
        set_engine_par($ENGINE_PAR_SEQ_LMF_Q,$FX_eq_lmf_q,-1,1,1)
        set_engine_par($ENGINE_PAR_SEQ_HMF_Q,$FX_eq_hmf_q,-1,1,1)
        set_engine_par($ENGINE_PAR_EFFECT_BYPASS,abs(1 - $FX_compressor),-1,2,1)

        @DISPLAY_label_value := "36%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

            @DISPLAY_label_value := "38%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

        set_engine_par($ENGINE_PAR_SCOMP_THRESHOLD,$FX_compressor_threshold,-1,2,1)
        set_engine_par($ENGINE_PAR_SCOMP_MAKEUP,$FX_compressor_makeup,-1,2,1)
        set_engine_par($ENGINE_PAR_SCOMP_ATTACK,$FX_compressor_attack,-1,2,1)
        set_engine_par($ENGINE_PAR_SCOMP_MIX,$FX_compressor_mix,-1,2,1)

            @DISPLAY_label_value := "42%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

        set_engine_par($ENGINE_PAR_SCOMP_RATIO,$FX_compressor_ratio,-1,2,1)
        set_engine_par($ENGINE_PAR_EFFECT_BYPASS,abs(1 - $FX_saturator),-1,3,1)
        set_engine_par($ENGINE_PAR_TP_HF_ROLLOFF,$FX_saturator_hf,-1,3,1)
        set_engine_par($ENGINE_PAR_TP_WARMTH,$FX_saturator_warmth,-1,3,1)
        set_engine_par($ENGINE_PAR_TP_GAIN,$FX_saturator_gain,-1,3,1)

        @DISPLAY_label_value := "45%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

        set_engine_par($ENGINE_PAR_EFFECT_BYPASS,abs(1 - $FX_transientdesigner),-1,4,1)
        set_engine_par($ENGINE_PAR_TR_ATTACK,$FX_td_attack,-1,4,1)
        set_engine_par($ENGINE_PAR_TR_SUSTAIN,$FX_td_sustain,-1,4,1)
        set_engine_par($ENGINE_PAR_TR_INPUT,$FX_td_input,-1,4,1)
        @DISPLAY_label_value := "48%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

        set_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS,abs(1 - $FX_reverb),-1,0,0)
        set_engine_par($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN,$FX_reverb_wet,-1,0,0)
        set_engine_par($ENGINE_PAR_IRC_FREQ_HIGHPASS_ER,$FX_reverb_hpf,-1,0,0)
        set_engine_par($ENGINE_PAR_IRC_FREQ_HIGHPASS_LR,$FX_reverb_hpf,-1,0,0)
        set_engine_par($ENGINE_PAR_IRC_FREQ_LOWPASS_ER,$FX_reverb_lpf,-1,0,0)
        set_engine_par($ENGINE_PAR_IRC_FREQ_LOWPASS_LR,$FX_reverb_lpf,-1,0,0)
        @DISPLAY_label_value := "51%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

        set_engine_par($ENGINE_PAR_IRC_LENGTH_RATIO_ER,$FX_reverb_size,-1,0,0)
        set_engine_par($ENGINE_PAR_IRC_LENGTH_RATIO_LR,$FX_reverb_size,-1,0,0)
        set_engine_par($ENGINE_PAR_SEQ_HF_GAIN,$CLOSE_HF,-1,1,$NI_BUS_OFFSET + 0)    
        set_engine_par($ENGINE_PAR_SEQ_HMF_GAIN,$CLOSE_HMF,-1,1,$NI_BUS_OFFSET + 0) 
        @DISPLAY_label_value := "54%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)
           
        set_engine_par($ENGINE_PAR_SEQ_LF_GAIN,$CLOSE_LF,-1,1,$NI_BUS_OFFSET + 0)    
        set_engine_par($ENGINE_PAR_SEQ_LMF_GAIN,$CLOSE_LMF,-1,1,$NI_BUS_OFFSET + 0)    
        set_engine_par($ENGINE_PAR_SEQ_HF_GAIN,$STAGE_HF,-1,1,$NI_BUS_OFFSET + 2)    
        set_engine_par($ENGINE_PAR_SEQ_HMF_GAIN,$STAGE_HMF,-1,1,$NI_BUS_OFFSET + 2)    
        set_engine_par($ENGINE_PAR_SEQ_LF_GAIN,$STAGE_LF,-1,1,$NI_BUS_OFFSET + 2)    
        set_engine_par($ENGINE_PAR_SEQ_LMF_GAIN,$STAGE_LMF,-1,1,$NI_BUS_OFFSET + 2)    
        set_engine_par($ENGINE_PAR_SEQ_HF_GAIN,$HALL_HF,-1,1,$NI_BUS_OFFSET + 1)    
        set_engine_par($ENGINE_PAR_SEQ_HMF_GAIN,$HALL_HMF,-1,1,$NI_BUS_OFFSET + 1) 

        @DISPLAY_label_value := "57%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)
           
        set_engine_par($ENGINE_PAR_SEQ_LF_GAIN,$HALL_LF,-1,1,$NI_BUS_OFFSET + 1)    
        set_engine_par($ENGINE_PAR_SEQ_LMF_GAIN,$HALL_LMF,-1,1,$NI_BUS_OFFSET + 1)    
        set_engine_par($ENGINE_PAR_SEQ_HF_GAIN,$TAIL_HF,-1,1,$NI_BUS_OFFSET + 3)    
        set_engine_par($ENGINE_PAR_SEQ_HMF_GAIN,$TAIL_HMF,-1,1,$NI_BUS_OFFSET + 3)    
        set_engine_par($ENGINE_PAR_SEQ_LF_GAIN,$TAIL_LF,-1,1,$NI_BUS_OFFSET + 3)    
        set_engine_par($ENGINE_PAR_SEQ_LMF_GAIN,$TAIL_LMF,-1,1,$NI_BUS_OFFSET + 3)    
        set_engine_par($ENGINE_PAR_SCOMP_MIX,$CLOSE_compressor,-1,2,$NI_BUS_OFFSET + 0)
        set_engine_par($ENGINE_PAR_SCOMP_MIX,$TAIL_compressor,-1,2,$NI_BUS_OFFSET + 3)
        set_engine_par($ENGINE_PAR_SCOMP_MIX,$STAGE_compressor,-1,2,$NI_BUS_OFFSET + 2)
        set_engine_par($ENGINE_PAR_SCOMP_MIX,$HALL_compressor,-1,2,$NI_BUS_OFFSET + 1)

        @DISPLAY_label_value := "60%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

        set_engine_par($ENGINE_PAR_STEREO,$CLOSE_width,-1,0,$NI_BUS_OFFSET + 0)
        set_engine_par($ENGINE_PAR_STEREO,$HALL_width,-1,0,$NI_BUS_OFFSET + 1)
        set_engine_par($ENGINE_PAR_STEREO,$STAGE_width,-1,0,$NI_BUS_OFFSET + 2)
        set_engine_par($ENGINE_PAR_STEREO,$TAIL_width,-1,0,$NI_BUS_OFFSET + 3)
        @DISPLAY_label_value := "63%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

        $i := 0
        while ($i < num_elements(%SUSTAIN_groups))
            set_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$velocityBright,%SUSTAIN_groups[$i],find_mod(%SUSTAIN_groups[$i],"VEL_EQ_GAIN_1"),-1)
            set_engine_par($ENGINE_PAR_GAIN1,500000-($velocityBright/6),%SUSTAIN_groups[$i],0,-1)        
            inc($i)
        end while
        @DISPLAY_label_value := "66%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

        if ($altVelocity = 0)
            $i := 0
            while ($i < num_elements(%SUSTAIN_groups))
                set_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$velocityVolume,%SUSTAIN_groups[$i],find_mod(%SUSTAIN_groups[$i],"VEL_VOLUME"),-1)
                inc($i)
            end while
            
            else
                $V_MULT := ($velocityVolume / 4000)
                
                if ($V_MULT < 0)
                    $V_MULT := 0
                end if
        end if

            @DISPLAY_label_value := "69%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

            $i := 0
            while ($i < num_elements(%SUSTAIN_groups))
                set_engine_par($ENGINE_PAR_ATTACK,$AMP_attack,%SUSTAIN_groups[$i],0,-1)
                inc($i)
            end while
            
                @DISPLAY_label_value := "72%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)
        $i := 0
        while ($i < num_elements(%SUSTAIN_groups))
            set_engine_par($ENGINE_PAR_DECAY,$AMP_decay,%SUSTAIN_groups[$i],0,-1)
            inc($i)
        end while

            @DISPLAY_label_value := "75%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

        $i := 0
        while ($i < num_elements(%SUSTAIN_groups))
            set_engine_par($ENGINE_PAR_SUSTAIN,$AMP_sustain,%SUSTAIN_groups[$i],0,-1)
            inc($i)
        end while

            @DISPLAY_label_value := "78%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

        $i := 0
        while ($i < num_elements(%SUSTAIN_groups))
            set_engine_par($ENGINE_PAR_RELEASE,$AMP_release,%SUSTAIN_groups[$i],0,-1)
            inc($i)
        end while

            $i := 0
            $b := ($AMP_release * 10) / 8
            if ($b > 1000000)
                $b := 1000000
            end if     
        while ($i < num_elements(%HALL_SUSTAIN_groups))
            set_engine_par($ENGINE_PAR_RELEASE,$b,%HALL_SUSTAIN_groups[$i],0,-1)
            inc($i)
        end while

            @DISPLAY_label_value := "81%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

        $i := 0
        while ($i < num_elements(%KEY_groups))
            set_engine_par($ENGINE_PAR_VOLUME,$releaseVolume,%KEY_groups[$i],-1,-1)
            inc($i)
        end while

            @DISPLAY_label_value := "83%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

        $i := 0
        while ($i < num_elements(%PEDAL_groups))
            set_engine_par($ENGINE_PAR_VOLUME,$pedalVolume,%PEDAL_groups[$i],-1,-1)
            inc($i)
        end while

            @DISPLAY_label_value := "86%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

        $i := 0
        while ($i < num_elements(%CLOSE_groups))
            set_engine_par($ENGINE_PAR_VOLUME,$CLOSE_volume,%CLOSE_groups[$i],-1,-1)
            inc($i)
        end while

            @DISPLAY_label_value := "89%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

        $i := 0
        while ($i < num_elements(%TAIL_groups))
            set_engine_par($ENGINE_PAR_VOLUME,$TAIL_volume,%TAIL_groups[$i],-1,-1)
            inc($i)
        end while
            @DISPLAY_label_value := "92%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

        $i := 0
        while ($i < num_elements(%STAGE_groups))
            set_engine_par($ENGINE_PAR_VOLUME,$STAGE_volume,%STAGE_groups[$i],-1,-1)
            inc($i)
        end while

            @DISPLAY_label_value := "95%"
            set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)

        $i := 0
        while ($i < num_elements(%HALL_groups))
            set_engine_par($ENGINE_PAR_VOLUME,$HALL_volume,%HALL_groups[$i],-1,-1)
            inc($i)
        end while
        
            $i := 0
            while ($i < num_elements(%KEY_groups))
                set_engine_par($ENGINE_PAR_VOLUME,$releaseVolume,%KEY_groups[$i],-1,-1)
                inc($i)
            end while

            $i := 0
            while ($i < num_elements(%PEDAL_groups))
                set_engine_par($ENGINE_PAR_VOLUME,$pedalVolume,%PEDAL_groups[$i],-1,-1)
                inc($i)
            end while
        
            
            @DISPLAY_label_value := "100%!"
                        set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)    
end function

on ui_control($CLOSE_output)
    set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,$CLOSE_output,-1,-1,$NI_BUS_OFFSET + 0)      
end on

on ui_control($TAIL_output)
    set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,$TAIL_output,-1,-1,$NI_BUS_OFFSET + 3)  
end on

on ui_control($STAGE_output)
    set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,$STAGE_output,-1,-1,$NI_BUS_OFFSET + 2)
end on

on ui_control($HALL_output)
    set_engine_par($ENGINE_PAR_OUTPUT_CHANNEL,$HALL_output,-1,-1,$NI_BUS_OFFSET + 1)
end on

on ui_control($MASTER_presets)
    $presetType := 150    
    select ($MASTER_presets)        
        case 0 to 12
            $i := 0
            while ($i < 500)                                
                select ($MASTER_presets)
                    case 0
                        %PRESET_Array[$i] := %Master_ConcertGrand[$i]                    
                    case 1
                        %PRESET_Array[$i] := %Master_LiveConcert[$i]                    
                    case 2
                        %PRESET_Array[$i] := %Master_LovelyMono[$i]              
                    case 3
                        %PRESET_Array[$i] := %Master_ReversePiano[$i]
                    case 4
                        %PRESET_Array[$i] := %Master_OnStage[$i]
                    case 5
                        %PRESET_Array[$i] := %Master_NewmanClose[$i]
                    case 6
                        %PRESET_Array[$i] := %Master_VintageDark[$i]
                    case 7
                        %PRESET_Array[$i] := %Master_SongBeach[$i]
                    case 8
                        %PRESET_Array[$i] := %Master_InTheHall[$i]
                    case 9
                        %PRESET_Array[$i] := %Master_SparseDreamy[$i]
                    case 10
                        %PRESET_Array[$i] := %Master_PadNostalgia[$i]
                    case 11
                        %PRESET_Array[$i] := %Master_OldGrand[$i]
                    case 12
                        %PRESET_Array[$i] := %Master_StaccatoDance[$i]
                end select
                inc($i)
            end while
            
            call LoadPreset
            
            $i := 0
            if ($PurgeMuted = 1)
                while ($i < num_elements(%CLOSE_groups))
                    purge_group(%CLOSE_groups[$i],$CLOSE_purge)
                    purge_group(%TAIL_groups[$i],$TAIL_purge)
                    purge_group(%STAGE_groups[$i],$STAGE_purge)
                    purge_group(%HALL_groups[$i],$HALL_purge)
                    inc($i)
                end while
                else
                    while ($i < num_elements(%CLOSE_groups))
                        purge_group(%CLOSE_groups[$i],1)
                        purge_group(%STAGE_groups[$i],1)
                        purge_group(%TAIL_groups[$i],1)
                        purge_group(%HALL_groups[$i],1)
                        inc($i)
                    end while            
            end if             
        
        case 99
            $i := 0
            while ($i < 500)
                %PRESET_Array[$i] := 0
                inc($i)
            end while
            { Save preset }
            $i := 0
            %PRESET_Array[0] := 150 { Master }
            %PRESET_Array[1] := $UI_COLOR
            %PRESET_ARRAY[2] := $PurgeMuted
            %PRESET_ARRAY[3] := $HighDampers
            %PRESET_ARRAY[4] := $EXTRA_RR
            %PRESET_ARRAY[5] := $velocityBright
            %PRESET_ARRAY[6] := $CLOSE_volume
            %PRESET_ARRAY[7] := $TAIL_volume
            %PRESET_ARRAY[8] := $STAGE_volume
            %PRESET_ARRAY[9] := $HALL_volume
            %PRESET_ARRAY[10] := $CLOSE_purge
            %PRESET_ARRAY[11] := $TAIL_purge
            %PRESET_ARRAY[12] := $STAGE_purge
            %PRESET_ARRAY[13] := $HALL_purge
            %PRESET_ARRAY[14] := $CLOSE_offset
            %PRESET_ARRAY[15] := $STAGE_offset
            %PRESET_ARRAY[16] := $TAIL_offset
            %PRESET_ARRAY[17] := $HALL_offset
            %PRESET_ARRAY[18] := $CLOSE_width
            %PRESET_ARRAY[19] := $TAIL_width
            %PRESET_ARRAY[20] := $STAGE_width
            %PRESET_ARRAY[21] := $HALL_width
            %PRESET_ARRAY[22] := $CLOSE_compressor
            %PRESET_ARRAY[23] := $TAIL_compressor
            %PRESET_ARRAY[24] := $STAGE_compressor
            %PRESET_ARRAY[25] := $HALL_compressor
            %PRESET_ARRAY[26] := $CLOSE_HF
            %PRESET_ARRAY[27] := $CLOSE_HMF
            %PRESET_ARRAY[28] := $CLOSE_LMF
            %PRESET_ARRAY[29] := $CLOSE_LF
            %PRESET_ARRAY[30] := $TAIL_HF
            %PRESET_ARRAY[31] := $TAIL_HMF
            %PRESET_ARRAY[32] := $TAIL_LMF
            %PRESET_ARRAY[33] := $TAIL_LF
            %PRESET_ARRAY[34] := $STAGE_HF
            %PRESET_ARRAY[35] := $STAGE_HMF
            %PRESET_ARRAY[36] := $STAGE_LMF
            %PRESET_ARRAY[37] := $STAGE_LF            
            %PRESET_ARRAY[38] := $HALL_HF
            %PRESET_ARRAY[39] := $HALL_HMF
            %PRESET_ARRAY[40] := $HALL_LMF
            %PRESET_ARRAY[41] := $HALL_LF          
            %PRESET_ARRAY[42] := $AMP_attack  
            %PRESET_ARRAY[43] := $AMP_decay
            %PRESET_ARRAY[44] := $AMP_sustain
            %PRESET_ARRAY[45] := $AMP_release
            %PRESET_ARRAY[46] := $FX_compressor
            %PRESET_ARRAY[47] := $FX_transientdesigner
            %PRESET_ARRAY[48] := $FX_eq
            %PRESET_ARRAY[49] := $FX_reverb
            %PRESET_ARRAY[50] := $FX_saturator
            %PRESET_ARRAY[51] := $FX_compressor_threshold
            %PRESET_ARRAY[52] := $FX_compressor_makeup
            %PRESET_ARRAY[53] := $FX_compressor_attack
            %PRESET_ARRAY[54] := $FX_compressor_ratio
            %PRESET_ARRAY[55] := $FX_compressor_mix
            %PRESET_ARRAY[56] := $FX_reverb_ir
            %PRESET_ARRAY[57] := $FX_reverb_wet
            %PRESET_ARRAY[58] := $FX_reverb_hpf
            %PRESET_ARRAY[59] := $FX_reverb_lpf
            %PRESET_ARRAY[60] := $FX_eq_lf_gain
            %PRESET_ARRAY[61] := $FX_eq_lf_freq
            %PRESET_ARRAY[62] := $FX_eq_lmf_gain
            %PRESET_ARRAY[63] := $FX_eq_lmf_freq
            %PRESET_ARRAY[64] := $FX_eq_lmf_q
            %PRESET_ARRAY[65] := $FX_eq_hmf_gain
            %PRESET_ARRAY[66] := $FX_eq_hmf_freq
            %PRESET_ARRAY[67] := $FX_eq_hmf_q
            %PRESET_ARRAY[68] := $FX_eq_hf_gain
            %PRESET_ARRAY[69] := $FX_eq_hf_freq
            %PRESET_ARRAY[70] := $FX_td_attack
            %PRESET_ARRAY[71] := $FX_td_sustain
            %PRESET_ARRAY[72] := $FX_td_input
            %PRESET_ARRAY[73] := $FX_saturator_hf
            %PRESET_ARRAY[74] := $FX_saturator_warmth
            %PRESET_ARRAY[75] := $FX_reverb_size
            $i :=0
            while ($i < 65)
                %PRESET_ARRAY[76 + $i] := %table_velocity[$i]
                inc($i)
            end while
            $i := 0
            %PRESET_ARRAY[205] := $TUNING_Key
            while ($i < 12)
                %PRESET_ARRAY[206 + $i] := %tuning_table[$i]
                inc($i)
            end while
            %PRESET_ARRAY[230] := $velocityVolume
            %PRESET_ARRAY[231] := $releaseVolume
            %PRESET_ARRAY[232] := $pedalVolume
            $save_arr_id := save_array(%PRESET_Array,0)
        case 100            
            %PRESET_ARRAY[0] := -1
            $load_arr_id := load_array(%PRESET_Array,0)   
            $LoadStarted := $ENGINE_UPTIME
            
            while ((%PRESET_ARRAY[0] = -1) and ($ENGINE_UPTIME - $LoadStarted < 50000))
                wait(100)
            end while
            
            $i := 0
            if ($PurgeMuted = 1)
                while ($i < num_elements(%CLOSE_groups))
                    purge_group(%CLOSE_groups[$i],$CLOSE_purge)
                    purge_group(%TAIL_groups[$i],$TAIL_purge)
                    purge_group(%STAGE_groups[$i],$STAGE_purge)
                    purge_group(%HALL_groups[$i],$HALL_purge)
                    inc($i)
                end while
                else
                    while ($i < num_elements(%CLOSE_groups))
                        purge_group(%CLOSE_groups[$i],1)
                        purge_group(%STAGE_groups[$i],1)
                        purge_group(%TAIL_groups[$i],1)
                        purge_group(%HALL_groups[$i],1)
                        inc($i)
                    end while            
            end if            
                         
    end select
end on

on ui_control($FX_reverb_ir)    
    load_ir_sample(get_menu_item_str(get_ui_id($FX_reverb_ir),$FX_reverb_ir),0,0)    
end on

on ui_control($dynamic_expand)
    set_control_par(get_ui_id(%table_dynamic),$CONTROL_PAR_BAR_COLOR,9FF3333h)
    if ($dynamic_expand = 1)
        $velocity_expand := 0
        move_control_px(%table_dynamic,45,45)
        set_control_par(get_ui_id(%table_dynamic),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id(%table_velocity),$CONTROL_PAR_WIDTH,240)
            set_control_par(get_ui_id(%table_velocity),$CONTROL_PAR_HEIGHT,65)                
            move_control_px(%table_velocity,49,49)
        set_control_par(get_ui_id(%table_velocity),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
        set_control_par(get_ui_id($velocityVolume),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
        set_control_par(get_ui_id($velocityBright),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
        set_control_par(get_ui_id($releaseVolume),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
        set_control_par(get_ui_id($pedalVolume),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)

        else
            set_control_par(get_ui_id(%table_dynamic),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
            set_control_par(get_ui_id($velocityVolume),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($velocityBright),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($releaseVolume),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($pedalVolume),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id(%table_velocity),$CONTROL_PAR_HIDE,0)

    end if
end on

on ui_control($velocity_expand)
    if ($velocity_expand = 1)
        $dynamic_expand := 0
        set_control_par(get_ui_id(%table_dynamic),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
        set_control_par(get_ui_id(%table_velocity),$CONTROL_PAR_WIDTH,540)
        set_control_par(get_ui_id(%table_velocity),$CONTROL_PAR_HEIGHT,150)    
        move_control_px(%table_velocity,45,45)
        set_control_par(get_ui_id($velocityVolume),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
        set_control_par(get_ui_id($velocityBright),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
        set_control_par(get_ui_id($releaseVolume),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
        set_control_par(get_ui_id($pedalVolume),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
        else
            set_control_par(get_ui_id(%table_velocity),$CONTROL_PAR_WIDTH,240)
            set_control_par(get_ui_id(%table_velocity),$CONTROL_PAR_HEIGHT,65)                
            move_control_px(%table_velocity,49,49)
        set_control_par(get_ui_id($velocityVolume),$CONTROL_PAR_HIDE,0)
        set_control_par(get_ui_id($velocityBright),$CONTROL_PAR_HIDE,0)
        set_control_par(get_ui_id($releaseVolume),$CONTROL_PAR_HIDE,0)
        set_control_par(get_ui_id($pedalVolume),$CONTROL_PAR_HIDE,0)
    end if
end on

on controller
    if (($CC_NUM = 102) and ($debugActive = 1))
        select (%CC[102])
            case 0 to 64
                message("Round robin ON via CC102")
                $LIGHT_RR := 1
            case 65 to 127
                message("Round robin OFF via CC102")
                $LIGHT_RR := 0
        end select   
    end if    
    if (($CC_NUM = 103) and ($debugActive = 1))
        select (%CC[103])
            case 0 to 64
                message("Sus pedal samples ON via CC103")
                $LIGHT_SUSTAINS := 1
            case 65 to 127
                message("Sus pedal samples OFF via CC103")
                $LIGHT_SUSTAINS := 0
        end select          
    end if
    if (($CC_NUM = 104) and ($debugActive = 1))
        select (%CC[104])
            case 0 to 64
                message("Chromatic samples ON via CC104")
                $CHROMATIC := 1
                $NEIGHBOR_RANGE := 1             
            case 65 to 127
                message("Chromatic samples OFF via CC104")
                $CHROMATIC := 0
                $NEIGHBOR_RANGE := 2
        end select
    end if
    if ($CC_NUM = 64)
        if ((%CC[64] = 0) and ($prevPedalValue # 0))            
            $prevPedalValue := %CC[64]
            play_note(0,1,0,1)            
        end if                
        if ((%CC[64] > 0) and ($prevPedalValue = 0))
            
            $prevPedalValue := %CC[64]
            play_note(0,2,0,1)                        
        end if  
        $prevPedalValue := %CC[64]      
    end if        
end on


on ui_control($UI_COLOR)
    call AdjustSkinOffset
end on

function checkMicToggles
    if ($CLOSE_displaytoggle = 1)
        set_control_par(get_ui_id($CLOSE_fxstrip),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($CLOSE_compressor),$CONTROL_PAR_HIDE,16)  
        set_control_par(get_ui_id($CLOSE_HF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($CLOSE_HMF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($CLOSE_LF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($CLOSE_LMF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($CLOSE_offset),$CONTROL_PAR_HIDE,0)
        set_control_par(get_ui_id($CLOSE_width),$CONTROL_PAR_HIDE,0)
        set_control_par(get_ui_id($CLOSE_volume),$CONTROL_PAR_HIDE,0)            
        set_control_par(get_ui_id($CLOSE_micstrip),$CONTROL_PAR_HIDE,0)
        else
            set_control_par(get_ui_id($CLOSE_fxstrip),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($CLOSE_compressor),$CONTROL_PAR_HIDE,0) 
            set_control_par(get_ui_id($CLOSE_HF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($CLOSE_HMF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($CLOSE_LF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($CLOSE_LMF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($CLOSE_offset),$CONTROL_PAR_HIDE,16)
            set_control_par(get_ui_id($CLOSE_width),$CONTROL_PAR_HIDE,16)
            set_control_par(get_ui_id($CLOSE_volume),$CONTROL_PAR_HIDE,16)            
            set_control_par(get_ui_id($CLOSE_micstrip),$CONTROL_PAR_HIDE,16)
    end if

    if ($TAIL_displaytoggle = 1)
        set_control_par(get_ui_id($TAIL_fxstrip),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($TAIL_compressor),$CONTROL_PAR_HIDE,16)  
        set_control_par(get_ui_id($TAIL_HF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($TAIL_HMF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($TAIL_LF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($TAIL_LMF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($TAIL_offset),$CONTROL_PAR_HIDE,0)
        set_control_par(get_ui_id($TAIL_width),$CONTROL_PAR_HIDE,0)
        set_control_par(get_ui_id($TAIL_volume),$CONTROL_PAR_HIDE,0)            
        set_control_par(get_ui_id($TAIL_micstrip),$CONTROL_PAR_HIDE,0)
        else
            set_control_par(get_ui_id($TAIL_fxstrip),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($TAIL_compressor),$CONTROL_PAR_HIDE,0) 
            set_control_par(get_ui_id($TAIL_HF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($TAIL_HMF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($TAIL_LF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($TAIL_LMF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($TAIL_offset),$CONTROL_PAR_HIDE,16)
            set_control_par(get_ui_id($TAIL_width),$CONTROL_PAR_HIDE,16)
            set_control_par(get_ui_id($TAIL_volume),$CONTROL_PAR_HIDE,16)            
            set_control_par(get_ui_id($TAIL_micstrip),$CONTROL_PAR_HIDE,16)
    end if
    
    if ($STAGE_displaytoggle = 1)
        set_control_par(get_ui_id($STAGE_fxstrip),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($STAGE_compressor),$CONTROL_PAR_HIDE,16)  
        set_control_par(get_ui_id($STAGE_HF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($STAGE_HMF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($STAGE_LF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($STAGE_LMF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($STAGE_offset),$CONTROL_PAR_HIDE,0)
        set_control_par(get_ui_id($STAGE_width),$CONTROL_PAR_HIDE,0)
        set_control_par(get_ui_id($STAGE_volume),$CONTROL_PAR_HIDE,0)            
        set_control_par(get_ui_id($STAGE_micstrip),$CONTROL_PAR_HIDE,0)
        else
            set_control_par(get_ui_id($STAGE_fxstrip),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($STAGE_compressor),$CONTROL_PAR_HIDE,0) 
            set_control_par(get_ui_id($STAGE_HF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($STAGE_HMF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($STAGE_LF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($STAGE_LMF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($STAGE_offset),$CONTROL_PAR_HIDE,16)
            set_control_par(get_ui_id($STAGE_width),$CONTROL_PAR_HIDE,16)
            set_control_par(get_ui_id($STAGE_volume),$CONTROL_PAR_HIDE,16)            
            set_control_par(get_ui_id($STAGE_micstrip),$CONTROL_PAR_HIDE,16)
    end if
    
    if ($HALL_displaytoggle = 1)
        set_control_par(get_ui_id($HALL_fxstrip),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($HALL_compressor),$CONTROL_PAR_HIDE,16)  
        set_control_par(get_ui_id($HALL_HF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($HALL_HMF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($HALL_LF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($HALL_LMF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($HALL_offset),$CONTROL_PAR_HIDE,0)
        set_control_par(get_ui_id($HALL_width),$CONTROL_PAR_HIDE,0)
        set_control_par(get_ui_id($HALL_volume),$CONTROL_PAR_HIDE,0)            
        set_control_par(get_ui_id($HALL_micstrip),$CONTROL_PAR_HIDE,0)
        else
            set_control_par(get_ui_id($HALL_fxstrip),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($HALL_compressor),$CONTROL_PAR_HIDE,0) 
            set_control_par(get_ui_id($HALL_HF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($HALL_HMF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($HALL_LF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($HALL_LMF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($HALL_offset),$CONTROL_PAR_HIDE,16)
            set_control_par(get_ui_id($HALL_width),$CONTROL_PAR_HIDE,16)
            set_control_par(get_ui_id($HALL_volume),$CONTROL_PAR_HIDE,16)            
            set_control_par(get_ui_id($HALL_micstrip),$CONTROL_PAR_HIDE,16)
    end if            
end function

function checkSettingsToggles
    if ($SETTINGS_toggle = 1)
        call AdjustSkinOffset
        $i := 0
        while ($i < num_elements(%ui_main))
            set_control_par(%ui_main[$i],$CONTROL_PAR_HIDE,16)
            inc($i)
        end while
        
        set_control_par(get_ui_id($CLOSE_micstrip),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
        set_control_par(get_ui_id($STAGE_micstrip),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
        set_control_par(get_ui_id($HALL_micstrip),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
        set_control_par(get_ui_id($TAIL_micstrip),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
        set_control_par(get_ui_id(%TUNING_table),$CONTROL_PAR_HIDE,$HIDE_PART_BG)
        set_control_par(get_ui_id(%table_velocity),$CONTROL_PAR_HIDE,$HIDE_PART_BG)        
        
        $i := 0
        while ($i < num_elements(%ui_advanced))
            set_control_par(%ui_advanced[$i],$CONTROL_PAR_HIDE,0)
            inc($i)
        end while        
        
        else            
            call AdjustSkinOffset
            $i := 0
            while ($i < num_elements(%ui_main))
                set_control_par(%ui_main[$i],$CONTROL_PAR_HIDE,0)
                inc($i)
            end while
        
            $i := 0
            while ($i < num_elements(%ui_advanced))
                set_control_par(%ui_advanced[$i],$CONTROL_PAR_HIDE,16)
                inc($i)
            end while
            
            call checkMicToggles
    end if    
end function

on ui_control($SETTINGS_toggle)
    call checkSettingsToggles
end on

function checkGlobalFXToggles
    if ($GLOBAL_FX = 1)
        set_text($DISPLAY_label,"")
        move_control_px($DISPLAY_label,260,10)
        set_text($DISPLAY_value,"")
        move_control_px($DISPLAY_value,350,10)           
        call AdjustSkinOffset
        $i := 0
        set_control_par(get_ui_id($UI_COLOR),$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
        while ($i < (num_elements(%ui_advanced)))
            set_control_par(%ui_advanced[$i],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
            inc($i)
        end while
        $i := 0
        while ($i < (num_elements(%ui_main)))
            set_control_par(%ui_main[$i],$CONTROL_PAR_HIDE,$HIDE_WHOLE_CONTROL)
            inc($i)
        end while
    
        $i := 0
        while ($i < num_elements(%ui_globalfx))
            set_control_par(%ui_globalfx[$i],$CONTROL_PAR_HIDE,0)
            inc($i)
        end while
    
        else
            $i := 0
            while ($i < num_elements(%ui_globalfx))
                set_control_par(%ui_globalfx[$i],$CONTROL_PAR_HIDE,16)
                inc($i)
            end while 
            set_control_par(get_ui_id($UI_COLOR),$CONTROL_PAR_HIDE,0)
            move_control_px($DISPLAY_label,115,373)
            move_control_px($DISPLAY_value,195,373) 
            set_text($DISPLAY_label,"") 
            set_text($DISPLAY_value,"")         
            call checkSettingsToggles
    end if    
end function

on ui_control($GLOBAL_FX_power)
    $GLOBAL_FX := 0
    $GLOBAL_FX_power := 0
    call checkGlobalFXToggles
end on

on ui_control($GLOBAL_FX)        
    call checkGlobalFXToggles
end on

on ui_control($CLOSE_displaytoggle)
    if ($GLOBAL_FX = 1)
        exit
    end if
    if ($CLOSE_displaytoggle = 1)
        set_control_par(get_ui_id($CLOSE_fxstrip),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($CLOSE_compressor),$CONTROL_PAR_HIDE,16)  
        set_control_par(get_ui_id($CLOSE_HF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($CLOSE_HMF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($CLOSE_LF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($CLOSE_LMF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($CLOSE_offset),$CONTROL_PAR_HIDE,0)
        set_control_par(get_ui_id($CLOSE_width),$CONTROL_PAR_HIDE,0)
        set_control_par(get_ui_id($CLOSE_volume),$CONTROL_PAR_HIDE,0)            
        set_control_par(get_ui_id($CLOSE_micstrip),$CONTROL_PAR_HIDE,0)
        else
            set_control_par(get_ui_id($CLOSE_fxstrip),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($CLOSE_compressor),$CONTROL_PAR_HIDE,0) 
            set_control_par(get_ui_id($CLOSE_HF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($CLOSE_HMF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($CLOSE_LF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($CLOSE_LMF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($CLOSE_offset),$CONTROL_PAR_HIDE,16)
            set_control_par(get_ui_id($CLOSE_width),$CONTROL_PAR_HIDE,16)
            set_control_par(get_ui_id($CLOSE_volume),$CONTROL_PAR_HIDE,16)            
            set_control_par(get_ui_id($CLOSE_micstrip),$CONTROL_PAR_HIDE,16)
    end if  
end on

on ui_control($TAIL_displaytoggle)
    if ($GLOBAL_FX = 1)
        exit
    end if
    if ($TAIL_displaytoggle = 1)
        set_control_par(get_ui_id($TAIL_fxstrip),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($TAIL_compressor),$CONTROL_PAR_HIDE,16)  
        set_control_par(get_ui_id($TAIL_HF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($TAIL_HMF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($TAIL_LF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($TAIL_LMF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($TAIL_offset),$CONTROL_PAR_HIDE,0)
        set_control_par(get_ui_id($TAIL_width),$CONTROL_PAR_HIDE,0)
        set_control_par(get_ui_id($TAIL_volume),$CONTROL_PAR_HIDE,0)            
        set_control_par(get_ui_id($TAIL_micstrip),$CONTROL_PAR_HIDE,0)
        else
            set_control_par(get_ui_id($TAIL_fxstrip),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($TAIL_compressor),$CONTROL_PAR_HIDE,0) 
            set_control_par(get_ui_id($TAIL_HF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($TAIL_HMF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($TAIL_LF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($TAIL_LMF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($TAIL_offset),$CONTROL_PAR_HIDE,16)
            set_control_par(get_ui_id($TAIL_width),$CONTROL_PAR_HIDE,16)
            set_control_par(get_ui_id($TAIL_volume),$CONTROL_PAR_HIDE,16)            
            set_control_par(get_ui_id($TAIL_micstrip),$CONTROL_PAR_HIDE,16)
    end if 
end on

on ui_control($STAGE_displaytoggle)
    if ($GLOBAL_FX = 1)
        exit
    end if
    if ($STAGE_displaytoggle = 1)
        set_control_par(get_ui_id($STAGE_fxstrip),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($STAGE_compressor),$CONTROL_PAR_HIDE,16)  
        set_control_par(get_ui_id($STAGE_HF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($STAGE_HMF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($STAGE_LF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($STAGE_LMF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($STAGE_offset),$CONTROL_PAR_HIDE,0)
        set_control_par(get_ui_id($STAGE_width),$CONTROL_PAR_HIDE,0)
        set_control_par(get_ui_id($STAGE_volume),$CONTROL_PAR_HIDE,0)            
        set_control_par(get_ui_id($STAGE_micstrip),$CONTROL_PAR_HIDE,0)
        else
            set_control_par(get_ui_id($STAGE_fxstrip),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($STAGE_compressor),$CONTROL_PAR_HIDE,0) 
            set_control_par(get_ui_id($STAGE_HF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($STAGE_HMF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($STAGE_LF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($STAGE_LMF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($STAGE_offset),$CONTROL_PAR_HIDE,16)
            set_control_par(get_ui_id($STAGE_width),$CONTROL_PAR_HIDE,16)
            set_control_par(get_ui_id($STAGE_volume),$CONTROL_PAR_HIDE,16)            
            set_control_par(get_ui_id($STAGE_micstrip),$CONTROL_PAR_HIDE,16)
    end if  
end on

on ui_control($HALL_displaytoggle)
    if ($GLOBAL_FX = 1)
        exit
    end if
    if ($HALL_displaytoggle = 1)
        set_control_par(get_ui_id($HALL_fxstrip),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($HALL_compressor),$CONTROL_PAR_HIDE,16)  
        set_control_par(get_ui_id($HALL_HF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($HALL_HMF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($HALL_LF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($HALL_LMF),$CONTROL_PAR_HIDE,16)
        set_control_par(get_ui_id($HALL_offset),$CONTROL_PAR_HIDE,0)
        set_control_par(get_ui_id($HALL_width),$CONTROL_PAR_HIDE,0)
        set_control_par(get_ui_id($HALL_volume),$CONTROL_PAR_HIDE,0)            
        set_control_par(get_ui_id($HALL_micstrip),$CONTROL_PAR_HIDE,0)
        else
            set_control_par(get_ui_id($HALL_fxstrip),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($HALL_compressor),$CONTROL_PAR_HIDE,0) 
            set_control_par(get_ui_id($HALL_HF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($HALL_HMF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($HALL_LF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($HALL_LMF),$CONTROL_PAR_HIDE,0)
            set_control_par(get_ui_id($HALL_offset),$CONTROL_PAR_HIDE,16)
            set_control_par(get_ui_id($HALL_width),$CONTROL_PAR_HIDE,16)
            set_control_par(get_ui_id($HALL_volume),$CONTROL_PAR_HIDE,16)            
            set_control_par(get_ui_id($HALL_micstrip),$CONTROL_PAR_HIDE,16)
    end if     
end on

function changeDisplay
    set_control_par_str(get_ui_id($DISPLAY_label),$CONTROL_PAR_TEXT,@DISPLAY_label_string) 
    set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,@DISPLAY_label_value)
    $DisplayChanged := $DisplayChanged + 1
    wait(2000000) 
    $DisplayChanged := $DisplayChanged - 1
    if ($DisplayChanged = 0)
        set_control_par_str(get_ui_id($DISPLAY_label),$CONTROL_PAR_TEXT,"") 
        set_control_par_str(get_ui_id($DISPLAY_value),$CONTROL_PAR_TEXT,"")        
    end if
    
end function

function resetVelocityCurve
    $i := 0
    while ($i <= 64)
        if ($i # 64) 
            %table_Velocity[$i] := $i * 2
            else
                %table_Velocity[$i] := 127
        end if
        inc($i)
    end while
    @DISPLAY_label_string := "Velo curve reset." 
    @DISPLAY_label_value := ""
    call changeDisplay      
    
end function

on ui_control($VELOCITY_presets)
    $presetType := 50
    select ($VELOCITY_presets)
        case 0
            { Default }
            call resetVelocityCurve            
        case 1 { Light }            
            $i := 0
            while ($i < 65)
                %table_Velocity[$i] := %Velocity_Light[$i]
                inc($i)
            end while
        case 2 { Very Light }
            $i := 0
            while ($i < 65)
                %table_Velocity[$i] := %Velocity_VeryLight[$i]
                inc($i)
            end while
        case 3 { Lightest }
            $i := 0
            while ($i < 65)
                %table_Velocity[$i] := %Velocity_Lightest[$i]
                inc($i)
            end while        
        case 4 { Heavy }
            $i := 0
            while ($i < 65)
                %table_Velocity[$i] := %Velocity_Heavy[$i]
                inc($i)
            end while        
        case 5 { Very Heavy }
            $i := 0
            while ($i < 65)
                %table_Velocity[$i] := %Velocity_VeryHeavy[$i]
                inc($i)
            end while        
        case 6 { Heaviest }
            $i := 0
            while ($i < 65)
                %table_Velocity[$i] := %Velocity_Heaviest[$i]
                inc($i)
            end while        
        case 7 { Floor 1 }
            $i := 0
            while ($i < 65)
                %table_Velocity[$i] := %Velocity_Floor1[$i]
                inc($i)
            end while        
        case 8 { Floor 2 }
            $i := 0
            while ($i < 65)
                %table_Velocity[$i] := %Velocity_Floor2[$i]
                inc($i)
            end while        
        case 9 { Ceiling 1 }
            $i := 0
            while ($i < 65)
                %table_Velocity[$i] := %Velocity_Ceiling1[$i]
                inc($i)
            end while        
        case 10 { Ceiling 2 }
            $i := 0
            while ($i < 65)
                %table_Velocity[$i] := %Velocity_Ceiling2[$i]
                inc($i)
            end while        
        case 99
            $i := 0
            while ($i < 500)
                %PRESET_Array[$i] := 0
                inc($i)
            end while
            { Save preset }
            $i := 0
            while ($i < 66) 
                if ($i = 0)
                    %PRESET_Array[$i] := 50 {50 := Velo preset }
                    else 
                        %PRESET_Array[$i] := %table_Velocity[$i-1]
                end if
                inc($i)
            end while
            $save_arr_id := save_array(%PRESET_Array,0)
        case 100            
            $load_arr_id := load_array(%PRESET_Array,0)                            
    end select
end on



on async_complete
    if ($NI_ASYNC_ID = $load_arr_id)
        { Load a preset }         
        select (%PRESET_Array[0])            
            case 50
                if ($presetType # 50)
                    exit 
                end if
                { Velo preset }
                $i := 0
                while ($i < 65)
                    %table_Velocity[$i] := %PRESET_Array[$i+1]
                    inc($i)
                end while
                
            case 100
                if ($presetType # 100)
                    exit
                end if
                { Tune preset }
                $i := 0
                $TUNING_key := %PRESET_Array[1]
                while ($i < 12)
                    %tuning_table[$i] := %PRESET_Array[$i+2]
                    inc($i)
                end while
                
            case 150
                if ($presetType # 150)
                    exit
                end if
                call LoadPreset
        end select
    end if
    if ($NI_ASYNC_ID = $save_arr_id)
        message("Saved preset.")
    end if
end on

on ui_control($VELOCITY_revert)
    call resetVelocityCurve
end on

on ui_control($TUNING_revert)
    %TUNING_table[0] := 0
    %TUNING_table[1] := 0
    %TUNING_table[2] := 0
    %TUNING_table[3] := 0
    %TUNING_table[4] := 0
    %TUNING_table[5] := 0
    %TUNING_table[6] := 0
    %TUNING_table[7] := 0
    %TUNING_table[8] := 0
    %TUNING_table[9] := 0
    %TUNING_table[10] := 0    
    %TUNING_table[11] := 0    
    @DISPLAY_label_string := "Scale tuning reset." 
    @DISPLAY_label_value := ""
    call changeDisplay    
end on
on ui_control($TUNING_presets)
    $presetType := 100
    select($TUNING_presets)
        case 0
            %TUNING_table[0] := 0
            %TUNING_table[1] := 0
            %TUNING_table[2] := 0
            %TUNING_table[3] := 0
            %TUNING_table[4] := 0
            %TUNING_table[5] := 0
            %TUNING_table[6] := 0
            %TUNING_table[7] := 0
            %TUNING_table[8] := 0
            %TUNING_table[9] := 0
            %TUNING_table[10] := 0
            %TUNING_table[11] := 0
            $TUNING_key := 0
        case 1
            $i := 0
            while ($i < 13)
                if ($i = 0)
                    $TUNING_key := $i
                    else
                        %TUNING_table[$i-1] := %Tuning_JustIntonation[$i]
                end if
                inc($i)
            end while
        case 2
            $i := 0
            while ($i < 13)
                if ($i = 0)
                    $TUNING_key := $i
                    else
                        %TUNING_table[$i-1] := %Tuning_Pythagorean[$i]
                end if
                inc($i)
            end while            
        case 3
            $i := 0
            while ($i < 13)
                if ($i = 0)
                    $TUNING_key := $i
                    else
                        %TUNING_table[$i-1] := %Tuning_Concert432[$i]
                end if
                inc($i)
            end while
        case 4
            $i := 0
            while ($i < 13)
                if ($i = 0)
                    $TUNING_key := $i
                    else
                        %TUNING_table[$i-1] := %Tuning_Concert442[$i]
                end if
                inc($i)
            end while
        case 5
            $i := 0
            while ($i < 13)
                if ($i = 0)
                    $TUNING_key := $i
                    else
                        %TUNING_table[$i-1] := %Tuning_Concert448[$i]
                end if
                inc($i)
            end while            
        case 99
            $i := 0
            while ($i < 500)
                %PRESET_Array[$i] := 0
                inc($i)
            end while
            { Save preset }
            $i := 0
            while ($i < 13) 
                if ($i = 0)
                    %PRESET_Array[$i] := 100 {100 := Tune preset }                    
                end if
                if ($i = 1)
                    %PRESET_Array[$i] := $TUNING_key
                end if
                if ($i >= 2)
                    %PRESET_Array[$i] := %TUNING_table[$i-2]
                end if
                inc($i)
            end while
            $save_arr_id := save_array(%PRESET_Array,0)
        case 100            
            $load_arr_id := load_array(%PRESET_Array,0)                            
  end select  
end on

on ui_control($TUNING_key)
    @DISPLAY_label_string := "Tuning Root:" 
    @DISPLAY_label_value := "Key of " & !KEY_STRINGS[$TUNING_key]
    call changeDisplay
end on

on ui_control($MASTER_volume)
    if ($GLOBAL_FX = 1)
        exit
    end if
        
    set_engine_par($ENGINE_PAR_GN_GAIN,$MASTER_volume,-1,3,$NI_BUS_OFFSET + 0)    
    set_engine_par($ENGINE_PAR_GN_GAIN,$MASTER_volume,-1,3,$NI_BUS_OFFSET + 1)    
    set_engine_par($ENGINE_PAR_GN_GAIN,$MASTER_volume,-1,3,$NI_BUS_OFFSET + 2)    
    set_engine_par($ENGINE_PAR_GN_GAIN,$MASTER_volume,-1,3,$NI_BUS_OFFSET + 3)    

    
    @DISPLAY_label_string := "Master Level:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_GN_GAIN,-1,3,$NI_BUS_OFFSET + 0) & "dB"
    call changeDisplay    
end on

on ui_control($transpose)
    if ($GLOBAL_FX = 1)
        exit
    end if
    @DISPLAY_label_string := "Transpose:"
    @DISPLAY_label_value := "" & $transpose & " semitones"
    call changeDisplay    
end on

on ui_control($EXTRA_RR)
    @DISPLAY_label_string := "Extra RR:"
    if ($EXTRA_RR = 1)
        @DISPLAY_label_value := "ON"
        else
            @DISPLAY_label_value := "OFF"
    end if
    call changeDisplay        
end on
{ BUSES 0-3: Close, hall, stage, tail }

on ui_control($FX_eq)
    set_engine_par($ENGINE_PAR_EFFECT_BYPASS,abs(1 - $FX_eq),-1,1,1)
    @DISPLAY_label_string := "Global EQ:"
    if ($FX_eq = 1)
        @DISPLAY_label_value := "ON"
        else
            @DISPLAY_label_value := "OFF"
    end if
    call changeDisplay        
end on

on ui_control($FX_eq_lf_freq)
    set_engine_par($ENGINE_PAR_SEQ_LF_FREQ,$FX_eq_lf_freq,-1,1,1)
    @DISPLAY_label_string := "EQ Low Freq:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_LF_FREQ,-1,1,1) & "hz"
    call changeDisplay
end on

on ui_control($FX_eq_lmf_freq)
    set_engine_par($ENGINE_PAR_SEQ_LMF_FREQ,$FX_eq_lmf_freq,-1,1,1)
    @DISPLAY_label_string := "EQ LM Freq:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_LMF_FREQ,-1,1,1) & "hz"
    call changeDisplay
end on

on ui_control($FX_eq_hf_freq)
    set_engine_par($ENGINE_PAR_SEQ_HF_FREQ,$FX_eq_hf_freq,-1,1,1)
    @DISPLAY_label_string := "EQ High Freq:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_HF_FREQ,-1,1,1) & "hz"
    call changeDisplay
end on

on ui_control($FX_eq_hmf_freq)
    set_engine_par($ENGINE_PAR_SEQ_HMF_FREQ,$FX_eq_hmf_freq,-1,1,1)
    @DISPLAY_label_string := "EQ HM Freq:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_HMF_FREQ,-1,1,1) & "hz"
    call changeDisplay
end on

on ui_control($FX_eq_lf_gain)
    set_engine_par($ENGINE_PAR_SEQ_LF_GAIN,$FX_eq_lf_gain,-1,1,1)
    @DISPLAY_label_string := "EQ Low Gain:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_LF_GAIN,-1,1,1) & "dB"
    call changeDisplay
end on

on ui_control($FX_eq_lmf_gain)
    set_engine_par($ENGINE_PAR_SEQ_LMF_GAIN,$FX_eq_lmf_gain,-1,1,1)
    @DISPLAY_label_string := "EQ LM Gain:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_LMF_GAIN,-1,1,1) & "dB"
    call changeDisplay
end on

on ui_control($FX_eq_hf_gain)
    set_engine_par($ENGINE_PAR_SEQ_HF_GAIN,$FX_eq_hf_gain,-1,1,1)
    @DISPLAY_label_string := "EQ High Gain:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_HF_GAIN,-1,1,1) & "dB"
    call changeDisplay
end on

on ui_control($FX_eq_hmf_gain)
    set_engine_par($ENGINE_PAR_SEQ_HMF_GAIN,$FX_eq_hmf_gain,-1,1,1)
    @DISPLAY_label_string := "EQ HM Gain:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_HMF_GAIN,-1,1,1) & "dB"
    call changeDisplay
end on

on ui_control($FX_eq_lmf_q)
    set_engine_par($ENGINE_PAR_SEQ_LMF_Q,$FX_eq_lmf_q,-1,1,1)
    @DISPLAY_label_string := "EQ LM Q:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_LMF_Q,-1,1,1) & " Oct"
    call changeDisplay
end on

on ui_control($FX_eq_hmf_q)
    set_engine_par($ENGINE_PAR_SEQ_HMF_Q,$FX_eq_hmf_q,-1,1,1)
    @DISPLAY_label_string := "EQ HM Q:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_HMF_Q,-1,1,1) & " Oct"
    call changeDisplay
end on

on ui_control($FX_compressor)
    set_engine_par($ENGINE_PAR_EFFECT_BYPASS,abs(1 - $FX_compressor),-1,2,1)
    @DISPLAY_label_string := "G-Compressor:"
    if ($FX_compressor = 1)
        @DISPLAY_label_value := "ON"
        else
            @DISPLAY_label_value := "OFF"
    end if
    call changeDisplay        
end on

on ui_control($FX_compressor_threshold)
    set_engine_par($ENGINE_PAR_SCOMP_THRESHOLD,$FX_compressor_threshold,-1,2,1)
    @DISPLAY_label_string := "Threshold:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SCOMP_THRESHOLD,-1,2,1) & "dB"
    call changeDisplay
end on

on ui_control($FX_compressor_makeup)
    set_engine_par($ENGINE_PAR_SCOMP_MAKEUP,$FX_compressor_makeup,-1,2,1)
    @DISPLAY_label_string := "Makeup Gain:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SCOMP_MAKEUP,-1,2,1) & "dB"
    call changeDisplay
end on

on ui_control($FX_compressor_attack)
    set_engine_par($ENGINE_PAR_SCOMP_ATTACK,$FX_compressor_attack,-1,2,1)
    @DISPLAY_label_string := "Makeup Gain:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SCOMP_ATTACK,-1,2,1) & "ms"
    call changeDisplay
end on

on ui_control($FX_compressor_mix)
    set_engine_par($ENGINE_PAR_SCOMP_MIX,$FX_compressor_mix,-1,2,1)
    @DISPLAY_label_string := "Comp. Mix:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SCOMP_MIX,-1,2,1) & "%"
    call changeDisplay
end on

on ui_control($FX_compressor_ratio)
    set_engine_par($ENGINE_PAR_SCOMP_RATIO,$FX_compressor_ratio,-1,2,1)
    @DISPLAY_label_string := "Ratio:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SCOMP_RATIO,-1,2,1) & ""
    call changeDisplay
end on

on ui_control($FX_saturator)
    set_engine_par($ENGINE_PAR_EFFECT_BYPASS,abs(1 - $FX_saturator),-1,3,1)
    @DISPLAY_label_string := "Tape Sat:"
    if ($FX_saturator = 1)
        @DISPLAY_label_value := "ON"
        else
            @DISPLAY_label_value := "OFF"
    end if
    call changeDisplay        
end on

on ui_control($FX_saturator_hf)
    set_engine_par($ENGINE_PAR_TP_HF_ROLLOFF,$FX_saturator_hf,-1,3,1)
    @DISPLAY_label_string := "HF Rolloff:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_TP_HF_ROLLOFF,-1,3,1) & "hz"
    call changeDisplay
end on

on ui_control($FX_saturator_warmth)
    set_engine_par($ENGINE_PAR_TP_WARMTH,$FX_saturator_warmth,-1,3,1)
    @DISPLAY_label_string := "Warmth:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_TP_WARMTH,-1,3,1) & "dB"
    call changeDisplay
end on

on ui_control($FX_saturator_gain)
    set_engine_par($ENGINE_PAR_TP_GAIN,$FX_saturator_gain,-1,3,1)
    @DISPLAY_label_string := "Sat. Gain:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_TP_GAIN,-1,3,1) & "dB"
    call changeDisplay
end on

on ui_control($FX_transientdesigner)
    set_engine_par($ENGINE_PAR_EFFECT_BYPASS,abs(1 - $FX_transientdesigner),-1,4,1)
    @DISPLAY_label_string := "Trans. Shaper:"
    if ($FX_transientdesigner = 1)
        @DISPLAY_label_value := "ON"
        else
            @DISPLAY_label_value := "OFF"
    end if
    call changeDisplay        
end on

on ui_control($FX_td_attack)
    set_engine_par($ENGINE_PAR_TR_ATTACK,$FX_td_attack,-1,4,1)
    @DISPLAY_label_string := "Attack Level:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_TR_ATTACK,-1,4,1) & "%"
    call changeDisplay
end on

on ui_control($FX_td_sustain)
    set_engine_par($ENGINE_PAR_TR_SUSTAIN,$FX_td_sustain,-1,4,1)
    @DISPLAY_label_string := "Sustain Level:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_TR_SUSTAIN,-1,4,1) & "%"
    call changeDisplay
end on

on ui_control($FX_td_input)
    set_engine_par($ENGINE_PAR_TR_INPUT,$FX_td_input,-1,4,1)
    @DISPLAY_label_string := "Trans. Input:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_TR_INPUT,-1,4,1) & "dB"
    call changeDisplay
end on

on ui_control($FX_reverb)
    set_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS,abs(1 - $FX_reverb),-1,0,0)
    @DISPLAY_label_string := "Conv. Reverb:"
    if ($FX_reverb = 1)
        @DISPLAY_label_value := "ON"
        else
            @DISPLAY_label_value := "OFF"
    end if
    call changeDisplay        
end on

on ui_control($FX_reverb_wet)
    set_engine_par($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN,$FX_reverb_wet,-1,0,0)
    @DISPLAY_label_string := "Reverb Wet:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN,-1,0,0) & " dB"
    call changeDisplay
end on

on ui_control($FX_reverb_hpf)
    set_engine_par($ENGINE_PAR_IRC_FREQ_HIGHPASS_ER,$FX_reverb_hpf,-1,0,0)
    set_engine_par($ENGINE_PAR_IRC_FREQ_HIGHPASS_LR,$FX_reverb_hpf,-1,0,0)
    @DISPLAY_label_string := "Reverb HPF:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_IRC_FREQ_HIGHPASS_ER,-1,0,0) & "hz"
    call changeDisplay
end on

on ui_control($FX_reverb_lpf)
    set_engine_par($ENGINE_PAR_IRC_FREQ_LOWPASS_ER,$FX_reverb_lpf,-1,0,0)
    set_engine_par($ENGINE_PAR_IRC_FREQ_LOWPASS_LR,$FX_reverb_lpf,-1,0,0)
    @DISPLAY_label_string := "Reverb LPF:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_IRC_FREQ_LOWPASS_ER,-1,0,0) & "hz"
    call changeDisplay
end on

on ui_control($FX_reverb_size)
    set_engine_par($ENGINE_PAR_IRC_LENGTH_RATIO_ER,$FX_reverb_size,-1,0,0)
    set_engine_par($ENGINE_PAR_IRC_LENGTH_RATIO_LR,$FX_reverb_size,-1,0,0)
    @DISPLAY_label_string := "Reverb Size:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_IRC_LENGTH_RATIO_ER,-1,0,0) & "%"
    call changeDisplay
end on

on ui_control($CLOSE_HF)
    if ($GLOBAL_FX = 1)
        exit
    end if
    set_engine_par($ENGINE_PAR_SEQ_HF_GAIN,$CLOSE_HF,-1,1,$NI_BUS_OFFSET + 0)    
    @DISPLAY_label_string := "Close HF:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_HF_GAIN,-1,1,$NI_BUS_OFFSET + 0) & "dB"
    call changeDisplay            
end on

on ui_control($CLOSE_HMF)
    if ($GLOBAL_FX = 1)
        exit
    end if
    set_engine_par($ENGINE_PAR_SEQ_HMF_GAIN,$CLOSE_HMF,-1,1,$NI_BUS_OFFSET + 0)    
    @DISPLAY_label_string := "Close HMF:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_HMF_GAIN,-1,1,$NI_BUS_OFFSET + 0) & "dB"
    call changeDisplay            
end on

on ui_control($CLOSE_LF)
    if ($GLOBAL_FX = 1)
        exit
    end if
    set_engine_par($ENGINE_PAR_SEQ_LF_GAIN,$CLOSE_LF,-1,1,$NI_BUS_OFFSET + 0)    
    @DISPLAY_label_string := "Close LF:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_LF_GAIN,-1,1,$NI_BUS_OFFSET + 0) & "dB"
    call changeDisplay            
end on

on ui_control($CLOSE_LMF)
    if ($GLOBAL_FX = 1)
        exit
    end if
    set_engine_par($ENGINE_PAR_SEQ_LMF_GAIN,$CLOSE_LMF,-1,1,$NI_BUS_OFFSET + 0)    
    @DISPLAY_label_string := "Close LMF:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_LMF_GAIN,-1,1,$NI_BUS_OFFSET + 0) & "dB"
    call changeDisplay            
end on

on ui_control($STAGE_HF)
    if ($GLOBAL_FX = 1)
        exit
    end if
    set_engine_par($ENGINE_PAR_SEQ_HF_GAIN,$STAGE_HF,-1,1,$NI_BUS_OFFSET + 2)    
    @DISPLAY_label_string := "Stage HF:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_HF_GAIN,-1,1,$NI_BUS_OFFSET + 2) & "dB"
    call changeDisplay            
end on

on ui_control($STAGE_HMF)
    if ($GLOBAL_FX = 1)
        exit
    end if
    set_engine_par($ENGINE_PAR_SEQ_HMF_GAIN,$STAGE_HMF,-1,1,$NI_BUS_OFFSET + 2)    
    @DISPLAY_label_string := "Stage HMF:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_HMF_GAIN,-1,1,$NI_BUS_OFFSET + 2) & "dB"
    call changeDisplay            
end on

on ui_control($STAGE_LF)
    if ($GLOBAL_FX = 1)
        exit
    end if
    set_engine_par($ENGINE_PAR_SEQ_LF_GAIN,$STAGE_LF,-1,1,$NI_BUS_OFFSET + 2)    
    @DISPLAY_label_string := "StageLF:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_LF_GAIN,-1,1,$NI_BUS_OFFSET + 2) & "dB"
    call changeDisplay            
end on

on ui_control($STAGE_LMF)
    if ($GLOBAL_FX = 1)
        exit
    end if    
    set_engine_par($ENGINE_PAR_SEQ_LMF_GAIN,$STAGE_LMF,-1,1,$NI_BUS_OFFSET + 2)    
    @DISPLAY_label_string := "Stage LMF:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_LMF_GAIN,-1,1,$NI_BUS_OFFSET + 2) & "dB"
    call changeDisplay            
end on

on ui_control($HALL_HF)
    if ($GLOBAL_FX = 1)
        exit
    end if
    set_engine_par($ENGINE_PAR_SEQ_HF_GAIN,$HALL_HF,-1,1,$NI_BUS_OFFSET + 1)    
    @DISPLAY_label_string := "Hall HF:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_HF_GAIN,-1,1,$NI_BUS_OFFSET + 0) & "dB"
    call changeDisplay            
end on

on ui_control($HALL_HMF)
    if ($GLOBAL_FX = 1)
        exit
    end if
    set_engine_par($ENGINE_PAR_SEQ_HMF_GAIN,$HALL_HMF,-1,1,$NI_BUS_OFFSET + 1)    
    @DISPLAY_label_string := "Hall HMF:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_HMF_GAIN,-1,1,$NI_BUS_OFFSET + 0) & "dB"
    call changeDisplay            
end on

on ui_control($HALL_LF)
    if ($GLOBAL_FX = 1)
        exit
    end if
    set_engine_par($ENGINE_PAR_SEQ_LF_GAIN,$HALL_LF,-1,1,$NI_BUS_OFFSET + 1)    
    @DISPLAY_label_string := "Hall LF:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_LF_GAIN,-1,1,$NI_BUS_OFFSET + 0) & "dB"
    call changeDisplay            
end on

on ui_control($HALL_LMF)
    if ($GLOBAL_FX = 1)
        exit
    end if
    set_engine_par($ENGINE_PAR_SEQ_LMF_GAIN,$HALL_LMF,-1,1,$NI_BUS_OFFSET + 1)    
    @DISPLAY_label_string := "Hall LMF:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_LMF_GAIN,-1,1,$NI_BUS_OFFSET + 0) & "dB"
    call changeDisplay            
end on

on ui_control($TAIL_HF)
    if ($GLOBAL_FX = 1)
        exit
    end if
    set_engine_par($ENGINE_PAR_SEQ_HF_GAIN,$TAIL_HF,-1,1,$NI_BUS_OFFSET + 3)    
    @DISPLAY_label_string := "Pedal HF:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_HF_GAIN,-1,1,$NI_BUS_OFFSET + 3) & "dB"
    call changeDisplay            
end on

on ui_control($TAIL_HMF)
    if ($GLOBAL_FX = 1)
        exit
    end if
    set_engine_par($ENGINE_PAR_SEQ_HMF_GAIN,$TAIL_HMF,-1,1,$NI_BUS_OFFSET + 3)    
    @DISPLAY_label_string := "Pedal HMF:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_HMF_GAIN,-1,1,$NI_BUS_OFFSET + 3) & "dB"
    call changeDisplay            
end on

on ui_control($TAIL_LF)
    if ($GLOBAL_FX = 1)
        exit
    end if
    set_engine_par($ENGINE_PAR_SEQ_LF_GAIN,$TAIL_LF,-1,1,$NI_BUS_OFFSET + 3)    
    @DISPLAY_label_string := "Pedal LF:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_LF_GAIN,-1,1,$NI_BUS_OFFSET + 3) & "dB"
    call changeDisplay            
end on

on ui_control($TAIL_LMF)
    if ($GLOBAL_FX = 1)
        exit
    end if
    set_engine_par($ENGINE_PAR_SEQ_LMF_GAIN,$TAIL_LMF,-1,1,$NI_BUS_OFFSET + 3)    
    @DISPLAY_label_string := "Pedal LMF:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SEQ_LMF_GAIN,-1,1,$NI_BUS_OFFSET + 3) & "dB"
    call changeDisplay            
end on

on ui_control($CLOSE_offset)
    if ($GLOBAL_FX = 1)
        exit
    end if
    @DISPLAY_label_string := "Close Offset:"
    @DISPLAY_label_value := "" & ($CLOSE_offset / 1000) & "ms"
    call changeDisplay        
end on

on ui_control($STAGE_offset)
    if ($GLOBAL_FX = 1)
        exit
    end if
    @DISPLAY_label_string := "Stage Offset:"
    @DISPLAY_label_value := "" & ($STAGE_offset / 1000) & "ms"
    call changeDisplay        
end on

on ui_control($TAIL_offset)
    if ($GLOBAL_FX = 1)
        exit
    end if
    @DISPLAY_label_string := "Pedal Offset:"
    @DISPLAY_label_value := "" & ($TAIL_offset / 1000) & "ms"
    call changeDisplay        
end on

on ui_control($HALL_offset)
    if ($GLOBAL_FX = 1)
        exit
    end if
    @DISPLAY_label_string := "Hall Offset:"
    @DISPLAY_label_value := "" & ($HALL_offset / 1000) & "ms"
    call changeDisplay        
end on

on ui_control($CLOSE_compressor)
    set_engine_par($ENGINE_PAR_SCOMP_MIX,$CLOSE_compressor,-1,2,$NI_BUS_OFFSET + 0)
    @DISPLAY_label_string := "Close Comp.:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SCOMP_MIX,-1,2,$NI_BUS_OFFSET + 0) & "%"
    call changeDisplay        
end on

on ui_control($TAIL_compressor)
    set_engine_par($ENGINE_PAR_SCOMP_MIX,$TAIL_compressor,-1,2,$NI_BUS_OFFSET + 3)
    @DISPLAY_label_string := "Pedal Comp.:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SCOMP_MIX,-1,2,$NI_BUS_OFFSET + 3) & "%"
    call changeDisplay        
end on

on ui_control($STAGE_compressor)
    set_engine_par($ENGINE_PAR_SCOMP_MIX,$STAGE_compressor,-1,2,$NI_BUS_OFFSET + 2)
    @DISPLAY_label_string := "Stage Comp.:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SCOMP_MIX,-1,2,$NI_BUS_OFFSET + 2) & "%"
    call changeDisplay        
end on

on ui_control($HALL_compressor)
    set_engine_par($ENGINE_PAR_SCOMP_MIX,$HALL_compressor,-1,2,$NI_BUS_OFFSET + 1)
    @DISPLAY_label_string := "Hall Comp.:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SCOMP_MIX,-1,2,$NI_BUS_OFFSET + 1) & "%"
    call changeDisplay        
end on

on ui_control($CLOSE_width)
    if ($GLOBAL_FX = 1)
        exit
    end if
    set_engine_par($ENGINE_PAR_STEREO,$CLOSE_width,-1,0,$NI_BUS_OFFSET + 0)
    @DISPLAY_label_string := "Close Stereo:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_STEREO,-1,0,$NI_BUS_OFFSET + 0)
    call changeDisplay    
end on

on ui_control($HALL_width)
    if ($GLOBAL_FX = 1)
        exit
    end if
    set_engine_par($ENGINE_PAR_STEREO,$HALL_width,-1,0,$NI_BUS_OFFSET + 1)
    @DISPLAY_label_string := "Hall Stereo:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_STEREO,-1,0,$NI_BUS_OFFSET + 1)
    call changeDisplay    
end on

on ui_control($STAGE_width)
    if ($GLOBAL_FX = 1)
        exit
    end if
    set_engine_par($ENGINE_PAR_STEREO,$STAGE_width,-1,0,$NI_BUS_OFFSET + 2)
    @DISPLAY_label_string := "Stage Stereo:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_STEREO,-1,0,$NI_BUS_OFFSET + 2)
    call changeDisplay    
end on

on ui_control($TAIL_width)
    if ($GLOBAL_FX = 1)
        exit
    end if
    set_engine_par($ENGINE_PAR_STEREO,$TAIL_width,-1,0,$NI_BUS_OFFSET + 3)
    @DISPLAY_label_string := "Pedal Stereo:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_STEREO,-1,0,$NI_BUS_OFFSET + 3)
    call changeDisplay    
end on

on ui_control($velocityBright)
    $i := 0
    while ($i < num_elements(%SUSTAIN_groups))
        set_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$velocityBright,%SUSTAIN_groups[$i],find_mod(%SUSTAIN_groups[$i],"VEL_EQ_GAIN_1"),-1)
        set_engine_par($ENGINE_PAR_GAIN1,500000-($velocityBright/6),%SUSTAIN_groups[$i],0,-1)        
        inc($i)
    end while
    @DISPLAY_label_string := "Vel->Bright:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_MOD_TARGET_INTENSITY,%SUSTAIN_groups[0],find_mod(%SUSTAIN_groups[0],"VEL_EQ_GAIN_1"),-1) & "%"    
    call changeDisplay        
end on

on ui_control($velocityVolume)
    if ($altVelocity = 0)
        $i := 0
        while ($i < num_elements(%SUSTAIN_groups))
            set_engine_par($ENGINE_PAR_MOD_TARGET_INTENSITY,$velocityVolume,%SUSTAIN_groups[$i],find_mod(%SUSTAIN_groups[$i],"VEL_VOLUME"),-1)
            inc($i)
        end while
        
        @DISPLAY_label_string := "Vel->Volume:"
        @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_MOD_TARGET_INTENSITY,%SUSTAIN_groups[0],find_mod(%SUSTAIN_groups[0],"VEL_VOLUME"),-1) & "%"
        call changeDisplay    
        else
            $V_MULT := ($velocityVolume / 4000)
            
            if ($V_MULT < 0)
                $V_MULT := 0
            end if
                @DISPLAY_label_string := "Vel->Volume:"
                @DISPLAY_label_value := "" & $velocityVolume / 10000 & "%"
                call changeDisplay                
    end if
end on

on ui_control($AMP_attack)
    $i := 0
    while ($i < num_elements(%SUSTAIN_groups))
        set_engine_par($ENGINE_PAR_ATTACK,$AMP_attack,%SUSTAIN_groups[$i],0,-1)
        inc($i)
    end while
    
    @DISPLAY_label_string := "Attack Time:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_ATTACK,%SUSTAIN_groups[0],0,-1) & "ms"
    call changeDisplay    
   
end on

on ui_control($AMP_decay)
    $i := 0
    while ($i < num_elements(%SUSTAIN_groups))
        set_engine_par($ENGINE_PAR_DECAY,$AMP_decay,%SUSTAIN_groups[$i],0,-1)
        inc($i)
    end while
    
    @DISPLAY_label_string := "Decay Time:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_DECAY,%SUSTAIN_groups[0],0,-1) & "ms"
    call changeDisplay    
   
end on

on ui_control($AMP_sustain)
    $i := 0
    while ($i < num_elements(%SUSTAIN_groups))
        set_engine_par($ENGINE_PAR_SUSTAIN,$AMP_sustain,%SUSTAIN_groups[$i],0,-1)
        inc($i)
    end while
    
    @DISPLAY_label_string := "Sustain Vol:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_SUSTAIN,%SUSTAIN_groups[0],0,-1) & "dB"
    call changeDisplay    
   
end on

on ui_control($AMP_release)
    $i := 0
    while ($i < num_elements(%SUSTAIN_groups))
        set_engine_par($ENGINE_PAR_RELEASE,$AMP_release,%SUSTAIN_groups[$i],0,-1)
        inc($i)
    end while
    
    $i := 0
    $b := ($AMP_release * 10) / 8
    if ($b > 1000000)
        $b := 1000000
    end if
    while ($i < num_elements(%HALL_SUSTAIN_groups))
        set_engine_par($ENGINE_PAR_RELEASE,$b,%HALL_SUSTAIN_groups[$i],0,-1)
        inc($i)
    end while    
    
    @DISPLAY_label_string := "Release Time:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_RELEASE,%SUSTAIN_groups[0],0,-1) & "ms"
    call changeDisplay    
   
end on

on ui_control($releaseVolume)
    $i := 0
    while ($i < num_elements(%KEY_groups))
        set_engine_par($ENGINE_PAR_VOLUME,$releaseVolume,%KEY_groups[$i],-1,-1)
        inc($i)
    end while
    
    @DISPLAY_label_string := "Key Rls Vol:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_VOLUME,%KEY_groups[0],-1,-1) & "dB"
    call changeDisplay    
end on

on ui_control($pedalVolume)
    $i := 0
    while ($i < num_elements(%PEDAL_groups))
        set_engine_par($ENGINE_PAR_VOLUME,$pedalVolume,%PEDAL_groups[$i],-1,-1)
        inc($i)
    end while
    
    @DISPLAY_label_string := "Pedal Rls Vol:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_VOLUME,%PEDAL_groups[0],-1,-1) & "dB"
    call changeDisplay    
end on

on ui_control($CLOSE_volume)
    if ($GLOBAL_FX = 1)
        exit
    end if
    $i := 0
    while ($i < num_elements(%CLOSE_groups))
        set_engine_par($ENGINE_PAR_VOLUME,$CLOSE_volume,%CLOSE_groups[$i],-1,-1)
        inc($i)
    end while
    
    @DISPLAY_label_string := "Close Level:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_VOLUME,%CLOSE_groups[0],-1,-1) & "dB"
    call changeDisplay
end on

on ui_control($TAIL_volume)
    if ($GLOBAL_FX = 1)
        exit
    end if
    $i := 0
    while ($i < num_elements(%TAIL_groups))
        set_engine_par($ENGINE_PAR_VOLUME,$TAIL_volume,%TAIL_groups[$i],-1,-1)
        inc($i)
    end while
    
    @DISPLAY_label_string := "Tail Level:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_VOLUME,%TAIL_groups[0],-1,-1) & "dB"
    call changeDisplay    
end on

on ui_control($STAGE_volume)
    if ($GLOBAL_FX = 1)
        exit
    end if
    $i := 0
    while ($i < num_elements(%STAGE_groups))
        set_engine_par($ENGINE_PAR_VOLUME,$STAGE_volume,%STAGE_groups[$i],-1,-1)
        inc($i)
    end while

    @DISPLAY_label_string := "Stage Level:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_VOLUME,%STAGE_groups[0],-1,-1) & "dB"
    call changeDisplay    
end on

on ui_control($HALL_volume)
    if ($GLOBAL_FX = 1)
        exit
    end if
    $i := 0
    while ($i < num_elements(%HALL_groups))
        set_engine_par($ENGINE_PAR_VOLUME,$HALL_volume,%HALL_groups[$i],-1,-1)
        inc($i)
    end while
    
    @DISPLAY_label_string := "Hall Level:"
    @DISPLAY_label_value := "" & get_engine_par_disp($ENGINE_PAR_VOLUME,%HALL_groups[0],-1,-1) & "dB"
    call changeDisplay    
end on

on ui_control($PurgeMuted)
    $i := 0
    if ($PurgeMuted = 1)
        while ($i < num_elements(%CLOSE_groups))
            purge_group(%CLOSE_groups[$i],$CLOSE_purge)
            purge_group(%TAIL_groups[$i],$TAIL_purge)
            purge_group(%STAGE_groups[$i],$STAGE_purge)
            purge_group(%HALL_groups[$i],$HALL_purge)
            inc($i)
        end while
        else
            while ($i < num_elements(%CLOSE_groups))
                purge_group(%CLOSE_groups[$i],1)
                purge_group(%STAGE_groups[$i],1)
                purge_group(%TAIL_groups[$i],1)
                purge_group(%HALL_groups[$i],1)
                inc($i)
            end while            
    end if
end on

on ui_control($CLOSE_purge)
    if ($GLOBAL_FX = 1)
        exit
    end if
    if ($PurgeMuted = 1)
        $i := 0
        while ($i < num_elements(%CLOSE_groups))
            purge_group(%CLOSE_groups[$i],$CLOSE_purge)
            inc($i)
        end while
    end if
    
    @DISPLAY_label_string := "Close Mics:"
    if ($CLOSE_purge = 0)
        @DISPLAY_label_value := "Disabled"
        else
            @DISPLAY_label_value := "Enabled"
    end if
    
    call changeDisplay    
    
end on

on ui_control($TAIL_purge)
    if ($GLOBAL_FX = 1)
        exit
    end if
    if ($PurgeMuted = 1)
        $i := 0
        while ($i < num_elements(%CLOSE_groups))
            purge_group(%TAIL_groups[$i],$TAIL_purge)
            inc($i)
        end while
    end if
    
    @DISPLAY_label_string := "Tail Mics:"
    if ($TAIL_purge = 0)
        @DISPLAY_label_value := "Disabled"
        else
            @DISPLAY_label_value := "Enabled"
    end if   
    
    call changeDisplay 
end on

on ui_control($STAGE_purge)
    if ($GLOBAL_FX = 1)
        exit
    end if
    if ($PurgeMuted = 1)    
        $i := 0
        while ($i < num_elements(%CLOSE_groups))
            purge_group(%STAGE_groups[$i],$STAGE_purge)
            inc($i)
        end while
    end if
    
    @DISPLAY_label_string := "Stage Mics:"
    if ($STAGE_purge = 0)
        @DISPLAY_label_value := "Disabled"
        else
            @DISPLAY_label_value := "Enabled"
    end if    
    
    call changeDisplay
end on

on ui_control($HALL_purge)
    if ($GLOBAL_FX = 1)
        exit
    end if
    if ($PurgeMuted = 1)
        $i := 0
        while ($i < num_elements(%CLOSE_groups))
            purge_group(%HALL_groups[$i],$HALL_purge)
            inc($i)
        end while
    end if
    
    @DISPLAY_label_string := "Hall Mics:"
    if ($HALL_purge = 0)
        @DISPLAY_label_value := "Disabled"
        else
            @DISPLAY_label_value := "Enabled"
    end if    
    
    call changeDisplay
end on

on note    
    disallow_group($ALL_GROUPS)
    ignore_event($EVENT_ID)
    
    if ($EVENT_NOTE = 0)
        inc($debugCounter)
        if ($debugCounter = 15)
            $debugActive := 1
            message("DEBUG MODE ACTIVE")
        end if
        if ($debugCounter = 20)
            $LIGHT_RR := 0
            message("Round robins off")
        end if
        if ($debugCounter = 25)
            $LIGHT_SUSTAINS := 0
            message("Sustains off")
        end if
        if ($debugCounter = 30)
            $LIGHT_RR := 1
            message("RR on, sustains off")
        end if
        if ($debugCounter = 35)
            $LIGHT_RR := 0
            $CHROMATIC := 0
            message("RR, sus, chromatic off")
        end if
        exit
    end if
    
    if (%CC[64] > 0)
        { Pedal is down }
        $pedal_down := 1
    end if

    $poly_x := $EVENT_NOTE + $transpose
    
    if (($poly_x < 20) or ($poly_x > 108))
        exit
    end if
                   
    $play_velocity := %table_velocity[($EVENT_VELOCITY / 2)] + ($EVENT_VELOCITY mod 2)
    if ($play_velocity = 0)
        $play_velocity := 1
    end if
    if ($play_velocity > 127)
        $play_velocity := 127
    end if
     
    $dynamics_mod := %table_dynamic[$EVENT_NOTE + $transpose - 21]

    if ($altVelocity = 1)
        $altplay_velocity := $play_velocity
        $altplay_velocity := ($altplay_velocity * $dynamics_mod) / 100
        select ($altplay_velocity)
            case 0 to 15
                { Level 1 }
                $zone_velocity := 1                
            case 16 to 25
                { Level 2 }
                $zone_velocity := 15
            case 26 to 33
                { Level 3 }
                $zone_velocity := 33
            case 34 to 48
                { Level 4 }
                $zone_velocity := 49
            case 49 to 60
                { Level 5 }
                $zone_velocity := 65
            case 61 to 73
                { Level 6 }
                $zone_velocity := 80
            case 74 to 102
                { Level 7 }
                $zone_velocity := 96                
            case 103 to 127
                { Level 8 }
                $zone_velocity := 112
        end select
    end if

    $poly_a := abs($poly_x - %TUNING_keyroots[$TUNING_key]) mod 12
    $extraRRNote := 0
    
    if (($EXTRA_RR = 1) and (random(1,2) = 1))  
        $poly_b := random(1,$NEIGHBOR_RANGE) * %polarity[random(0,1)]
        if ($poly_b = $noteOffset)
            while ($poly_b = $noteOffset)
                $poly_b := random(1,$NEIGHBOR_RANGE) * %polarity[random(0,1)]
            end while
        end if      
        $noteOffset := $poly_b
        
        if (($poly_x + $noteOffset > $KEY_MAX) or ($poly_x - $noteOffset < $KEY_MIN))
            $noteOffset := -$noteOffset
        end if  
        
        $extraRRNote := $noteOffset      
    
    end if

    $poly_x := $poly_x + $extraRRNote                
    
    $tuneOffset := (%TUNING_table[$poly_a] * 1000) + (-$extraRRNote * 100000)
    { message($EVENT_ID & " Note: " & $poly_x & " " & $tuneOffset) }
            
    if (($pedal_down = 1) and ($LIGHT_SUSTAINS = 1))
        if ($CLOSE_purge = 1)
            allow_group(find_group("CLOSE.Sustain.On.rr" & (%rr[$poly_x] + 1)))
                if (($poly_x < 90) or (($poly_x >= 90) and ($HighDampers = 1)))
                    $e := play_note($poly_x,$zone_velocity,$CLOSE_offset,-1)  
                    else 
                        $e := play_note($poly_x,$zone_velocity,$CLOSE_offset,0) 
                end if   
            set_event_par($e,$EVENT_PAR_0,1)                            
            set_event_par($e,$EVENT_PAR_3,$tuneOffset)     
            change_tune($e,$tuneOffset,1)      
            if ($altVelocity = 1)
                change_vol($e,-$V_MULT * (127 - $play_velocity),1)
            end if          
         end if
        if ($TAIL_purge = 1)
            disallow_group($ALL_GROUPS)
            allow_group(find_group("TAIL.Sustain.On.rr" & (%rr[$poly_x] + 1)))
                if (($poly_x < 90) or (($poly_x >= 90) and ($HighDampers = 1)))
                    $e := play_note($poly_x,$zone_velocity,$TAIL_offset,-1)  
                    else 
                        $e := play_note($poly_x,$zone_velocity,$TAIL_offset,0) 
                end if   
                set_event_par($e,$EVENT_PAR_0,1)
                set_event_par($e,$EVENT_PAR_3,$tuneOffset)     
                change_tune($e,$tuneOffset,1)      
            if ($altVelocity = 1)
                change_vol($e,-$V_MULT * (127 - $play_velocity),1)
            end if          
        end if
        if ($STAGE_purge = 1)
            disallow_group($ALL_GROUPS)
            allow_group(find_group("STAGE.Sustain.On.rr" & (%rr[$poly_x] + 1)))
                if (($poly_x < 90) or (($poly_x >= 90) and ($HighDampers = 1)))
                    $e := play_note($poly_x,$zone_velocity,$STAGE_offset,-1)  
                    else 
                        $e := play_note($poly_x,$zone_velocity,$STAGE_offset,0) 
                end if            
                set_event_par($e,$EVENT_PAR_3,$tuneOffset)     
                change_tune($e,$tuneOffset,1)      
            if ($altVelocity = 1)
                change_vol($e,-$V_MULT * (127 - $play_velocity),1)
            end if          
        end if
        if ($HALL_purge = 1)
            disallow_group($ALL_GROUPS)
            allow_group(find_group("HALL.Sustain.On.rr" & (%rr[$poly_x] + 1)))
                if (($poly_x < 90) or (($poly_x >= 90) and ($HighDampers = 1)))
                    $e := play_note($poly_x,$zone_velocity,$HALL_offset,-1)  
                    else 
                        $e := play_note($poly_x,$zone_velocity,$HALL_offset,0) 
                end if
                set_event_par($e,$EVENT_PAR_3,$tuneOffset)     
                change_tune($e,$tuneOffset,1)      
            if ($altVelocity = 1)
                change_vol($e,-$V_MULT * (127 - $play_velocity),1)
            end if          
        end if        
        set_event_par($e,$EVENT_PAR_0,2)
        set_event_par($e,$EVENT_PAR_1,$ENGINE_UPTIME)
        if (%notesActive[$poly_x] = 0)
            %notesActive[$poly_x] := $play_velocity
            %notesActiveTiming[$poly_x] := $ENGINE_UPTIME            
            %notesActiveTuning[$poly_x] := $tuneOffset
            %notesHeld[$poly_x] := 1
            inc($numActiveNotes)
        end if
        
        
        { Microtuning! }
        
        { For example, we play 36 (C). poly_A is now 12. }
        { modulo poly_A by 12, to get 0. Use root tuning }
        { Or, we play 38, a D. Subtract root of 24 to get 14 }
        { 14 modulo 12 = 2 }        
        

        else
            
            if ($CLOSE_purge = 1)
                disallow_group($ALL_GROUPS)
                allow_group(find_group("CLOSE.Sustain.Off.rr" & (%rr[$poly_x] + 1)))
                if (($poly_x < 90) or (($poly_x >= 90) and ($HighDampers = 1)))
                    $e := play_note($poly_x,$zone_velocity,$CLOSE_offset,-1)  
                    else 
                        $e := play_note($poly_x,$zone_velocity,$CLOSE_offset,0) 
                end if
                set_event_par($e,$EVENT_PAR_3,$tuneOffset)     
                change_tune($e,$tuneOffset,1)      
                if ($altVelocity = 1)
                    change_vol($e,-$V_MULT * (127 - $play_velocity),1)
                end if        
            end if
            if ($TAIL_purge = 1)
                disallow_group($ALL_GROUPS)
                allow_group(find_group("TAIL.Sustain.Off.rr" & (%rr[$poly_x] + 1)))
                if (($poly_x < 90) or (($poly_x >= 90) and ($HighDampers = 1)))
                    $e := play_note($poly_x,$zone_velocity,$TAIL_offset,-1)  
                    else 
                        $e := play_note($poly_x,$zone_velocity,$TAIL_offset,0) 
                end if                
                set_event_par($e,$EVENT_PAR_3,$tuneOffset)     
                change_tune($e,$tuneOffset,1)      
                if ($altVelocity = 1)
                    change_vol($e,-$V_MULT * (127 - $play_velocity),1)
                end if                      
            end if
            if ($STAGE_purge = 1)
                disallow_group($ALL_GROUPS)
                allow_group(find_group("STAGE.Sustain.Off.rr" & (%rr[$poly_x] + 1)))
                if (($poly_x < 90) or (($poly_x >= 90) and ($HighDampers = 1)))
                    $e := play_note($poly_x,$zone_velocity,$STAGE_offset,-1)  
                    else 
                        $e := play_note($poly_x,$zone_velocity,$STAGE_offset,0) 
                end if
                set_event_par($e,$EVENT_PAR_3,$tuneOffset)     
                change_tune($e,$tuneOffset,1)      
                if ($altVelocity = 1)
                    change_vol($e,-$V_MULT * (127 - $play_velocity),1)
                end if                      
            end if
            if ($HALL_purge = 1)
                disallow_group($ALL_GROUPS)
                allow_group(find_group("HALL.Sustain.Off.rr" & (%rr[$poly_x] + 1)))
                if (($poly_x < 90) or (($poly_x >= 90) and ($HighDampers = 1)))
                    $e := play_note($poly_x,$zone_velocity,$HALL_offset,-1)  
                    else 
                        $e := play_note($poly_x,$zone_velocity,$HALL_offset,0) 
                end if
                set_event_par($e,$EVENT_PAR_3,$tuneOffset)     
                change_tune($e,$tuneOffset,1)      
                if ($altVelocity = 1)
                    change_vol($e,-$V_MULT * (127 - $play_velocity),1)
                end if                      
            end if  
            set_event_par($e,$EVENT_PAR_0,1)
            set_event_par($e,$EVENT_PAR_1,$ENGINE_UPTIME)

    end if
    
    if ($LIGHT_RR = 1)
        select (%rr[$poly_x])
            case 0
                %rr[$poly_x] := 1
            case 1
                %rr[$poly_x] := 0
        end select    
        else
            %rr[$poly_x] := 0
    end if
            
end on

on release    
    if (($EVENT_NOTE = 0) and ($pedalVolume > 0) and (($EVENT_VELOCITY = 1) or ($EVENT_VELOCITY = 2)))
        { Pedal release }         
         disallow_group($ALL_GROUPS)
           if ($CLOSE_purge = 1)
                allow_group(find_group("CLOSE.Pedal"))
                if ($EVENT_VELOCITY = 1)
                    allow_group(find_group("CLOSE.Pedal.Rel.rr" & ($pedalRelRR + 1)))
                end if
            end if
             if ($TAIL_purge = 1)
                allow_group(find_group("TAIL.Pedal"))
                if ($EVENT_VELOCITY = 1)
                    allow_group(find_group("TAIL.Pedal.Rel.rr" & ($pedalRelRR + 1)))
                end if
            end if
            if ($STAGE_purge = 1)
                allow_group(find_group("STAGE.Pedal"))
                if ($EVENT_VELOCITY = 1)
                    allow_group(find_group("STAGE.Pedal.Rel.rr" & ($pedalRelRR + 1)))
                end if
            end if
            if ($HALL_purge = 1)
                allow_group(find_group("HALL.Pedal"))
                if ($EVENT_VELOCITY = 1)
                    allow_group(find_group("HALL.Pedal.Rel.rr" & ($pedalRelRR + 1)))
                end if
            end if                       
                        
            inc($pedalRelRR)
            if ($pedalRelRR = 2)         
                $pedalRelRR := 0
            end if          
            
            if ($EVENT_VELOCITY = 1)
                $e := play_note(4 + $pedalUpRR,64,135000,-1)
                $pedalUpRR := $pedalUpRR + 1
                if ($pedalUpRR > 3)
                    $pedalUpRR := 0
                end if
                change_vol($e,-50000,1)
                
                if ($LIGHT_SUSTAINS = 1)
                    $i := 20
                    while ($i <= 108)                    
                        if ((%notesActive[$i] >= 1) and (%notesHeld[$i] = 0))               
                            $e := play_note($i,%notesActive[$i],165000,0)
                            change_tune($e,%notesActiveTuning[$i],1)                        
                            $poly_i := 8000 + (6200*$numActiveNotes) + (2*($ENGINE_UPTIME - %notesActiveTiming[$i]))
                            if ($i > 70)
                                $poly_i := $poly_i + (($i-70) * 1900)
                            end if
                            $poly_i := $poly_i * -1                        
                            change_vol($e,$poly_i,1)
                            %notesActive[$i] := 0
                            %notesActiveTuning[$i] := 0
                        end if
                        inc($i)
                        $numActiveNotes := 0
                    end while                
                end if
            end if
            if ($EVENT_VELOCITY = 2)
                $e := play_note(0 + $pedalDownRR,64,45000,-1)                
                $pedalDownRR := $pedalDownRR + 1
                if ($pedalDownRR > 3)
                    $pedalDownRR := 0
                end if
                change_vol($e,-36000,1)
            end if                        
            exit
    end if
    $poly_x := $EVENT_NOTE
    %notesHeld[$poly_x] := 0
    { %notesActive[$poly_x] := 0 }
    if ((get_event_par($EVENT_ID,$EVENT_PAR_0) = 1) and (($poly_x < 90) or (($poly_x >= 90) and ($HighDampers = 1))))
        { Play a release noise. }
        if (%CC[64] # 0)
            exit
        end if
        disallow_group($ALL_GROUPS)            
            if ($releaseVolume > 0)
                if ($CLOSE_purge = 1)
                    allow_group(find_group("CLOSE.Key.Rel.rr" & (%RELEASE_rr[$poly_x] + 1)))
                end if
                 if ($TAIL_purge = 1)
                    allow_group(find_group("TAIL.Key.Rel.rr" & (%RELEASE_rr[$poly_x] + 1)))
                end if
                if ($STAGE_purge = 1)
                    allow_group(find_group("STAGE.Key.Rel.rr" & (%RELEASE_rr[$poly_x] + 1)))
                end if
                if ($HALL_purge = 1)
                    allow_group(find_group("HALL.Key.Rel.rr" & (%RELEASE_rr[$poly_x] + 1)))
                end if 

                if ($LIGHT_RR = 1)
                    select (%rr[$poly_x])
                        case 0
                            %RELEASE_rr[$poly_x] := 1
                        case 1
                            %RELEASE_rr[$poly_x] := 0
                    end select  
                end if
                            
                $poly_i := $ENGINE_UPTIME - get_event_par($EVENT_ID,$EVENT_PAR_1)                            
                if ($poly_i < 10000)
                    $e := play_note($poly_x,$EVENT_VELOCITY,165000,-1)                    
                    $poly_a := abs($poly_x - %TUNING_keyroots[$TUNING_key]) mod 12                
                    $tuneOffset := get_event_par($EVENT_ID,$EVENT_PAR_3)
                    change_tune($e,(%TUNING_table[$poly_a] * 1000) + $tuneOffset,1)                                
                    change_vol($e,-4 * $poly_i,1)                             
                    change_vol($e,-$VR_MULT * (127 - $EVENT_VELOCITY),1)
                    if ($poly_x > 65)
                        change_vol($e,-500 * ($poly_x - 65),1)
                    end if                    
                end if
                { fade_out($e,1250000,1) }
            end if
    end if    
end on