cll_evl.m

图像对齐（inage registration）工具箱

function cll_evl(action);

global refob
global sensob
global okno;   
global pars;         


switch(action)

case('create')
okno = [];
   
   
   
case('prms')   
   
ta=['Vertical shift:    ';
   'Horizontal shift:  ';
   'Rotation angle:    ' ;
   'Scale coefficient: '];
pr = int2str(pars');

taprs=strcat(ta ,pr);
   
   msgbox(taprs,'Computed parameters');
   




   
case('registered')
   global okno;   

   val = get(findobj(gcbf,'Tag','n_w'),'Value');
   if val == 1 okno = figure;
   else
      if isempty(okno)
         okno = figure;
      end;
   end;
   figure(okno);
   imagesc(sensob,[1 256]);
   title('Registered image');
   colormap gray;
   axis image;
   
   
case('avr')   
	global okno;   

	
   val = get(findobj(gcbf,'Tag','n_w'),'Value');
   if val == 1 okno = figure;
   else
      if isempty(okno)
         okno = figure;
      end;
   end;
   
   figure(okno);
   imagesc((refob+sensob)/2,[1 256]);
   title('Averaged image');
   colormap gray;
   axis image;

   
   
case('diff')
   
   val = get(findobj(gcbf,'Tag','n_w'),'Value');
   if val == 1 okno = figure;
   else
      if isempty(okno)
         okno = figure;
      end;
   end;
   
   figure(okno);
   diff = abs(refob-sensob);
   imagesc(diff,[1 256]);
   title('Difference image');
   colormap gray;
   axis image;
	xlabel(['max: ' int2str(max(diff(:))) ' min: ' int2str(min(diff(:)))]);	

   
   
case('ches')
   
   val = get(findobj(gcbf,'Tag','n_w'),'Value');
   if val == 1 okno = figure;
   else
      if isempty(okno)
         okno = figure;
      end;
   end;
      
      t3=mosaic(refob,sensob,20);
   figure(okno);
   imagesc(t3,[1 256]);
   title('Mosaic from reference and transformed sensed image');
   colormap gray;
   axis image;


end;