Pascal Turtle

Aus ProgrammingWiki

Archivierte Version vom 2012-03-05T14:31:48+00:00. Aktuelle Version

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;

draw();

Pascal Turtle

Suche