aUCBLogo Demos and Tests / turtlestest


to turtlesTest
   
n=10
   
t=array n
   
savet=turtle
   
repeat n
   
[   t.repcount=newTurtle
      
setturtle t.repcount
      
setpc hsb repcount*360/1 1
   
]
   
forever
   
[   repeat n
      
[   setturtle t.repcount
         
fd rnd*10
         
rt (rnd-0.5)*10
      
]
      
updateGraph
      
dispatchMessages
      
if key?
      
[   repeat n
         
[   setturtle t.repcount
            
ht
         
]
         
setturtle savet
         
ern "t
   
;      (gc true)
         
box
         
stop
      
]
   
]
end