asd / корзина / лекции по TP / Lecture_Pascal / graph / PLANE

program alplan;
uses graph,crt;
type
mass=array[1..5] of integer;
const
r:array[1..5] of integer=(120,50,115,100,139);
var
graphdriver,graphmode,i : integer;
x1,yy,y1,xx,xo,yo,x2,y2 : integer;
a: real;
dx,dy,x,y:mass;
procedure picture;
begin
setcolor(white);
line(x[1],y[1],x[2],y[2]);
line(x[1],y[1],x[3],y[3]);
line(xx,yy,x[4],y[4]);
line(xx,yy,x[5],y[5]);
delay(20);
setcolor(black);
line(x[1],y[1],x[2],y[2]);
line(x[1],y[1],x[3],y[3]);
line(xx,yy,x[4],y[4]);
line(xx,yy,x[5],y[5]);
end;
procedure d_radius(rud:integer;alf:real;var d_rudX,d_rudY:integer);
begin
d_rudX:=round(rud*cos(alf));
d_rudY:=round(rud*sin(alf))
end;
procedure air_fly(xxx:integer);
begin
repeat
picture;
for i:=1 to 5 do
x[i]:=x[i]+1;
xo:=xo+1;
xx:=xx+1;
until xo=xxx
end;
procedure line_spin;
begin
xo:=300;
yo:=250;
xx:=xo;
yy:=yo+r[1];
x[1]:=xx+r[2]; x[2]:=xx-r[2];
y[1]:=yy; y[2]:=yy;
a:=3*pi/2;
repeat
d_radius(r[1],a,dx[1],dy[1]);
d_radius(r[2],a+3*pi/2,dx[2],dy[2]);
d_radius(r[3],a-pi/5,dx[3],dy[3]);
d_radius(r[4],a-pi/30,dx[4],dy[4]);
d_radius(r[5],a-pi/45,dx[5],dy[5]);
xx:=xo+dx[1]; x[1]:=xx+dx[2]; x[2]:=xx-dx[2];
yy:=yo-dy[1]; y[1]:=yy-dy[2]; y[2]:=yy+dy[2];
x[3]:=xo+dx[3]; y[3]:=yo-dy[3];
x[4]:=xo+dx[4]; y[4]:=yo-dy[4];
x[5]:=xo+dx[5]; y[5]:=yo-dy[5];

picture;

a:=a+pi/72;
until a>7*pi/2
end;
begin
graphdriver:=detect;
clrscr;
initgraph(graphdriver,graphmode,' ');
setbkcolor(black);
xx:=200; xo:=200; yy:=370;
x[1]:=xx-r[2];y[1]:=370;
x[2]:=xx+r[2];y[2]:=370;
x[3]:=130; y[3]:=345;
x[4]:=180; y[4]:=345;
x[5]:=180; y[5]:=395;
air_fly(300);
line_spin;
air_fly(500);
closegraph;
end.