form port
tile=property w=100 h=100
tile=rect name=q x= 0 y=100 bgcolor=Gray
tile=rect name=q0 x=100 y=100 bgcolor=Cyan
tile=rect name=q1 x=200 y=200 bgcolor=blue
tile=rect name=q2 x=300 y=300 bgcolor=Lime
tile=rect name=q3 x=400 y=300 bgcolor=red
tile=rect name=q4 x=500 y=300 bgcolor=DarkGreen
tile=rect name=q5 x=600 y=300 bgcolor=Coral
tile=rect name=q6 x=700 y=300 bgcolor=Magenta
tile=rect name=q61 x=700 y=100 bgcolor=Navy
tile=rect name=q62 x=700 y=200 bgcolor=Olive
tile=rect name=q63 x=700 y=100 bgcolor=Cyan
tile=rect name=q71 x=700 y=400 bgcolor=DarkRed
tile=rect name=q72 x=700 y=500 bgcolor=Green
tile=rect name=q73 x=700 y=600 bgcolor=Black
tile=rect name=q74 x=700 y=700 bgcolor=Moccasin
tile=rect name=q75 x=700 y=800 bgcolor=Navy
tile=rect name=q76 x=700 y=900 bgcolor=Olive
tile=rect name=q77 x=700 y=1000 bgcolor=Orange
tile=rect name=q78 x=700 y=1100 bgcolor=Maroon
tile=rect name=q79 x=700 y=1200 bgcolor=Indigo h=80
tile=property size=28 w=100 h=100
tile=text name=w x=230 y=160 color=#0000ff text=$concate("w="+#w)
tile=text name=h x=310 y=240 color=#0000ff text=$concate("h="+#h)
tile=property size=28 w=400 x=10
tile=text name=t3 y=440 color=#000099 text=#wv
tile=text name=t1 y=480 color=#000000 text=#wd
tile=text name=t5 y=520 color=#990099 text=#dx
tile=text name=t4 y=560 color=#000099 text=#hv
tile=text name=t2 y=600 color=#000000 text=#hd
tile=text name=t6 y=640 color=#990099 text=#dy
tile=text name=tt x=10 y=900 color=#000099 w=700 size=28 text=#sm
tile=text name=tth x=10 y=950 color=#000099 w=700 size=28 text=#help
// green bar
tile=rect name=ccc x=0 y=1100 w=700 h=180 color=#006600
tile=text name=h0 x=20 y=1150 w=700 color=#000000 size=26 text=#h0
tile=text name=h1 x=20 y=1190 w=700 color=#000000 size=26 text=#h1
tile=button name=but x=0 y=10 w=800 h=100 bgcolor=#006666 color=#ffffff text= #ch_mode action=next
end
-----------------------------------------------------------------
form land
tile=property w=100 h=100
tile=rect name=q1 x=580 y=0 bgcolor=#000099
tile=rect name=q2 x=680 y=0 bgcolor=#066099
tile=rect name=q3 x=780 y=0 bgcolor=#000099
tile=rect name=q4 x=880 y=0 bgcolor=#440099
tile=rect name=q5 x=980 y=0 bgcolor=#088099
tile=rect name=q6 x=1080 y=0 bgcolor=#003899
tile=rect name=q7 x=1180 y=0 bgcolor=#077099
tile=rect name=q11 x=580 y=100 bgcolor=#000099
tile=rect name=q12 x=680 y=200 bgcolor=#000099
tile=rect name=q13 x=780 y=300 bgcolor=#044099
tile=rect name=q14 x=880 y=400 bgcolor=#004499
tile=rect name=q15 x=980 y=500 bgcolor=#000099
tile=rect name=q16 x= 0 y=600 bgcolor=#aaaaaa w=1180
tile=rect name=q17 x= 0 y=700 bgcolor=#bbbbbb w=1280
tile=rect name=q21 x=1180 y=100 bgcolor=#006688
tile=rect name=q22 x=1180 y=200 bgcolor=#000099
tile=rect name=q23 x=1180 y=300 bgcolor=#984422
tile=rect name=q24 x=1180 y=400 bgcolor=#448833
tile=rect name=q25 x=1180 y=500 bgcolor=#985699
tile=rect name=q26 x=1180 y=600 bgcolor=#885566
tile=property size=28
tile=text name=w x=790 y=255 text=$concate("w=",#w) size=28
tile=text name=h x=890 y=340 text=$concate("h=",#h) size=28
tile=text name=t3 x=2 y=130 color=#000099 text=#wv
tile=text name=t1 x=2 y=170 color=#000000 text=#wd
tile=text name=t5 x=2 y=210 color=#990099 text=#dx
tile=text name=t4 x=2 y=280 color=#000099 text=#hv
tile=text name=t2 x=2 y=320 color=#000000 text=#hd
tile=text name=t6 x=2 y=360 color=#990099 text=#dy
// current mode
tile=text name=tt x=2 y=480 color=#000099 w=700 size=26 text=#sm style=italic
tile=text name=tth x=2 y=520 color=#000099 w=700 size=26 text=#help style=italic
// green bar
tile=rect name=ccc x=2 y=640 h=120 color=#006600
tile=text name=h0 x=2 y=650 color=#ffffff size=26 text=#help style=italic
tile=button name=but x=2 y=0 w=580 h=100 bgcolor=#006666 color=#ffffff text= #ch_mode section=next
end
-----------------------------------------------------------------
action next
#sound="Startup.wav"
sound mode=start file= #sound directory=#_directory_my_sound
if #_scaling_mode == "full screen"
#_scaling_mode="keeping proportions"
call section=crea
draw form=#form
return
endif
if #_scaling_mode == "keeping proportions"
#_scaling_mode="no"
call section=crea
draw form=#form
return
endif
if #_scaling_mode == "no"
#_scaling_mode="full screen"
call section=crea
draw form=#form
return
endif
end
-------------------------------------------------------------------------
action back
call script=05_004_draw_graphic