function testas

	close all

	h_w = figure(1);

	w = 9;
	h = 7.5;

	set(h_w, 'paperunits', 'centimeters');
	set(h_w, 'paperposition', [0, 0, w, h]);

	paperposition = get(h_w, 'paperposition')

	set(h_w, 'units', 'centimeters');
	set(h_w, 'position', [1, 1, w, h]);

	x = [-3:3];
	y = x.^2;

	h_p = plot(x, y);
	title('TITLE');
	xlabel('X AXIS');
	ylabel('Y AXIS');

	pause(0.5);
	print(h_w, 'test_print__before.tif', '-color', '-dtiff', '-r72');

	h_a = gca;
	ap = get(h_a, 'position');
	axes_position_before = ap
	set(h_a, 'position', [ap(1), ap(2), 1 - 0.025 - ap(1), ap(4)]);
	axes_position_after = get(h_a, 'position')

	pause(0.5);
	print(h_w, 'test_print__after.tif', '-color', '-dtiff', '-r72');

endfunction