aUCBLogo Demos and Tests / testdrawgraphic
to testDrawGraphic
cs
abox=Graphic
[ box
]
astar=Graphic
[ drawGraphic abox
star
]
all=Graphic
[ rt 30 fd 100
drawGraphic abox
lt 40 fd 50
(drawGraphic astar 0.5)
lt 50 fd 25
(drawGraphic abox 0.25)
]
cs
drawGraphic all
fd 100
end