[go: up one dir, main page]
Menu ▾ ▴

[73c35b]: / anal / eps2pdf.m  Maximize  Restore  History

Download this file

22 lines (17 with data), 750 Bytes 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
% Generating a pdf-file from an eps or ps file.



function pdffile = eps2pdf(epsfile) 



if nargin<1

    error('No eps or ps-file as input')

end



[dirpath,epsfilename,ext] = fileparts(epsfile);

if ~strcmp(ext,'.eps') && ~strcmp(ext,'.ps')

    error('The input file is not .eps or .ps')

end



epsfile = [dirpath filesep epsfilename];



pngor = '820x580';

gd=fullfile(matlabroot,'sys','ghostscript',filesep);

gsbin=fullfile(gd,'bin',lower(computer),'gs');

gsinc=sprintf('-I%sps_files -I%sfonts',gd,gd);

if ~exist(gsbin,'file'), gsbin='gs'; gsinc=[]; end

unix(sprintf('%s -I%sps_files -I%sfonts -dNOPAUSE -q -sDEVICE=pdfwrite -sPAPERSIZE=a4 -sOutputFile=%s.pdf %s%s </dev/null >/dev/null',gsbin,gsinc,pngor,epsfile,epsfile,ext));

pdffile = [epsfile '.pdf'];