aUCBLogo Demos and Tests / testturtleshapes

be testturtleshapes
   size=20
   n=50
   shapes=Array n
   for [i 1 n]
   [   clearScreen
      shapes.i=Graphic
      [   PenReverse
         disableLineSmooth
         setPenSize 0
         pd Ellipse size*0.7 size pu
         fd size*1.2
         pd   Ellipse size/5 size /4 pu
         back size*(1/2+0.2)
         drawFeet 30*sin 360*i/n
         back size
         drawFeet -30*sin 360*i/n
         enableLineSmooth
         PenPaint
      ]
      updateGraph
   ]
;   repeat n [drawGraphic shapes.#]
;stop
   clearScreen
   setTurtleShapes shapes
   PenDown
   repeat 1000
   [   forward 1
      right 0.36
      updateGraph
   ]

   be drawFeet ang
      left 90
      pu fd size/2
      left ang
      pd fd size/2 pu back size/2
      right ang
      back size/2
      right 180
      pu fd size/2
      left ang
      pd fd size/2 pu back size/2
      right ang
      back size/2
      left 90
   end
end