eps2pdf.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  eps2pdf(source,dest,crop,append,gray,quality) {
options = [" -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -dPDFSETTINGS=/prepress -sOutputFile=' " dest " ' "];
/*  Set crop option */
if nargin < 3 || crop
    options = [options "  -dEPSCrop "];
end
/*  Set the font path */
fp = font_path();
if ~isempty(fp)
    options = [options "  -sFONTPATH=' " fp " ' "];
end
/*  Set the grayscale option */
if nargin > 4 && gray
    options = [options "  -sColorConversionStrategy=Gray -dProcessColorModel=/DeviceGray "];
end
/*  Set the bitmap quality */
if nargin > 5 && ~isempty(quality)
    options = [options "  -dAutoFilterColorImages=false -dAutoFilterGrayImages=false "];
    if quality > 100
        options = [options "  -dColorImageFilter=/FlateEncode -dGrayImageFilter=/FlateEncode -c '.setpdfwrite << /ColorImageDownsampleThreshold 10 /GrayImageDownsampleThreshold 10 >> setdistillerparams' "];
    else
        options = [options "  -dColorImageFilter=/DCTEncode -dGrayImageFilter=/DCTEncode "];
        v = 1 + (quality < 80);
        quality = 1 - quality / 100;
        s = sprintf(" << /QFactor %.2f /Blend 1 /HSample [%d 1 1 %d] /VSample [%d 1 1 %d] >> ", quality, v, v, v, v);
        options = sprintf(" %s -c '.setpdfwrite << /ColorImageDict %s /GrayImageDict %s >> setdistillerparams' ", options, s, s);
    end
end
/*  Check if the output file exists */
if nargin > 3 && append && exist(dest, " file ") == 2
    /*  File exists - append current figure to the end */
    tmp_nam = tempname;
    /*  Copy the file */
    copyfile(dest, tmp_nam);
    /*  Add the output file names */
    options = [options "  -f ' " tmp_nam " ' ' " source " ' "];
    try
        /*  Convert to pdf using ghostscript */
        [status message] = ghostscript(options);
    catch
        /*  Delete the intermediate file */
        delete(tmp_nam);
        rethrow(lasterror);
    end
    /*  Delete the intermediate file */
    delete(tmp_nam);
else
    /*  File doesn't exist or should be over-written
     * Add the output file names */
    options = [options "  -f ' " source " ' "];
    /*  Convert to pdf using ghostscript */
    [status message] = ghostscript(options);
end
/*  Check for error */
if status
    /*  Report error */
    if isempty(message)
        error(" Unable to generate pdf. Check destination directory is writable. ");
    else
        error(message);
    end
end
return

/*  Function to return (and create, where necessary) the font path */
}
function fp = eps2pdf>font_path() {
fp = user_string(" gs_font_path ");
if ~isempty(fp)
    return
end
/*  Create the path
 * Start with the default path */
fp = getenv(" GS_FONTPATH ");
/*  Add on the typical directories for a given OS */
if ispc
    if ~isempty(fp)
        fp = [fp " ; "];
    end
    fp = [fp getenv(" WINDIR ") filesep " Fonts "];
else
    if ~isempty(fp)
        fp = [fp " : "];
    end
    fp = [fp " /usr/share/fonts:/usr/local/share/fonts:/usr/share/fonts/X11:/usr/local/share/fonts/X11:/usr/share/fonts/truetype:/usr/local/share/fonts/truetype "];
end
user_string(" gs_font_path ", fp);
return

}