KLAVYECÝLER - KORG-YAMAHA-ROLAND

Kod:


on init

    make_perfview 

    set_ui_height(4) 

    declare $dmxplay :=0



    declare ui_slider $knob (0,30)

    set_control_par_str(get_ui_id($knob),$CONTROL_PAR_TEXT,"")

    set_control_par_str(get_ui_id($knob),$CONTROL_PAR_PICTURE,"vumeter")

    set_control_par(get_ui_id($knob), $CONTROL_PAR_MOUSE_BEHAVIOUR, -500)

    set_control_par(get_ui_id($knob), $CONTROL_PAR_POS_X, 60)

    set_control_par(get_ui_id($knob), $CONTROL_PAR_POS_Y, 36)

end on



on note 

        while($dmxplay < $EVENT_VELOCITY / 3) 

                $knob := $dmxplay 

                inc($dmxplay)

        end while

end on



on release

        while($dmxplay > 0)

                $knob := $dmxplay

                wait(15000)

                dec($dmxplay)

        end while

end on