lenayun

01.05.2022 19:11 •  Информатика

Анимируйте полоски на дороге, дом и облака, в сторону обратную от машины:

uses graphaBC;
procedure avto(x,y:integer);
begin
setpencolor(cllightBlue);
setbrushcolor(cllightblue);
rectangle(0,0,10000, 290);
setpencolor(cllime);
setbrushcolor(cllime);
rectangle(0,290,10000, 480);
setpencolor(cllime);
setbrushcolor(cllime);
rectangle(0,700,10000, 1000);
setpencolor(cldarkgray);
setbrushcolor(cldarkgray);
rectangle(0,480,10000, 700);
setpencolor(clWhite);
setbrushcolor(clWhite);
rectangle(25,580,140, 600);
rectangle(205,580,320, 600);
rectangle(395,580,510, 600);
rectangle(575,580,690, 600);
rectangle(755,580,870, 600);
rectangle(935,580,1050, 600);
rectangle(1115,580,1230, 600);
rectangle(1295,580,1410, 600);
rectangle(1475,580,1590, 600);
SetPenColor(clblack);
SetBrushColor(clblue);
Rectangle(320, 170, 515, 320);
SetPenColor(cllightgray);
SetBrushColor(cllightgray);
Rectangle(460, 160, 485, 100);
SetPenColor(clblack);
line(460, 128, 460, 100);
line(460, 100, 485, 100);
line(485, 100, 485, 144);
SetPenColor(clblack);
line(305, 170, 525, 170);
line(415, 100, 525, 170);
line(415, 100, 305, 170);
FloodFill(375,135,cllightgray);
SetBrushColor(clmaroon);
SetBrushColor(cllightcyan);
Rectangle(420, 200, 490, 270);
SetBrushColor(clyellow);

line(455, 200, 455, 270);
line(420, 235, 490, 235);
SetBrushColor(clwhite);
SetPenColor(clwhite);
Circle(200,78,19);
Circle(365,84,20);
Circle(5,69,10);
Circle(280,70,50);
Circle(330,79,35);
Circle(230,74,30);
Circle(60,60,30);
Circle(25,65,20);
Circle(95,65,20);
SetBrushColor(clbrown);
SetPenColor(clbrown);
Rectangle(335, 220, 395, 320);

setpencolor(clblack);
setbrushcolor(clblack);
rectangle(x+4,y+290,x+72,y+340);
rectangle(x,y+315,x+111,y+340);
setpencolor(clBlack);
setbrushcolor(clBlack);
circle(x+98,y+345,10);
circle(x+15,y+345,10);
setpencolor(clgray);
setbrushcolor(clgray);
circle(x+98,y+345,8);
circle(x+15,y+345,8);
line(x+72,y+290,x+84,y+315 );
line(x,y+315,x+4,y+290);
FloodFill(x+2,y+314,cllightblue);
FloodFill(x+76,y+314,cllightblue);
setpencolor(clBlack);
setbrushcolor(clBlack);
circle(x+106,y+326,9);
setpencolor(clBlue);
line(x+111,y+315,x+111,y+338);
FloodFill(x+112,y+328,clyellow);

end;
var x,y:integer;
begin
x:=1;
y:=windowheight div 2-40;
lockdrawing;
repeat
clearwindow;
avto(x,y);
sleep(50);
x:=x+8;
redraw
until x>=windowwidth--40;
end.