section init
#_scaling_mode=full
#bar_top = 300
#bar_bottom = 400
#red_left = 20
#red_right =270
#green_left = 270
#green_right =520
#blue_left = 520
#blue_right =780
#x=0
#y=0
#xv=0
#yv=0
#x_color=0
clear canvas =1
#color=$rgb_to_hex(255,0,0)
draw tile=rect name=red x1=#red_left y1=#bar_top x2=#red_right y2=#bar_bottom color=#color stroke_width=5
#color=$rgb_to_hex(0,255,0)
draw tile=rect name=green x1=#green_left y1=#bar_top x2=#green_right y2=#bar_bottom color=#color stroke_width=5
#color=$rgb_to_hex(0,0,255)
draw tile=rect name=blue x1=#blue_left y1=#bar_top x2=#blue_right y2=#bar_bottom color=#color stroke_width=5
draw tile=property color=black stroke_width=2 s=33 style=italic
draw tile=text name=txt_r x1=20 y1=30 text=$concate(@|_screen_resolution+": "+#_width_device+"/"+#_height_device) weight=bold
#k = $concate("x="+#x+" y="+#y)
draw tile=text name=txtr x1=20 y1=70 text=#k
draw tile=text name=txt x1=20 y1=150 text=$concate(@|_virtual_screen+": "+#_width_virtual+"/"+#_height_virtual) weight=bold
#kv = $concate("x_v="+#xv+" y_v="+#yv)
draw tile=text name=txtv x1=20 y1=190 text=#kv
#dxdy = $concate("dx="+#_DX+" dy="+#_DY )
draw tile=text name=dxdy x1=500 y1=80 text=#dxdy
draw tile=text name=txt3 x1=20 y1=410 text=@|_please_touch color=black
#selected_color = #color
draw tile=text name=sc x1=#x_color y1=250 text="" color=#color
#unit=$get_unit()
if #unit== "android"
draw tile=text name=txt4 x1=20 y1=480 text=@|_barhelp1 color=#777777 style=italic
draw tile=text name=txt5 x1=20 y1=520 text=$concate("- "+@_barhelp2) color=#777777 style=italic
draw tile=text name=txt6 x1=20 y1=560 text=$concate("- "+@_barhelp3) color=#777777 style=italic
endif
draw canvas=1
end
// after touch screen
section touch
#x= $draw.get_x_touch()
#x=$math.truncate(#x)
#y= $draw.get_y_touch()
#y=$math.truncate(#y)
#xv= $draw.get_x_touch_virtual()
#xv=$math.truncate(#xv)
#yv= $draw.get_y_touch_virtual()
#yv=$math.truncate(#yv)
// new text value
#k = $concate("x="+#x+" y="+#y)
#kv = $concate("x_virtual="+#xv+" y_virtual="+#yv)
// update text
#tt= $draw.set_text(txtr,#k)
// set name=txtr text=#k
#tt= $draw.set_text(txtv,#kv)
//set name=txtv text=#kv
if #xv>#blue_left && #xv < #blue_right && #yv>#bar_top && #yv<#bar_bottom
set name=sc color=blue
set name=sc x1=#blue_left
set name=sc text=blue
endif
if #xv>#red_left && #xv < #red_right && #yv>#bar_top && #yv<#bar_bottom
set name=sc color=red
set name=sc x1=#red_left
set name=sc text=red
endif
if #xv>#green_left && #xv < #green_right && #yv>#bar_top && #yv<#bar_bottom
set name=sc color=green
set name=sc x1=#green_left
set name=sc text=green
endif
draw canvas=1
end
section back
call script=05_004_draw_graphic
end
end scene 1
LIST OF EXAMPLES
Die bereitgestellten Screenshots können geringfügig von den tatsächlichen Ergebnissen der Skripte abweichen.