figure_export_menu.m

地震、测井方面matlab代码,解释的比较详细

function menu_handle=figure_export_menu(figure_handle)
% Function creates a menu button on the figure with handle "figure_handle" (or
% the current figure) that allows one to save the figure as a "emf" (Enhanced
% Windows Meta File) for PowerPoint and "eps" (Encapsulated PostScript) for 
% LaTeX
% Written by: E. R., November 16, 2003
% Last updated: September 3, 2004: make color of label red
%
%            menu_handle=figure_export_menu(figure_handle)
% INPUT
% figure_handle  handle of the figure to which to attach the menu button
%            Default: gcf

persistent fig_no

if nargin == 0
   figure_handle=gcf;
end
if isempty(fig_no)
   fig_no=1;
else
   fig_no=fig_no+1;
end

%strno=num2str(fig_no);

%	Create menu botton
menu_handle=uimenu(figure_handle,'Label','Save plot','ForegroundColor','r');

%	Create submenu items
submenu_handle1=uimenu(menu_handle,'Label','EMF (as displayed; for PowerPoint)', ...
          'CallBack',{@g_fig2pp,figure_handle,0});
submenu_handle1=uimenu(menu_handle,'Label','EMF (reversed colors; for PowerPoint)', ...
          'CallBack',{@g_fig2pp,figure_handle,1});
submenu_handle2=uimenu(menu_handle,'Label','EPS (for LaTeX)', ...
          'CallBack',{@g_fig2eps,fig_no,figure_handle});

if nargout == 0
   clear menu_handle 
end

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function g_fig2pp(hObject,eventdata,figure_handle,reverse)
% Version of "fig2pp" to be called by a menu callback
% Written by: E. R.: November 16, 2003
% Last updated: May 8, 2004: made subfunction
%
%         g_fig2pp(hObject,eventdata,figure_handle,reverse)
% INPUT
% figure_handle  handle of the figure to which to attach the menu button
% reverse    Reverse the figure background and axis colors and adjust graphs
%            (see "whitebg")
%            S4M.invert_hardcopy must be set to 'off' to have an effect
%           (See figure property 'InvertHardcopy')


fig2pp(figure_handle,reverse)

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

function g_fig2eps(hObject,eventdata,repfig,figno)
% Export figure for use in LaTeX documents
% Written by: E. R.: March 4, 2003
% Last updated: March 19, 2004: use fig2eps which uses report 
%              directory in "S4M.eps_directory"
%
%         g_fig2eps(hObject,eventdata,repfig,figno)
% INPUT
% repfig  unique figure number for report (required)
% figno   number of figure to export
%         Default: figno=gcf


if ischar(repfig)
   repfig=str2num(repfig);
end

if nargin == 0
   error(' Figure number in report is required')
end

if nargin == 1
   figno=gcf;
end

fig2eps(repfig,figno)