aUCBLogo Demos and Tests / testturtleshapes


be testturtleshapes
   
size=20
   
n=50
   
shapes=Array n
   
for [n]
   
[   clearScreen
      
shapes.i=Graphic
      
[   PenReverse
         
disableLineSmooth
         
setPenSize 0
         
pd Ellipse size*0.7 size pu
         
fd size*1.2
         
pd   Ellipse size/size /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/pu back size/2
      
right ang
      
back size/2
      
right 180
      
pu fd size/2 
      
left ang
      
pd fd size/pu back size/2
      
right ang
      
back size/2
      
left 90
   
end
end