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.