% 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% Johan.baeten@mech.kuleuven.ac.bedisp(' **********************************************');disp(' * Thank you for trying out the               *');disp(' *                                            *');disp(' * CONTOUR FITTING GRAPHICAL USER INTERFACE   *');disp(' *                                            *');disp(' *                                            *');disp(' *           Johan.Baeten@mech.kuleuven.ac.be *');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