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

program cub;
 uses graph,crt;
 const
  r=80;
 var
  graphdriver,graphmode : integer;
  x1,dx,y,y1,x,dy,xo,yo : integer;
  dx1,dy1,x2,x3,y2,y3,c : integer;
  alfa                  : real;
  procedure line_spin;
   begin
   setcolor({white}5);
   dx:=round(r*cos(alfa));
   dy:=round(r*sin(alfa));
   dx1:=round(r*cos(alfa-pi/3));
   dy1:=round(r*sin(alfa-pi/3));
   x:=xo-dx; x1:=xo+dx;
   y:=yo+dy; y1:=yo-dy;
   x2:=xo-dx1; x3:=xo+dx1;
   y2:=yo+dy1; y3:=yo-dy1;
   if alfa>pi/6 then alfa:=alfa-pi/150 else alfa:=pi/6;
   line(x,y,x2,y2);
   line(x2,y2,x1,y1);
   line(x,y,x3,y3);
   line(x1,y1,x3,y3);
      delay(20);
   setcolor(black);
   line(x,y,x2,y2);
   line(x2,y2,x1,y1);
   line(x,y,x3,y3);
   line(x1,y1,x3,y3);
  end;
 begin
 graphdriver:=detect;
  clrscr;
 initgraph(graphdriver,graphmode,' ');
  setbkcolor({black}7);
  c:=0;
  xo:=500;
  yo:=350;
  alfa:=pi/6+pi/2;
  repeat
   setcolor({white}5);
   circle(300+c,280,25);
   if c>=135 then line_spin else
    begin
     line(540,419,460,419);
     line(460,419,460,281);
     line(540,419,540,281);
     line(460,281,540,281)
    end;
    delay(20);
   setcolor(black);
   circle(300+c,280,25);
   c:=c+1;
   until keypressed;
 closegraph
end.