PMG/Profil 10 1314/Beispiel Turtle

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
== Beispiel Turtle==

Das nachfolgende Beispiel zeichnet einen farbigen Kreis. <br>
Versuche durch leichte Anpassung 
* die Turtle sich nach links drehen zu lassen
* die Anzahl der Kreissegmente zu verdoppeln ohne den Radius des Kreises zu vergrößern
* zwei Kreise (links und rechts) hintereinander durch die Turtle zu zeichnen
* dabei die Farben der Segmente zu verändern.

<code id="4d922df855ce6">
var isUp:Boolean;
    i:integer;
</code>
<run id="4d922df855df7">
selectCanvas(1);
canvas_clear(); // Zeichenfläche löschen
turtle_move(200,100); // Turtle in die Mitte stellen

isUp := false;

for i := 0 to 17 do begin
 turtle_penColor(i*10+50,0,250-10*i);  
 turtle_penWidth(10);
 turtle_forward(20);  
 turtle_right(20); 
 isUp := not isUp; 
 if isUp then turtle_penUp() else turtle_penDown();
end;
</run>

<canvas w=1000></canvas>

== Beispiel Turtle 2 ==

Zeichne in die nächste Zeichenfläche:
*ein Quadrat
*ein Dreieck
*ein Haus
*ein Haus mit Tür und Fenster
*...



<run id="4d9c0ff0565f9">
selectCanvas(2);
canvas_clear(); // Zeichenfläche löschen
turtle_move(200,100); // Turtle in die Mitte stellen
</run>

<canvas w=500></canvas>

<br><br>