Navigation¶

• Main Page
  

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

• Administration
• File Management
  

• Language Selection
  
  
  

Drawing Fibonacci squares using the Turtle

fib[0] = 10
fib[1] = 10

Turtle.Speed = 10

Turtle.PenUp()
Turtle.Move(230)
Turtle.Turn(90)
Turtle.Move(-290)
Turtle.Turn(90)
Turtle.PenDown()

limit = 11

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

For i = 0 To limit
  squareLenght = fib[i]
  Square()
  TextWindow.WriteLine("Fib(" + i + ") = " + squareLenght/10)
  remainder2 = Math.Remainder(i,2)
  If i = 0 Then
    Turtle.Move(squareLenght)
  ElseIf i = 1 then
    Turtle.Move(squareLenght)
    Turtle.Turn(-180)
  ElseIf remainder2 = 0 then
    Turtle.Turn(90)
    Turtle.Move(squareLenght)
    Turtle.Turn(90)
  ElseIf remainder2 <> 0 then
    Turtle.Move(squareLenght)
    Turtle.Turn(-180)
  EndIf
EndFor

Sub Square
  For h = 1 To 4
    Turtle.Move(squareLenght)
    Turtle.Turn(90)
  EndFor
EndSub