aUCBLogo Demos and Tests / testdrawgraphic2


to testDrawGraphic2
   
cs
   
perspective
   
GraphicStart
   
cube
   
abox=GraphicEnd
   
   
GraphicStart
   
drawGraphic abox
   
star
   
astar=GraphicEnd
   
GraphicStart
   
rt 30 fd 100
   
drawGraphic abox
   
lt 40 fd 50
   
(drawGraphic astar 0.5)
   
lt 50 fd 25
   
(drawGraphic abox 0.25)
   
all=GraphicEnd
   
cs
   
drawGraphic all
   
fd 100
end