[Derbeder]

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