Program
---
Vector Graphics Test Program.
---
prog_vars =
d/count 0
d/xpos 0
d/ypos 0
d/text_to_show "Jack is a very good boy"
prog_vars.
prog_start =
print "Program Start"
gvr b1 0 100
pclear
ptl 100 200 "Some Text 100 200 /text_to_show"
ptl 0 0 "Letter Position 0 0 /text_to_show"
ptl a a "Letter Position a a /text_to_show"
ptl z z "ZZ Letter Position z z /text_to_show"
ptl m i "Letter Position m i /text_to_show"
-- Rectangle
pr 80 123 100 100 ^id=r1^width=2^fill=red^color=blue^round=2^
pr 180 223 100 50 ^id=r1^width=5^fill=lime^color=brown^round=2^
-- exitnow
-- Button
pb j j ^name=d1 2^press=d1 1|d2 1^rel=doff^
pb o j ^name=c1 2^press=c1 1|c2 1^rel=coff^
pb l l ^name=Clear^press=pclear^
-- Circle
pcr 140 300 20 ^id=c8^width=2^fill=red^color=blue^
-- Vertical Line
pvl b 100 60 ^width=20^color=blue^lcap=rect^
pvl e 100 60 ^width=20^color=blue^lcap=round^
pvl i 100 60 ^width=20^color=blue^lcap=square^
-- Horizonbtal Line
phl i j 60 ^width=20^color=blue^lcap=rect^
phl i k 60 ^width=20^color=blue^lcap=round^
-- Button
pb j j ^name=d1 2^press=d1 1|d2 1^rel=doff^
-- ptl with Tags
ptl 100 100 ^size=24^font=Arial^ "Some Text 100 100"
prog_start.
prog_loop =
-- main program loop
print "Count /count"
-- Display B1
pvl j 100 /b1 ^id=b1^width=20^color=yellow^lcap=rect^
ptl j 120 ^id=tb1^ "b1 /b1"
any /count < 20 ->
inc /count
ptl /xpos /ypos "Count /count"
-- Circle
pcr 140 300 /ypos ^id=c8^width=2^fill=red^color=blue^
inc /xpos 25
inc /ypos 25
enda.
any /count >= 200 -> exitprog
prog_loop.
prog_stop =
print "Bye"
prog_stop.