Canvas und Turtle (Pascal)

Aus ProgrammingWiki

Beispiel 1

Das nachfolgende Beispiel zeichnet einen farbigen Kreis. Versuche durch leichte Anpassung die Anzahl der Kreissegmente zu verdoppeln ohne den Radius des Kreises zu vergrößern.

var isUp:Boolean; i:integer;

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;

ausführen

Beispiel 2

Das folgende Beispiel verwendet zwei Turtles Bob und Eva. Bob ist betrunken und läuft verwirrt herum, während Eva versucht ihn wieder einzufangen. Schau dir den folgenden Quelltext an und versuch ihn zu verstehen.

var Bob:Integer; Eva:Integer; step:Integer;

selectCanvas(2); Bob := createTurtle(2); Eva := createTurtle(2); canvas_clear(); // Zeichenfläche löschen selectTurtle(Bob); turtle_penColor(255,0,0); turtle_move(300,200); selectTurtle(Eva); turtle_penColor(0,255,0); turtle_move(50,50); for step := 0 to 500 do begin // Bewegung von Eva selectTurtle(Eva); turtle_setAngleTo(Bob); turtle_forward(2); // Bewegung von Bob selectTurtle(Bob); turtle_forward(random(8)); if step mod 2 = 0 then turtle_right(random(90)) else turtle_left(random(90)); end;

ausführen

Da Bob zufällig läuft, starte das Programm mehrmals.