Anselm

Aus ProgrammingWiki
Archivierte Version vom 2013-05-20T16:38:57+00:00. Aktuelle Version

selectCanvas(2); canvas_clear(); // Zeichenfläche löschen turtle_move(200,160); // Turtle in die Mitte stellen


for i := 0 to 4 do begin // Haus 1

turtle_penColor(i*10+50,0,250-10*i);  
turtle_penWidth(5);
turtle_forward(80);  
turtle_left(90); 

end; for i := 0 to 0 do begin

turtle_penColor (255,0,0);
turtle_right(60); 
turtle_penWidth(5);
turtle_forward(80);

end; for i := 0 to 0 do begin

turtle_penColor (255,0,0);
turtle_left(120); 
turtle_penWidth(5);
turtle_forward(80);

end;

turtle_left(30); 

turtle_move(130,144); //Fenster for i := 0 to 3 do begin

turtle_penColor (255,0,255);
turtle_left(90); 
turtle_penWidth(5);
turtle_forward(20);

end; turtle_move(170,160); // Tür for i := 0 to 0 do begin

turtle_penColor (0,255,255);
turtle_left(90); 
turtle_penWidth(5);
turtle_forward(20);
turtle_left(90); turtle_forward(40);
turtle_left(90); turtle_forward(20);
turtle_left(90); turtle_forward(40);

end;


turtle_move(300,80); // Haus 2 turtle_penWidth(5); turtle_penColor(20,160,220); turtle_forward(80); turtle_right(90); turtle_forward(80); turtle_right(90); turtle_forward(80); turtle_right(90); turtle_forward(80); turtle_left(120); turtle_forward(80); turtle_left(120); turtle_forward(80);

turtle_move(235,144); // Fenster turtle_left(30); turtle_penWidth(3); turtle_left(90); turtle_forward(20); turtle_left(90); turtle_forward(20); turtle_left(90); turtle_forward(20); turtle_left(90); turtle_forward(20);

turtle_move(272,160); // Tür turtle_penWidth(3); turtle_left(90); turtle_forward(20); turtle_left(90); turtle_forward(40); turtle_left(90); turtle_forward(20); turtle_left(90); turtle_forward(40);

turtle_move(350,145); // Schildkröte hinsetzen turtle_right(90);