Navigation¶

• Main Page
  

• Random Page
• Create a new Page
• All Pages
• Categories
  

• Administration
• File Management
  

• Language Selection
  
  
  

Drawing a Fibonacci Spiral using the Turtle

Turtle.Speed = 10

fib[0] = 0.2
fib[1] = 0.2


arcAngle = 90

limit = 6

For i = 2 to limit
  fib[i] = fib[i-2] + fib[i-1]
EndFor


For i = 0 To limit
  arcLenght = (2 * fib[i] * Math.Pi)/10
  DrawArc()
  TextWindow.WriteLine("Fib(" + i + ") = " + fib[i])
EndFor


Sub DrawArc
  For h = 1 To arcAngle
    Turtle.Turn(1)
    Turtle.Move(arcLenght)
  EndFor
EndSub