Pascal Turtle

Wiki-Quelltext dieser Seite.

<language>Pascal</language>
<code id="4f54ce54c2dbe">
procedure draw();
var b:Boolean; i:Integer;
begin
 canvas_clear();
 turtle_home();
 b := false;
 for i:= 0 to 18 do begin
  turtle_penColor(i*10+50,0,250-10*i);  
  turtle_penWidth(8);
  turtle_forward(20);  
  turtle_right(20); 
  b := not b; 
  if b then turtle_penUp() else turtle_penDown();
 end;
end;
</code>
<run id="4f54ce54c2e24">
 draw();
</run>

<canvas></canvas>

<check>
 draw();
 showMessage('Dein Turtle befindet sich hier: '+floatToStr( turtle_x()));
 result := turtle_x() = 300.0;
</check>