cll_chinv.m

图像对齐（inage registration）工具箱

function cll_chinv(action);

global pct;
global volby ; 

switch(action)

	% Init  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
case('allon')
   for i=1:pct,
         str=strcat('cb',num2str(i));
		   set(findobj(gcbf,'Tag',str),'Value',1);
	end;

   
case('alloff')
   
   for i=1:pct,
         str=strcat('cb',num2str(i));
		   set(findobj(gcbf,'Tag',str),'Value',0);
	end;

case('done')

k=1;
   for i=1:pct,
    str=strcat('cb',num2str(i));
    	if get(findobj(gcbf,'Tag',str),'Value')==1 
	      volby(k)=i;
		   k=k+1;
		end;
	end;
uiresume(gcf);
close(gcf);
end;