begin
comment Array of record objects: points on the circumference;

	record RPoint (real x, y);
	reference (RPoint) array ptarr(1::100);
	integer nPoints, i;
	real fi;
	
	nPoints := 80;
	for i := 0 until nPoints do
	begin
		fi := (2*pi/nPoints) * i;
		x(ptarr(i)) := cos(fi);
		y(ptarr(i)) := sin(fi);
	end;
	
end.