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;

zwei Turtle

Suche