aUCBLogo Demos and Tests / logarithmicspirals

to logarithmicspirals
   singleshot=Name? "framenr
   hideTurtle
   WindowMode
   setUpdateGraph false
   if singleshot [s1 stop]
   demo [s1]
   demo [s2]
   demo [s3]
   for [x 1 5 0.2]
   [   s x
      updateGraph
   ]
end

to demo x
   clearScreen
   run x
   updateGraph
   waitMs 2000
end

to s1
   clearScreen
   repeat 1500
   [   fd repcount/1000
      rt 1
   ]
end

to s2
   clearScreen
   repeat 1500
   [   fd sqr repcount/1000
      rt 1
   ]
end

to s3
   clearScreen
   repeat 1500
   [   fd (repcount/1000)^3
      rt 1
   ]
end

to s x
   clearScreen
   repeat 1500
   [   fd (repcount/1000)^x
      rt 1
   ]
end