zwei Turtle

Aus ProgrammingWiki

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

var Esmeralda:Integer; Govinda:Integer; step:Integer;

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

ausführen