begin
comment record RPath with points array: spiral r=fi;

	record RPoint(real x, y);
	record RPath( reference (RPoint) array arr(1::200); integer nPoints );
	
	integer i, nP;
	real fi, step, r, x, y;
	
	nP   := 150;
	step := 0.1;
	
	for i := 0 until nP do
	begin
		fi := step * i;  r := fi;
		x := r * cos(fi);
		y := r * sin(fi);
		write(x,y);
	end;
	
end.