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

program cub;
uses graph,crt;
const
r=40; yo=350; x0:integer=500;
a=105; b=200; h=300;
var
graphdriver,graphmode,k : integer;
x1,dx,y,y1,x,dy,dy3 : integer;
x4,x5,x6,x7,y4,y5,y6,y7,dy2 : integer;
dx1,dy1,x2,y2,x3,y3,dx3,dx2 : integer;
alfa,alf : real;
procedure line_spin(xo,i:integer;dalfa:real);
procedure picture(col:word);
begin
setcolor(col);
line(x,y,x1,y1);
line(x2,y2,x3,y3);
line(x4,y4,x5,y5);
line(x6,y6,x7,y7);
line(a,b,a,h);
circle(xo,yo,r);
circle(a,b,r);
end;
begin
x:=xo+r; x2:=xo+r;
y:=yo; y2:=yo;
x1:=xo-r; x3:=xo-r;
y1:=yo; y3:=yo;
alfa:=0;
repeat
dx:=round(r*cos(alfa));
dy:=round(r*sin(alfa));
dx1:=round(r*cos(alfa+pi/2));
dy1:=round(r*sin(alfa+pi/2));
picture(white);
delay(8000);
picture(black);
if k>144 then alf:=alf-dalfa;
dx2:=round(r*cos(alf));
dy2:=round(r*sin(alf));
dx3:=round(r*cos(alf+pi/2));
dy3:=round(r*sin(alf+pi/2));
x4:=a+dx2; x5:=a-dx2; x6:=a+dx3; x7:=a-dx3;
y4:=b-dy2; y5:=b+dy2; y6:=b-dy3; y7:=b+dy3;
if k<=144 then
begin
xo:=xo-i;
x:=xo+dx; x1:=xo-dx; x2:=xo+dx1; x3:=xo-dx1;
y:=yo-dy; y1:=yo+dy; y2:=yo-dy1; y3:=yo+dy1;
end;
alfa:=alfa+dalfa;
k:=k+1;
until keypressed;
end;
begin
graphdriver:=detect;
clrscr;
initgraph(graphdriver,graphmode,'c:\tp70\bgi');
setbkcolor(black);
rectangle(170,300,40,400);
line_spin(500,2,pi/72);
closegraph;
end.