view graphics/panzoom.m @ 61:eff6bddf82e3 tip

Finally implemented perceptual brightness thing.

function panzoom(ax)

	if nargin<1, ax=gca; end
	fig=get(gca,'Parent');
	set_ctxmenu(gca,{{'zoom',@myzoom},{'pan',@mypan}});


	function myzoom(obj,ev)
		hz=zoom(fig);
		extend_ctxmenu(hz,{{'zoom off',@(a,b)zoom('off')},{'pan',@mypan}});
		zoom('on');
	end
	function mypan(obj,ev)
		hz=zoom(fig);
		extend_ctxmenu(hz,{{'pan off',@(a,b)pan('off')},{'zoom',@myzoom}});
		pan('on');
	end
end