Turtle-Programme

Führe folgende Aufgaben aus:

Ex1: Schreibe ein Turtle-Programm, dass die folgende Abbildung erstellt (Tipp: Zeichne eine Flagge und rotiere sie 10 mal)

Ex2: Erstelle ein Turtle-Programm, dass eine Blume zeichnet. Diese soll so ähnlich wie die in der Abbildung aussehen (du kannst die Blüte aber auch etwas anderes gestalten).

Damit du leichter zum Ziel kommst, kannst du dir das folgende Programm herunterladen und damit die Turtle auch interaktiv steuern.

Ex: Interaktive Turtle-Steuerung

turtle-steuerung.sb

Turtle.Show()
GraphicsWindow.Title = "Turtle-Steuerung"
TextWindow.Title = "Turtle Befehle"
commands:
speed = Turtle.Speed
TextWindow.WriteLine ("Was soll die Turtle machen?")
TextWindow.WriteLine ("1. Move")
TextWindow.WriteLine ("2. Turn right")
TextWindow.WriteLine ("3. Turn left")
TextWindow.WriteLine ("4. Move to")
TextWindow.WriteLine ("5. Speed")
TextWindow.WriteLine ("6. Random background color")
TextWindow.WriteLine ("7. Color Turtle Road")
TextWindow.WriteLine ("8. Exit")
TextWindow.WriteLine ("Turtle speed: " + speed)
 
i = TextWindow.Read()
If i = "1" Then
  TextWindow.WriteLine ("How far?")
  o = TextWindow.Read()
  Turtle.Move(o)
Endif
If i = "2" Then
  Turtle.TurnRight()
EndIf
If i = "3" Then
  Turtle.TurnLeft()
EndIf
If i = "4" Then
  TextWindow.WriteLine ("Where? (X, Y)")
  TextWindow.WriteLine ("X")
  x = TextWindow.Read()
  TextWindow.WriteLine ("Y")
  y = TextWindow.Read()
  Turtle.MoveTo(x,y)
EndIf
If i = "5" Then
  TextWindow.WriteLine ("How fast?")
  d = TextWindow.Read()
  Turtle.Speed = d
Endif
If i = "6" Then
  GraphicsWindow.BackgroundColor = GraphicsWindow.GetRandomColor()
EndIf
If i = "7" Then
  TextWindow.WriteLine ("What Color?")
  z = TextWindow.Read()
  GraphicsWindow.PenColor = z
Endif
If i = "8" Then
  TextWindow.WriteLine ("Really want to quit?")
  TextWindow.WriteLine ("1. Yes")
  TextWindow.WriteLine ("2. No")
  s = TextWindow.Read()
  If s = "1" Then
    Program.End()
  EndIf
  If s = "2" Then
    Goto commands
  Endif
Endif
Goto commands