function make_mask()
% построение гартмановской маски
% SS - размер маски
	f = fopen("holes.json", "w");
	X = []; Y = [];
	R = [175 247 295 340 379 414 448 478] * 1e-3; % радиусы колец на гартманограмме
	HoleR = 7.5e-3; % радиус отверстий - 7.5мм
	R0 = .6;  % радиус самой гартманограммы
	alpha0 = pi/32; % смещение лучей относительно секущих горизонтали/вертикали
	Angles = [0:31] * 2 * alpha0 + alpha0; % углы, по которым располагаются лучи
	% для того, чтобы разместить на маске окружности, создадим маску
	% окружности: zeros(15) с единицами там, где должна быть дырка. Затем
	% пометим единицами в mask те точки, куда должен попадать левый верхний
	fprintf(f, "{\n\t\"maskz\": 20.017,\n\t\"shape\": \"round\", \"radius\": %f,\n\t\"holes\": [\n" , HoleR);
	for i = [1 : size(R,2)] % цикл по кольцам
		x = R(i) * cos(Angles);
		y = R(i) * sin(Angles);
		X = [X x]; Y = [Y y];
		%fprintf(f, "\t\t{\"ring\": %d, \"center\": [%f, %f]\n", i, x[j], y[j]]);
		printR(f, sprintf("\"ring\": %d", i-1), x, y);
	endfor
	% помечаем маркеры
	x = R([8 3]) .* cos([-2 -7]* 2 * alpha0);
	y = R([8 3]) .* sin([-2 -7]* 2 * alpha0);
	X = [X x]; Y = [Y y];
	%fprintf(f, "\t\t{\"marker\", \"center\": [%f, %f]\n", x, y);
	printR(f, sprintf("\"mark\": 1"), x, y);
	fprintf(f, "\t]\n}\n");
	fclose(f);
	plot(X, Y, 'o'); axis square;
endfunction

function printR(f, msg, x, y)
	for i = 1:size(x,2)
		fprintf(f, "\t\t{ %9s, \"number\": %2d, \"center\": [ %7.4f, %7.4f ] },\n", msg, i-1, x(i), y(i));
	endfor
endfunction