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.