aUCBLogo Demos and Tests / spiro


to spiro
   ht
   disls
   setUpdateGraph false
   angle=1
   repeat 360
   [   cs
      angle+=1
      repeat 200
      [   repeat 25 [fd 10 rt angle/23]
         rt 90 fd 10
      ]
      updateGraph
      if key? [stop]
   ]
end