Changeset 11803 for issm/trunk-jpl/externalpackages/export_fig/print2eps.m

Timestamp:

03/28/12 13:43:15 (13 years ago)

Author:

Mathieu Morlighem

Message:

updated export_fig

File:

• issm/trunk-jpl/externalpackages/export_fig/print2eps.m (modified) (6 diffs)

issm/trunk-jpl/externalpackages/export_fig/print2eps.m

@@ -6 +6 @@
 %   print2eps(filename, fig_handle, options)
 %
-% This function saves a figure as an eps file, and improves the line style,
-% making dashed lines more like those on screen and giving grid lines their
-% own dotted style.
+% This function saves a figure as an eps file, with two improvements over
+% MATLAB's print command. First, it improves the line style, making dashed
+% lines more like those on screen and giving grid lines their own dotted
+% style. Secondly, it substitutes original font names back into the eps
+% file, where these have been changed by MATLAB, for up to 11 different
+% fonts.
 %
 %IN:
@@ -18 +21 @@
 %   options - Additional parameter strings to be passed to print.
 
-% Copyright (C) Oliver Woodford 2008-2011
+% Copyright (C) Oliver Woodford 2008-2012
 
 % The idea of editing the EPS file to change line styles comes from Jiro
@@ -28 +31 @@
 % Thanks to Mathieu Morlighem for reporting the issue and obtaining a fix
 % from TMW.
+
+% 8/12/2011 Added ability to correct fonts. Several people have requested
+% this at one time or another, and also pointed me to printeps (fex id:
+% 7501), so thank you to them. My implementation (which was not inspired by
+% printeps - I'd already had the idea for my approach) goes
+% slightly further in that it allows multiple fonts to be swapped.
+
+% 14/12/2011 Fix bug affecting font names containing spaces. Many thanks to
+% David Szwer for reporting the issue.
+
+% 25/1/2012 Add a font not to be swapped. Thanks to Anna Rafferty and Adam
+% Jackson for reporting the issue. Also fix a bug whereby using a font
+% alias can lead to another font being swapped in.
 
 function print2eps(name, fig, varargin)
@@ -39 +55 @@
 if numel(name) < 5 || ~strcmpi(name(end-3:end), '.eps')
     name = [name '.eps']; % Add the missing extension
+end
+% Find all the used fonts in the figure
+fonts = get(findall(fig, '-property', 'FontName'), 'FontName');
+if ~iscell(fonts)
+    fonts = {fonts};
+end
+fonts = unique(fonts);
+% Map supported font aliases onto the correct name
+for a = 1:numel(fonts)
+    f = lower(fonts{a});
+    f(f==' ') = [];
+    switch f
+        case {'times', 'timesnewroman', 'times-roman'}
+            fonts{a} = 'Times-Roman';
+        case {'arial', 'helvetica'}
+            fonts{a} = 'Helvetica';
+        case {'newcenturyschoolbook', 'newcenturyschlbk'}
+            fonts{a} = 'NewCenturySchlbk';
+        otherwise
+    end
+end
+% Determine the font swap table
+matlab_fonts = {'Helvetica', 'Times-Roman', 'Palatino', 'Bookman', 'Helvetica-Narrow', 'Symbol', ...
+                'AvantGarde', 'NewCenturySchlbk', 'Courier', 'ZapfChancery', 'ZapfDingbats'};
+require_swap = find(~ismember(fonts, matlab_fonts));
+unused_fonts = find(~ismember(matlab_fonts, fonts));
+font_swap = min(numel(require_swap), numel(unused_fonts));
+font_swap = [reshape(matlab_fonts(unused_fonts(1:font_swap)), 1, font_swap); reshape(fonts(require_swap(1:font_swap)), 1, font_swap)];
+% Swap the fonts
+for a = 1:size(font_swap, 2)
+    set(findall(fig, 'FontName', font_swap{2,a}), 'FontName', font_swap{1,a});
 end
 % Set paper size
@@ -63 +110 @@
 % Reset paper size
 set(fig, 'PaperPositionMode', old_mode);
+% Correct the fonts
+if ~isempty(font_swap)
+    % Reset the font names in the figure
+    for a = 1:size(font_swap, 2)
+        set(findall(fig, 'FontName', font_swap{1,a}), 'FontName', font_swap{2,a});
+    end
+    % Replace the font names in the eps file
+    try
+        swap_fonts(name, font_swap{:});
+    catch
+        warning('swap_fonts() failed. This is usually because the figure contains a large number of patch objects. Consider exporting to a bitmap format in this case.');
+        return
+    end
+end
 % Fix the line styles
 try
@@ -70 +131 @@
 end
 return
+
+function swap_fonts(fname, varargin)
+% Read in the file
+fh = fopen(fname, 'r');
+if fh == -1
+    error('File %s not found.', fname);
+end
+try
+    fstrm = fread(fh, '*char')';
+catch ex
+    fclose(fh);
+    rethrow(ex);
+end
+fclose(fh);
+
+% Replace the font names
+for a = 1:2:numel(varargin)
+    fstrm = regexprep(fstrm, [varargin{a} '-?[a-zA-Z]*\>'], varargin{a+1}(~isspace(varargin{a+1})));
+end
+
+% Write out the updated file
+fh = fopen(fname, 'w');
+if fh == -1
+    error('Unable to open %s for writing.', fname2);
+end
+try
+    fwrite(fh, fstrm, 'char*1');
+catch ex
+    fclose(fh);
+    rethrow(ex);
+end
+fclose(fh);
+return