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

program cub;
 uses graph,crt;
 const
  count=210;
 type
  mass=array[1..4] of integer;
 var
  graphdriver,graphmode : integer;
  xo,yo,i,c,a,x1,y1           : integer;
  alfa                  : real;
  dx,dy,x,y,x2,y2             : 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,340,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]);
     line(x2[1],y2[1],x2[2],y2[2]);
     line(x2[1],y2[1],x2[3],y2[3]);
     line(x2[4],y2[4],x2[3],y2[3]);
     line(x2[2],y2[2],x2[4],y2[4]);
     line(x[1],y[1],x2[1],y2[1]);
     line(x[2],y[2],x2[2],y2[2]);
     line(x[3],y[3],x2[3],y2[3]);
     line(x[4],y[4],x2[4],y2[4]);
   end;
   begin
   xo:=500;
   yo:=300;
   x1:=550;
   y1:=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];
      y2[i]:=y1-dy[i];
      x2[i]:=x1+dx[i];
     end;
   if a=-2 then alfa:=alfa-pi/36;
     picture(white);
      delay(15000);
     picture(black);
   c:=c+a

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