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