Vector Graphics Test

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.