Scheme Turtle 2

Aus ProgrammingWiki

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.

(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))))) (clear canvas) (move turtle 200 190) (tree 100 turtle) ausführen

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

Scheme Turtle 3