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/n 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