Scheme Turtle 2
Inhaltsverzeichnis |
Beispiele mit Rekursion
Die folgenden Prozeduren für Turtles sind typische Lehrbeispiele für Rekursion. Je nach Bedarf werden weitere eingebaute Sprachelemente der Scheme-Turtle-Geometrie eingeführt.
Klassischer Binärbaum mit jeweils halbierter Astlänge
Ein Baum mit Stammlänge side ist ein Gebilde, das aus einem Stamm der Länge side besteht, an dessen Ende links im Winkel von 45 Grad ein Baum der halben Stammlänge, also side/2, anschließt, und an dessen Ende rechts im Winkel von -45 Grad ein Baum der halben Stammlänge, also side/2, anschließt. Ist die Stammlänge kleiner als z.B. 20, also side < 20, dann besteht der Baum aus nichts.
Die jeweils ansetzenden Teilbäume haben gerade die halbe Stammlänge gegenüber ihren Vorgängern. Die Stämme benachbarter Binärbäume bilden einen Winkel von 90 Grad. Außerdem wird die Aststärke der Rekursionstiefe angepasst wird. Wenn eine Stammlänge von 20 Einheiten unterschritten wird, endet die Baum-Verzweigung. <eval id="4b40600745a2a"> (clear canvas) (move turtle 200 190)</eval>
(define tree
(lambda(side turtle)
(cond
((< side 20) #t)
(else
(penwidth turtle (+ (/ side 10) 1 ))
(forward turtle side)
(left turtle 45)
(tree (/ side 2) turtle)
(right turtle 90)
(tree (/ side 2) turtle)
(left turtle 45)
(backward turtle side)))))(tree 100 turtle)
Befehlsliste
Die folgende Tabelle enthält alle Befehle, die eine Turtle versteht.
| Befehl | Beschreibung |
|---|---|
| home | setzt die Turtle auf die Mitte der Zeichenfläche |
| move turtle x y | setzt die Turtle auf den Punkt (x,y) der Zeichenfläche (Koordinatenursprung: linke obere Ecke) |
| forward turtle x | lässt die Turtle x Schritte nach vorn gehen |
| backward turtle x | lässt die Turtle x Schritte nach hinten gehen |
| pendown turtle | setzt den stift ab, sodass Turtle-Bewegungen eine Spur hinterlassen (Standard) |
| penup turtle | nimmt den stift hoch, sodass Turtle-Bewegungen keine Spur hinterlassen |
| penwidth turtle x | Setzt die Stärke des Stiftes auf x |
| pencolor turtle r g b | setzt die Farbe des Stiftes (Rot-Gelb-Grün-Werte im Bereich 0-255) |
| right turtle x | dreht die Turtle um x Grad nach rechts |
| left turtle x | dreht die Turtle um x Grad nach links |
| hide turtle | blendet die Turtle aus |
| show turtle | blendet die Turtle ein |
| clone turtle | clont die Turtle in der Aktuellen Position |
| panerase turtle | Die Turtle löscht die Markierungen, denen sie begegnet (wie ein Radiergummi). |
| clear canvas | löscht die Zeichenfläche |
Beispiel
Setzen Sie sich mit dem folgenden Beispiel auseinander und modifizieren Sie die Prozedur quad.
|
<eval id="4ae30126a3ec6"> (clear canvas1) (home turtle1) (quad turtle1 50)</eval> |