uses
crt, graph;
var
gd,gm,r,x0,y0,x1,x2,x3,x4,y1,y2,y3,y4,a1,a2,a3,a4,i:integer;
w:real;
begin
clrscr;
initgraph(gd,gm,'');
setcolor(4);
line(10,289,630,289);
setcolor(15);
x0:=20;
y0:=280;
a1:=0;
a2:=90;
a3:=180;
a4:=270;
w:=-pi*(1/180);
while x0<520 do
begin
x1:=0;
y1:=0;
x2:=0;
y2:=-40;
x3:=40;
y3:=-40;
x4:=40;
y4:=0;
arc(x0+x2,y0+y2,a4,a1,48);
arc(x0+x3,y0+y3,a1,a2,8);
arc(x0+x4,y0+y4,a2,a3,48);
arc(x0+x1,y0+y1,a3,a4,8);
delay(10);
setcolor(0);
arc(x0+x2,y0+y2,a4,a1,48);
arc(x0+x3,y0+y3,a1,a2,8);
arc(x0+x4,y0+y4,a2,a3,48);
arc(x0+x1,y0+y1,a3,a4,8);
for i:=1 to 90 do
begin
inc(x0);
x1:=round(40*sin(w*i));
y1:=round(-40+40*cos(w*i));
x3:=round(40*cos(w*i));
y3:=round(-40-40*sin(w*i));
x4:=round(40*cos(w*i)+40*sin(w*i));
y4:=round(-40-40*sin(w*i)+40*cos(w*i));
setcolor(15);
arc(x0+x2,y0+y2,a4-i,a1-i,48);
arc(x0+x3,y0+y3,a1-i,a2-i,8);
arc(x0+x4,y0+y4,a2-i,a3-i,48);
arc(x0+x1,y0+y1,a3-i,a4-i,8);
delay(10);
setcolor(0);
arc(x0+x2,y0+y2,a4-i,a1-i,48);
arc(x0+x3,y0+y3,a1-i,a2-i,8);
arc(x0+x4,y0+y4,a2-i,a3-i,48);
arc(x0+x1,y0+y1,a3-i,a4-i,8);
end;
x1:=-40;
y1:=-40;
x2:=0;
y2:=-40;
x3:=0;
y3:=0;
x4:=-40;
y4:=0;
for i:=1 to 90 do
begin
inc(x0);
x2:=round(-40*sin(w*i));
y2:=round(-40*cos(w*i));
x4:=round(-40*cos(w*i));
y4:=round(40*sin(w*i));
x1:=round(-40*cos(w*i)-40*sin(w*i));
y1:=round(40*sin(w*i)-40*cos(w*i));
setcolor(15);
arc(x0+x2,y0+y2,a3-i,a4-i,48);
arc(x0+x3,y0+y3,a4-i,a1-i,8);
arc(x0+x4,y0+y4,a1-i,a2-i,48);
arc(x0+x1,y0+y1,a2-i,a3-i,8);
delay(50);
setcolor(0);
arc(x0+x2,y0+y2,a3-i,a4-i,48);
arc(x0+x3,y0+y3,a4-i,a1-i,8);
arc(x0+x4,y0+y4,a1-i,a2-i,48);
arc(x0+x1,y0+y1,a2-i,a3-i,8);
end;
end;
readln;
closegraph;
end. |
