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: December 9, 2005: use new fig2pp and add fig2jpg
%
%            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','b');

%	Create submenu items
uimenu(menu_handle,'Label','EMF (for PowerPoint)', ...
          'CallBack',{@g_fig2pp,figure_handle,0});
uimenu(menu_handle,'Label','JPEG', ...
          'CallBack',{@g_fig2jpg,figure_handle,0});
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_fig2jpg(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')


fig2jpg(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=str2double(repfig);
end

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

if nargin == 1
   figno=gcf;
end

fig2eps(repfig,figno)