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.