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

program cardoun;
 uses graph,crt;
 var
  graphdriver,graphmode : integer;
   procedure car_go;
    var
     c,c1,c2:integer;
    begin
    c:=1;
    c1:=1;
    c2:=2;
    repeat
     setcolor(white);
     line(600-c,250,400-c2,250);
      line(600-c,250,600-c2,170);
      line(400-c,250,400-c2,170);
      line(400-c,170,600-c2,170);
      circle(440-c,251,24);
      circle(560-c,251,24);

      rectangle(320,276,600,450);
     delay(20);
     setcolor(black);
      line(600-c,250,400-c2,250);
      line(600-c,250,600-c2,170);
      line(400-c,250,400-c2,170);
      line(400-c,170,600-c2,170);
      circle(440-c,251,24);
      circle(560-c,251,24);
     c2:=c2+2;
     c:=c+2;
     c1:=c1+1;
  until c=147;
  end;
 procedure car_down;
  type
   mass=array[1..3] of integer;
  const
   xo:array[1..2] of integer=(354,354);
   yo:array[1..2] of integer=(250,170);
  var
   r,c,c1,c2,dx,dy,a,a1,dxo,dyo:integer;
   alfa:real;
   x1,x2,y1,y2:mass;
  begin
   r:=102; alfa:=0; a1:=0; a:=0;
    repeat
       x1[1]:=xo[1]+r; x2[1]:=xo[1]-r;
       x1[2]:=xo[2]+r; x2[2]:=xo[2]-r;
       dx:=round(r*cos(alfa)); dxo:=round(60*cos(alfa));
       dy:=round(r*sin(alfa)); dyo:=round(60*sin(alfa));
       x1[1]:=xo[1]+dx; x2[1]:=xo[1]-dx; x1[3]:=xo[1]+dxo;
       x1[2]:=xo[2]+dx; x2[2]:=xo[2]-dx; y1[3]:=yo[1]-dyo;
       y1[1]:=yo[1]-dy; y2[1]:=yo[1]+dy; x2[3]:=xo[1]-dxo;
       y1[2]:=yo[2]-dy; y2[2]:=yo[2]+dy; y2[3]:=yo[1]+dyo;
     setcolor(white);
      circle(x1[3],y1[3],24);
      circle(x2[3],y2[3],24);
      line(x1[1],y1[1],x2[1],y2[1]);
      line(x1[2],y1[2],x2[2],y2[2]);
      line(x1[1],y1[1],x1[2],y1[2]);
      line(x2[1],y2[1],x2[2],y2[2]);
     delay(120);
     setcolor(black);
      circle(x1[3],y1[3],24);
      circle(x2[3],y2[3],24);
      line(x1[1],y1[1],x2[1],y2[1]);
      line(x1[2],y1[2],x2[2],y2[2]);
      line(x1[1],y1[1],x1[2],y1[2]);
      line(x2[1],y2[1],x2[2],y2[2]);
     alfa:=alfa+pi/72;
     xo[1]:=round(xo[1]-3-a+a1); xo[2]:=round(xo[2]-5+a1);
     yo[1]:=round(yo[1]+2);      yo[2]:=round(yo[2]+4.45);
     if y2[1]=424 then begin a:=4; a1:=3 end;
    until alfa>=3.18;
  end;
BEGIN
 graphdriver:=detect;
  Clrscr;
   initgraph(graphdriver,graphmode,' ');
   setbkcolor(black);
    rectangle(320,276,600,450);
   car_go;
   car_down;
 closegraph;
end.