Etape 5/5: Autres exemples pour s'amuser

Et pour terminer ce troisième épisode, voici 4 exemples complémentaires pour vous distraire:

Exemple 1

sides = 50
length = 400 / sides
angle = 360 / sides
Turtle.Speed = 10
For j = 1 To 20
GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
For i = 1 To sides
Turtle.Move(length)
Turtle.Turn(angle)
EndFor
Turtle.Turn(18)
EndFor

Exemple 2

Turtle.Show()
Turtle.Speed = 10
Cpt = 5
For i = 1 To 100
GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
Turtle.Move(2 * Cpt)
Turtle.Turn(73)
Cpt = Cpt + 1
EndFor

Exemple 3

Turtle.Show()
Turtle.Speed = 10
Cpt = 1
For i = 1 To 720
GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
Turtle.Move(cpt/100)
Turtle.Turn(5)
Cpt = Cpt + 1
EndFor

Exemple 4

Turtle.Show()
Turtle.Speed = 10
Turtle.PenUp()
Turtle.Turn(180)
Turtle.Move(150)
Turtle.Turn(180)
Turtle.PenDown()
For i = 1 To 100
GraphicsWindow.PenColor = GraphicsWindow.GetRandomColor()
Turtle.Move(300)
Turtle.Turn(50)
Turtle.Move(50)
Turtle.Turn(125)
EndFor