test_figure.m

绘图代码

function  varargout = test_figure( varargin )
% generate a figure for tp080699 by mfile . 



% load the concomitant data .
% --------------------------------------------------------
% define the index of object with concomitant data .
ObjectIndex = [12];

if  ~isempty( ObjectIndex ) ;

    for  num = 1: ObjectIndex ;
        CorrectFeildString{num,1} = ['Object', num2str( num )] ;
    end

    try
        % get file name and load the concomitant data .
        MatFileName = mfilename ;
        load( MatFileName, 'ConcomitantData' ) ;

        FieldNames = fieldnames( ConcomitantData ) ;
        if all( size( CorrectFeildString ) == size( FieldNames ) ) ...
                & all( strcmp( CorrectFeildString, FieldNames ) ) ;

            DataCorrect = 1 ;
        else
            % jump a dialog .
            UserSelect = questdlg('Concomitant data lost. Do you want to continue?',...
                'Data lost.','Ignore','Cancel','Ignore');
            if  strcmp(UserSelect, 'Ignore')
                DataCorrect = 0 ;
            elseif  strcmp(UserSelect, 'Cancel')
                return ;
            end

        end

    catch

        % jump a dialog .
        UserSelect = questdlg('Concomitant data lost. Do you want to continue?',...
            'Data lost.','Ignore','Cancel','Ignore');
        if  strcmp(UserSelect, 'Ignore')
            DataCorrect = 0 ;
        elseif  strcmp(UserSelect, 'Cancel')
            return ;
        end

    end

else
    DataCorrect = 0 ;
end
% --------------------------------------------------------

                           
                                                                   
                                                                   
                                                                   

% get the size of the screen .
set( 0,'Units','pixels' ) ;
RefScreenSize = get( 0,'ScreenSize' ) ;


% generate a new figure .
FigureHandle = com_Figure;
set( FigureHandle, 'Tag' , '' , ...
    'Units' , 'pixels' , ...
    'Visible' , 'off' , ...
    'PaperPosition' , [0.634517      6.34517      20.3046      15.2284] , ...
    'PaperSize' , [20.984      29.6774] , ...
    'Position' , [232  258  560  420] ) ;
movegui( FigureHandle, 'center' ) ;

if DataCorrect == 1 
    set( FigureHandle, 'Alphamap', ConcomitantData.Object1.Alphamap ) ; 
    set( FigureHandle, 'Colormap', ConcomitantData.Object1.Colormap ) ; 
    set( FigureHandle, 'Dithermap', ConcomitantData.Object1.Dithermap ) ; 
    set( FigureHandle, 'PointerShapeCData', ConcomitantData.Object1.PointerShapeCData ) ; 
    set( FigureHandle, 'UserData', ConcomitantData.Object1.UserData ) ; 
end 

% generate a uitoolbar .
UitoolbarHandle = uitoolbar( 'Parent', FigureHandle ) ;
set( UitoolbarHandle, 'Tag' , 'FigureToolBar' , ...
    'HandleVisibility' , 'off' , ...
    'Visible' , 'on' ) ;

% generate a uipushtool .
UipushtoolHandle = uipushtool( 'Parent', UitoolbarHandle ) ;
set( UipushtoolHandle, 'Tag' , '' , ...
    'ClickedCallback' , 'figure' , ...
    'HandleVisibility' , 'off' , ...
    'TooltipString' , 'New Figure' , ...
    'Visible' , 'on' ) ;
if DataCorrect == 1 
    set( UipushtoolHandle, 'CData', ConcomitantData.Object2.CData ) ; 
end 


% generate a uipushtool .
UipushtoolHandle = uipushtool( 'Parent', UitoolbarHandle ) ;
set( UipushtoolHandle, 'Tag' , '' , ...
    'ClickedCallback' , 'filemenufcn(gcbf,''FileOpen'')' , ...
    'HandleVisibility' , 'off' , ...
    'TooltipString' , 'Open File' , ...
    'Visible' , 'on' ) ;
if DataCorrect == 1 
    set( UipushtoolHandle, 'CData', ConcomitantData.Object3.CData ) ; 
end 


% generate a uipushtool .
UipushtoolHandle = uipushtool( 'Parent', UitoolbarHandle ) ;
set( UipushtoolHandle, 'Tag' , 'figToolSave' , ...
    'ClickedCallback' , 'filemenufcn(gcbf,''FileSave'')' , ...
    'HandleVisibility' , 'off' , ...
    'TooltipString' , 'Save Figure' , ...
    'Visible' , 'on' ) ;
if DataCorrect == 1 
    set( UipushtoolHandle, 'CData', ConcomitantData.Object4.CData ) ; 
end 


% generate a uipushtool .
UipushtoolHandle = uipushtool( 'Parent', UitoolbarHandle ) ;
set( UipushtoolHandle, 'Tag' , '' , ...
    'ClickedCallback' , 'printdlg(gcbf)' , ...
    'HandleVisibility' , 'off' , ...
    'TooltipString' , 'Print Figure' , ...
    'Visible' , 'on' ) ;
if DataCorrect == 1 
    set( UipushtoolHandle, 'CData', ConcomitantData.Object5.CData ) ; 
end 


% generate a uitoggletool .
UitoggletoolHandle = uitoggletool( 'Parent', UitoolbarHandle ) ;
set( UitoggletoolHandle, 'Tag' , 'ScribeSelectToolBtn' , ...
    'ClickedCallback' , 'putdowntext(''select'',gcbo)' , ...
    'DeleteFcn' , 'plotedit(gcbf,''off'')' , ...
    'Separator' , 'on' , ...
    'TooltipString' , 'Edit Plot' , ...
    'Visible' , 'on' ) ;
if DataCorrect == 1 
    set( UitoggletoolHandle, 'CData', ConcomitantData.Object6.CData ) ; 
end 


% generate a uitoggletool .
UitoggletoolHandle = uitoggletool( 'Parent', UitoolbarHandle ) ;
set( UitoggletoolHandle, 'Tag' , 'ScribeToolBtn' , ...
    'ClickedCallback' , 'putdowntext(''textstart'',gcbo)' , ...
    'TooltipString' , 'Insert Text' , ...
    'Visible' , 'on' ) ;
if DataCorrect == 1 
    set( UitoggletoolHandle, 'CData', ConcomitantData.Object7.CData ) ; 
end 


% generate a uitoggletool .
UitoggletoolHandle = uitoggletool( 'Parent', UitoolbarHandle ) ;
set( UitoggletoolHandle, 'Tag' , 'ScribeToolBtn' , ...
    'ClickedCallback' , 'putdowntext(''arrowstart'',gcbo)' , ...
    'TooltipString' , 'Insert Arrow' , ...
    'Visible' , 'on' ) ;
if DataCorrect == 1 
    set( UitoggletoolHandle, 'CData', ConcomitantData.Object8.CData ) ; 
end 


% generate a uitoggletool .
UitoggletoolHandle = uitoggletool( 'Parent', UitoolbarHandle ) ;
set( UitoggletoolHandle, 'Tag' , 'ScribeToolBtn' , ...
    'ClickedCallback' , 'putdowntext(''linestart'',gcbo)' , ...
    'TooltipString' , 'Insert Line' , ...
    'Visible' , 'on' ) ;
if DataCorrect == 1 
    set( UitoggletoolHandle, 'CData', ConcomitantData.Object9.CData ) ; 
end 


% generate a uitoggletool .
UitoggletoolHandle = uitoggletool( 'Parent', UitoolbarHandle ) ;
set( UitoggletoolHandle, 'Tag' , 'figToolZoomIn' , ...
    'ClickedCallback' , 'putdowntext(''zoomin'',gcbo)' , ...
    'CreateFcn' , 'figtoolset(''zoomin'',gcbf)' , ...
    'Separator' , 'on' , ...
    'TooltipString' , 'Zoom In' , ...
    'Visible' , 'on' ) ;
if DataCorrect == 1 
    set( UitoggletoolHandle, 'CData', ConcomitantData.Object10.CData ) ; 
end 


% generate a uitoggletool .
UitoggletoolHandle = uitoggletool( 'Parent', UitoolbarHandle ) ;
set( UitoggletoolHandle, 'Tag' , 'figToolZoomOut' , ...
    'ClickedCallback' , 'putdowntext(''zoomout'',gcbo)' , ...
    'CreateFcn' , 'figtoolset(''zoomout'',gcbf)' , ...
    'TooltipString' , 'Zoom Out' , ...
    'Visible' , 'on' ) ;
if DataCorrect == 1 
    set( UitoggletoolHandle, 'CData', ConcomitantData.Object11.CData ) ; 
end 


% generate a uitoggletool .
UitoggletoolHandle = uitoggletool( 'Parent', UitoolbarHandle ) ;
set( UitoggletoolHandle, 'Tag' , 'figToolRotate3D' , ...
    'ClickedCallback' , 'putdowntext(''rotate3d'',gcbo)' , ...
    'CreateFcn' , 'figtoolset(''rotate3d'',gcbf)' , ...
    'TooltipString' , 'Rotate 3D' , ...
    'Visible' , 'on' ) ;
if DataCorrect == 1 
    set( UitoggletoolHandle, 'CData', ConcomitantData.Object12.CData ) ; 
end 


% generate a uimenu .
UimenuHandle0 = uimenu( FigureHandle ) ;
set( UimenuHandle0, 'Tag' , '                           ' , ...
    'Callback' , 'filemenufcn(gcbf,''FilePost'')                                                        ' , ...
    'HandleVisibility' , 'off' , ...
    'Label' , '&File' , ...
    'Position' , [1] ) ;

% generate a uimenu .
UimenuHandle1 = uimenu( UimenuHandle0 ) ;
set( UimenuHandle1, 'Tag' , '                           ' , ...
    'Accelerator' , 'N' , ...
    'Callback' , 'figure                                                                              ' , ...
    'HandleVisibility' , 'off' , ...
    'Label' , '&New Figure' , ...
    'Position' , [1] ) ;

% generate a uimenu .
UimenuHandle1 = uimenu( UimenuHandle0 ) ;
set( UimenuHandle1, 'Tag' , '                           ' , ...
    'Accelerator' , 'O' , ...
    'Callback' , 'filemenufcn(gcbf,''FileOpen'')                                                        ' , ...
    'HandleVisibility' , 'off' , ...
    'Label' , '&Open...' , ...
    'Position' , [2] ) ;

% generate a uimenu .
UimenuHandle1 = uimenu( UimenuHandle0 ) ;
set( UimenuHandle1, 'Tag' , '                           ' , ...
    'Accelerator' , 'W' , ...
    'Callback' , 'close(gcbf)                                                                         ' , ...
    'HandleVisibility' , 'off' , ...
    'Label' , '&Close' , ...
    'Position' , [3] ) ;

% generate a uimenu .
UimenuHandle1 = uimenu( UimenuHandle0 ) ;
set( UimenuHandle1, 'Tag' , 'figMenuFileSave' , ...
    'Accelerator' , 'S' , ...
    'Callback' , 'filemenufcn(gcbf,''FileSave'')                                                        ' , ...
    'HandleVisibility' , 'off' , ...
    'Label' , '&Save' , ...
    'Separator' , 'on' , ...
    'Position' , [4] ) ;

% generate a uimenu .
UimenuHandle1 = uimenu( UimenuHandle0 ) ;
set( UimenuHandle1, 'Tag' , 'figMenuFileSaveAs' , ...
    'Callback' , 'filemenufcn(gcbf,''FileSaveAs'')                                                      ' , ...
    'HandleVisibility' , 'off' , ...
    'Label' , 'Save &As...' , ...
    'Position' , [5] ) ;

% generate a uimenu .
UimenuHandle1 = uimenu( UimenuHandle0 ) ;
set( UimenuHandle1, 'Tag' , '                           ' , ...
    'Callback' , 'filemenufcn(gcbf,''FileExport'')                                                      ' , ...
    'HandleVisibility' , 'off' , ...
    'Label' , '&Export...' , ...
    'Position' , [6] ) ;

% generate a uimenu .
UimenuHandle1 = uimenu( UimenuHandle0 ) ;
set( UimenuHandle1, 'Tag' , '                           ' , ...
    'Callback' , 'preferences                                                                         ' , ...
    'HandleVisibility' , 'off' , ...
    'Label' , 'Pre&ferences...' , ...
    'Separator' , 'on' , ...
    'Position' , [7] ) ;

% generate a uimenu .
UimenuHandle1 = uimenu( UimenuHandle0 ) ;
set( UimenuHandle1, 'Tag' , '                           ' , ...
    'Callback' , 'pagesetupdlg(gcbf)                                                                  ' , ...
    'HandleVisibility' , 'off' , ...
    'Label' , 'Pa&ge Setup...' , ...
    'Separator' , 'on' , ...
    'Position' , [8] ) ;

% generate a uimenu .
UimenuHandle1 = uimenu( UimenuHandle0 ) ;
set( UimenuHandle1, 'Tag' , '                           ' , ...
    'Callback' , 'printdlg(''-setup'')                                                                  ' , ...
    'HandleVisibility' , 'off' , ...
    'Label' , 'Print Set&up...' , ...
    'Position' , [9] ) ;

% generate a uimenu .
UimenuHandle1 = uimenu( UimenuHandle0 ) ;
set( UimenuHandle1, 'Tag' , '                           ' , ...
    'Callback' , 'printpreview(gcbf)                                                                  ' , ...
    'HandleVisibility' , 'off' , ...
    'Label' , 'Print Pre&view...' , ...