guistart.m

等高线拟合源代码（matlab源码）

% GUISTART	Brings up the start screen for Contour Fitting GUI 
%
% All the software included in this package is presented as is.
% It may be distributed freely. The author can, however, not be
% held responsible for any problems whatever.
% 
% Designed by Johan Baeten.
% Last updated: 22-03-2000
% [e-mail]


disp(' **********************************************');
disp(' * Thank you for trying out the               *');
disp(' *                                            *');
disp(' * CONTOUR FITTING GRAPHICAL USER INTERFACE   *');
disp(' *                                            *');
disp(' *                                            *');
disp(' *           [e-mail] *');
disp(' **********************************************');

%===============================
% Precompile map functionguimap 
%===============================

set(0,'DefaultFigurePosition',[100 100 460 420]);
figNumber=figure( ...
	'NumberTitle','off', ... 
	'menubar','none',...
	'Name','Welcome to the Contour Fitting Graphical User Interface!', ...
	'Resize','off', ...
	'Pointer','watch');
set(gca,'position',[0 0 1 1]);
axHndl1=gca;

%========================================
% Create the START button
% and some dummy indicators
%========================================
callbackStr=[ ...
    'colormap([0 0 0]);clf; figNumber=watchon;', ...
    'h=text(0,0,[''Opening the Graphical User Interface Main Map...'']);', ...
    'axis([-1 1 -1 1]); axis off;', ...
    'set(h,''HorizontalAlignment'',''center'');', ...
    'guimap; delete(figNumber)'];
    
uicontrol( 'Style','frame', ...
    'Units','pixels', ...
    'Position',[180 270 8 8], ...
    'String','', ...
    'ToolTipString','Force Sensor');
uicontrol( 'Style','frame', ...
    'Units','pixels', ...
    'Position',[220 200 8 8], ...
    'String','', ...
    'ToolTipString','Camera');    
uicontrol( 'Style','frame', ...
    'Units','pixels', ...
    'Position',[440 400 8 8], ...
    'String','', ...
    'ToolTipString','Kuka 361 Robot');    

uicontrol( 'Style','frame', ...
    'Units','pixels', ...
    'Position',[180 60 8 8], ...
    'String','', ...
    'ToolTipString','Force Probe');    


uicontrol( 'Style','frame', ...
    'Units','pixels', ...
    'Position',[260 80 8 8], ...
    'String','', ...
    'ToolTipString','Contour to Follow');    

    
contHndl=uicontrol( ...
    'Style','pushbutton', ...
    'Units','pixels', ...
    'Position',[351 16 70 30], ...
    'String','Start', ...
    'Enable','off', ...
    'Callback',callbackStr);


%========================================
% Put up the background image

[X,MAP] = IMREAD('start_screen','jpg');

image(X),colormap(MAP);
set(gca,'visible', 'off')
set(gcf,'Pointer','arrow');
set(contHndl,'Enable','on');
clear axHndl1 callbackStr figNumber