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

program cub;
 uses graph,crt;
 const
  count=210;
 type
  mass=array[1..4] of integer;
 var
  graphdriver,graphmode : integer;
  xo,yo,i,c,a           : integer;
  alfa                  : real;
  dx,dy,x,y             : mass;
  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 spin;
  procedure picture(col:word);
   begin
    setcolor(col);
    circle(200+c,yo,40);
     line(x[1],y[1],x[2],y[2]);
     line(x[1],y[1],x[3],y[3]);
     line(x[4],y[4],x[3],y[3]);
     line(x[2],y[2],x[4],y[4]);
   end;
   begin
   xo:=500;
   yo:=350;
   alfa:=pi/4;
    repeat
    if c=count then a:=-a;

      d_radius(70,alfa,dx[1],dy[1]);
      d_radius(70,alfa+pi/2,dx[2],dy[2]);
      d_radius(70,alfa-pi/2,dx[3],dy[3]);
      d_radius(70,alfa+pi,dx[4],dy[4]);
    for i:=1 to 4 do
     begin
      x[i]:=xo+dx[i];
      y[i]:=yo-dy[i]
     end;
   if a=-2 then alfa:=alfa-pi/36;
     picture(white);
      delay(50);
     picture(black);
   c:=c+a

   until keypressed
   end;
  begin
   graphdriver:=detect;
    clrscr;
   initgraph(graphdriver,graphmode,'d:\tp70\bgi ');
   setbkcolor(black);
    a:=2;
    c:=0;
    spin;
 closegraph
end.