calib_gui.m

这是一个很好的标定工具箱

fig_number = 1;

n_row = 4;
n_col = 4;

string_list = cell(n_row,n_col);
callback_list = cell(n_row,n_col);

x_size = 85;
y_size = 14;
gap_x = 0;
font_name = 'clean';
font_size = 8;

title_figure = 'Camera Calibration Toolbox';

string_list{1,1} = 'Image names';
string_list{1,2} = 'Read images';
string_list{1,3} = 'Extract grid corners';
string_list{1,4} = 'Calibration';
string_list{2,1} = 'Show Extrinsic';
string_list{2,2} = 'Reproject on images';
string_list{2,3} = 'Analyse error';
string_list{2,4} = 'Recomp. corners';
string_list{3,1} = 'Add/Suppress images';
string_list{3,2} = 'Save';
string_list{3,3} = 'Load';
string_list{3,4} = 'Exit';

string_list{4,1} = 'Comp. Extrinsic';
string_list{4,2} = 'Undistort image';
string_list{4,3} = 'Export calib data';

string_list{5,1} = 'Smooth images';


callback_list{1,1} = 'data_calib;';
callback_list{1,2} = 'ima_read_calib;';
callback_list{1,3} = 'click_calib;';
callback_list{1,4} = 'go_calib_optim;';
callback_list{2,1} = 'ext_calib;';
callback_list{2,2} = 'reproject_calib;';
callback_list{2,3} = 'analyse_error;';
callback_list{2,4} = 'recomp_corner_calib;';
callback_list{3,1} = 'add_suppress;';
callback_list{3,2} = 'saving_calib;';
callback_list{3,3} = 'loading_calib;';
callback_list{3,4} = ['disp(''Bye. To run again, type calib_gui.''); close(' num2str(fig_number) ');'];

callback_list{4,1} = 'extrinsic_computation;';
callback_list{4,2} = 'undistort_image;';
callback_list{4,3} = 'export_calib_data;';

callback_list{5,1} = 'smooth_images;';



%------- BEGIN PROTECTED REGION -----------%
%------- DO NOT EDIT IN THIS REGION -----------%

figure(fig_number); clf;
pos = get(fig_number,'Position');

fig_size_x = x_size*n_col+(n_col+1)*gap_x;
fig_size_y = y_size*n_row+(n_row+1)*gap_x;

set(fig_number,'Units','points', ...
	'BackingStore','off', ...
	'Color',[0.8 0.8 0.8], ...
	'MenuBar','none', ...
	'Resize','off', ...
	'Name',title_figure, ...
'Position',[pos(1) pos(2) fig_size_x fig_size_y], ...
'NumberTitle','off'); %,'WindowButtonMotionFcn',['figure(' num2str(fig_number) ');']);

h_mat = zeros(n_row,n_col);

posx = zeros(n_row,n_col);
posy = zeros(n_row,n_col);

for i=n_row:-1:1,
   for j = n_col:-1:1,
      posx(i,j) = gap_x+(j-1)*(x_size+gap_x);
      posy(i,j) = fig_size_y - i*(gap_x+y_size);
   end;
end;

for i=n_row:-1:1,
   for j = n_col:-1:1,
      if ~isempty(string_list{i,j}) & ~isempty(callback_list{i,j}),
         h_mat(i,j) = uicontrol('Parent',fig_number, ...
            'Units','points', ...
            'Callback',callback_list{i,j}, ...
            'ListboxTop',0, ...
            'Position',[posx(i,j)  posy(i,j)  x_size   y_size], ...
				'String',string_list{i,j}, ...
				'fontsize',font_size,...
				'fontname',font_name,...
            'Tag','Pushbutton1');
      end;
	end;
end;

%------ END PROTECTED REGION ----------------%

if 0,
%-- VERSION:

uicontrol('Parent',fig_number, ...
   'Units','points', ...
   'ListboxTop',0, ...
   'Position',[(fig_size_x-x_size/2)-2  -5  x_size/2   y_size], ...
   'String','ver. 1.0', ...
   'fontsize',8,...
   'BackgroundColor',[0.8 0.8 0.8], ...
   'fontname','clean',...
   'HorizontalAlignment','right', ...
   'Style','text');
end;


%clear callback_list string_list fig_number fig_size_x fig_size_y i j n_col n_row pos string_list title_figure x_size y_size font_name font_size gap_x h_mat posx posy