print2eps.m

Go to the documentation of this file.

/* (Autoinserted by mtoc++)
 * This source code has been filtered by the mtoc++ executable,
 * which generates code that can be processed by the doxygen documentation tool.
 *
 * On the other hand, it can neither be interpreted by MATLAB, nor can it be compiled with a C++ compiler.
 * Except for the comments, the function bodies of your M-file functions are untouched.
 * Consequently, the FILTER_SOURCE_FILES doxygen switch (default in our Doxyfile.template) will produce
 * attached source files that are highly readable by humans.
 *
 * Additionally, links in the doxygen generated documentation to the source code of functions and class members refer to
 * the correct locations in the source code browser.
 * However, the line numbers most likely do not correspond to the line numbers in the original MATLAB source files.
 */

function  print2eps(name,fig,varargin) {
options = [" -depsc2 "];
if nargin < 2
    fig = gcf;
elseif nargin > 2
    options = [options varargin];
end
/*  Construct the filename */
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 */
font_handles = findall(fig, " -property ", " FontName ");
fonts = get(font_handles, " FontName ");
if ~iscell(fonts)
    fonts = [fonts];
end
/*  Map supported font aliases onto the correct name */
fontsl = lower(fonts);
for a = 1:numel(fonts)
    f = fontsl[a];
    f(f=="   ") = [];
    switch f
        case [" times ", " timesnewroman ", " times-roman "]
            fontsl[a] = " times-roman ";
        case [" arial ", " helvetica "]
            fontsl[a] = " helvetica ";
        case [" newcenturyschoolbook ", " newcenturyschlbk "]
            fontsl[a] = " newcenturyschlbk ";
        otherwise
    end
end
fontslu = unique(fontsl);
/*  Determine the font swap table */
matlab_fonts = [" Helvetica ", " Times-Roman ", " Palatino ", " Bookman ", " Helvetica-Narrow ", " Symbol ", ...
                " AvantGarde ", " NewCenturySchlbk ", " Courier ", " ZapfChancery ", " ZapfDingbats "];
matlab_fontsl = lower(matlab_fonts);
require_swap = find(~ismember(fontslu, matlab_fontsl));
unused_fonts = find(~ismember(matlab_fontsl, fontslu));
font_swap = cell(3, min(numel(require_swap), numel(unused_fonts)));
fonts_new = fonts;
for a = 1:size(font_swap, 2)
    font_swap[1,a] = find(strcmp(fontslu[require_swap(a)], fontsl));
    font_swap[2,a] = matlab_fonts[unused_fonts(a)];
    font_swap[3,a] = fonts[font_swap[1,end](1)];
    fonts_new(font_swap[1,a]) = [font_swap[2,a]];
end
/*  Swap the fonts */
if ~isempty(font_swap)
    fonts_size = get(font_handles, " FontSize ");
    if iscell(fonts_size)
        fonts_size = cell2mat(fonts_size);
    end
    M = false(size(font_handles));
    /*  Loop because some changes may not stick first time, due to listeners */
    c = 0;
    update = zeros(1000, 1);
    for b = 1:10 /*  Limit number of loops to avoid infinite loop case */

        for a = 1:numel(M)
            M(a) = ~isequal(get(font_handles(a), " FontName "), fonts_new[a]) || ~isequal(get(font_handles(a), " FontSize "), fonts_size(a));
            if M(a)
                set(font_handles(a), " FontName ", fonts_new[a], " FontSize ", fonts_size(a));
                c = c + 1;
                update(c) = a;
            end
        end
        if ~any(M)
            break;
        end
    end
    /*  Compute the order to revert fonts later, without the need of a loop */
    [update, M] = unique(update(1:c));
    [M, M] = sort(M);
    update = reshape(update(M), 1, []);
end
/*  Set paper size */
old_pos_mode = get(fig, " PaperPositionMode ");
old_orientation = get(fig, " PaperOrientation ");
set(fig, " PaperPositionMode ", " auto ", " PaperOrientation ", " portrait ");
/*  MATLAB bug fix - black and white text can come out inverted sometimes
 * Find the white and black text */
white_text_handles = findobj(fig, " Type ", " text ");
M = get(white_text_handles, " Color ");
if iscell(M)
    M = cell2mat(M);
end
M = sum(M, 2);
black_text_handles = white_text_handles(M == 0);
white_text_handles = white_text_handles(M == 3);
/*  Set the font colors slightly off their correct values */
set(black_text_handles, " Color ", [0 0 0] + eps);
set(white_text_handles, " Color ", [1 1 1] - eps);
/*  Print to eps file */
print(fig, options[:], name);
/*  Reset the font colors */
set(black_text_handles, " Color ", [0 0 0]);
set(white_text_handles, " Color ", [1 1 1]);
/*  Reset paper size */
set(fig, " PaperPositionMode ", old_pos_mode, " PaperOrientation ", old_orientation);
/*  Correct the fonts */
if ~isempty(font_swap)
    /*  Reset the font names in the figure */
    for a = update
        set(font_handles(a), " FontName ", fonts[a], " FontSize ", fonts_size(a));
    end
    /*  Replace the font names in the eps file */
    font_swap = font_swap(2:3,:);
    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
    fix_lines(name);
catch
    warning(" fix_lines() failed. This is usually because the figure contains a large number of patch objects. Consider exporting to a bitmap format in this case. ");
end
return

}

function  print2eps>swap_fonts(fname,varargin) {
fh = fopen(fname, " r ");
if fh == -1
    error(" File %s not found. ", fname);
end
try
    fstrm = fread(fh, " *char ")^t;
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

}