% Copyright 2003 by Rolf Niepraschk (Rolf.Niepraschk@ptb.de).
% This software is released under the terms of the LaTeX Project Public
% License (ftp://dante.ctan.org/tex-archive/macros/latex/base/lppl.txt).
% (Essentially: Free to use, copy, distribute (sell) and change, but, if
% changed, the name must be changed.)
\NeedsTeXFormat{LaTeX2e}[1995/12/01]
\ProvidesPackage{ps4pdf}[2005/02/11 v0.6i PS code for pdfTeX (RN/HO)]
\newcommand*\PfP@mode{0} \newcommand*\PfP@draft@global{false}
\newcommand*\PfP@llx{-0.50001bp}
\newcommand*\PfP@lly{-0.50001bp}
\newcommand*\PfP@urx{0.50001bp}
\newcommand*\PfP@ury{0.50001bp}% Prevents rounding errors.
\newcommand*\PfP@tempa{} \newcommand*\PfP@tempb{}
\newif\ifPfP@draft \newif\ifPfPinside \PfPinsidefalse
\newif\ifPfP@graphics
\newif\ifPfP@notightpage \PfP@notightpagefalse
\DeclareOption{active}{\def\PfP@mode{0}}
\DeclareOption{inactive}{\def\PfP@mode{9}}
\DeclareOption{draft}{\def\PfP@draft@global{true}}
\DeclareOption{final}{\def\PfP@draft@global{false}}
\DeclareOption{graphics}{\PfP@graphicstrue}
\DeclareOption{nographics}{\PfP@graphicsfalse}
\DeclareOption{notightpage}{\PfP@notightpagetrue}
\ExecuteOptions{graphics}
\ProcessOptions\relax
\RequirePackage{keyval,ifpdf,ifvtex}
\newcounter{PSforPDF}
\newcommand*\PfP@container{}
\edef\PfP@container{\jobname-pics.pdf}
\newcommand*\containerName[1]{\def\PfP@container{#1}}
\ifnum\PfP@mode>0\relax\else
\ifvtex
\def\PfP@mode{9}
\else
\ifpdf
\def\PfP@mode{1}
\fi
\fi
\fi
\ifnum\PfP@mode=0\relax\else
\RequirePackage{calc}
\define@key{PfP}{trim}{%
\begingroup
\Gread@parse@vp#1 \\%
\edef\x{\endgroup%
\def\noexpand\PfP@llx{\Gin@vllx bp}%
\def\noexpand\PfP@lly{\Gin@vlly bp}%
\def\noexpand\PfP@urx{\Gin@vurx bp}%
\def\noexpand\PfP@ury{\Gin@vury bp}}\x%
% Like "\xdef\PfP@llx{\Gin@vllx bp}..." but only for one group level.
}
\define@key{PfP}{draft}[true]{\csname PfP@draft#1\endcsname}
\newcommand\PfP@adjustBox[3]{%
% #1=width of the main box, #2=height of the main box,
% #3=raw material
\begingroup
\edef\PfP@tempa{#1}\edef\PfP@tempb{#2}%
\setbox\@tempboxa=\hbox{#3}%
\ifdim\wd\@tempboxa>\ht\@tempboxa\relax%
\setbox\@tempboxa=\hbox{\resizebox{\PfP@tempa}{!}{#3}}%
\else%
\setbox\@tempboxa=\hbox{\resizebox{!}{\PfP@tempb}{#3}}%
\fi
\box\@tempboxa%
\endgroup
}
\newcommand\PfP@framedInfoBox[3]{%
% #1=width, #2=height, #3=info text
\begingroup
\fboxsep=3pt\fboxrule=.4pt%
\edef\PfP@tempa{#1-2\fboxsep-2\fboxrule}%
\ifx#2\height%
\fbox{\parbox[b]{\PfP@tempa}{\vfill\mbox{}#3\vfill}}%
\else%
\edef\PfP@tempb{#2-2\fboxsep-2\fboxrule}%
\fbox{\parbox[b][\PfP@tempb]{\PfP@tempa}{\vfill\mbox{}#3\vfill}}%
\fi
\endgroup
}
\fi
\ifcase\PfP@mode% == dvi (extraction mode) ==
%% "AtBeginDocument" is necessary because `preview' called `\nofiles'.
%% After this call `\makeindex' is `\relax' and can't be redefined with
%% `\renewcommand'.
\AtBeginDocument{%
\ifPfP@notightpage%
\RequirePackage[active,dvips]{preview}[2003/01/20]%
\else%
\RequirePackage[active,dvips,tightpage]{preview}[2003/01/20]%
\fi%
}
\define@key{PfP}{trim}{\xdef\PreviewBbAdjust{#1}}%
\define@key{PfP}{draft}[true]{}% Not used in this mode.
\newcommand\PSforPDF[2][]{#2}
\newcommand\PfP@relax@commands{%
%% To prevent tabularx from execute each \cmd{\PSforPDF} more than once.
\@ifundefined{tabularx}{}{%
\def\tabularx##1##2{\tabular{##2}}%
\newcolumntype{X}{c}%
\let\endtabularx=\endtabular}%
}
\AtBeginDocument{%
\@ifpackageloaded{graphicx}{}{\RequirePackage{graphicx}}%
\let\PfP@includegraphics=\includegraphics%
\renewcommand\includegraphics[2][]{%
\ifPfPinside\PfP@includegraphics[#1]{#2}\else~\fi}%
% Outside of `\PSforPDF' `\includegraphics' must do nothing
% because we can't handle pdfTeX graphics (.pdf, .jpg,...)
% in this mode. `~' is a non-zero size dummy.
\renewcommand\PSforPDF[2][]%
{%
\setkeys{PfP}{trim=\PfP@llx\space\PfP@lly\space%
\PfP@urx\space\PfP@ury,#1}\stepcounter{PSforPDF}%
\PfPinsidetrue#2\PfPinsidefalse%
}
\PreviewMacro[{[]{}}]{\PSforPDF}%
\PfP@relax@commands%
}
\AtEndDocument{%
\ifnum\value{PSforPDF}=0\relax
\PSforPDF{\mbox{}}%
% Prevents not writing a dvi file if the document contains
% no \PSforPDF commands (e.g. suppressed by \includeonly)
\fi}
\or% == pdfTeX ==
\newcommand*\PfP@lastpage{\maxdimen}
\newcommand\PSforPDF[2][]{}% Do nothing before `\begin{document}'
% The definition for the "page" key can only be executed
% at `\begin{document}' if `keyval' is present!
\AtBeginDocument{%
\ifPfP@graphics\else
\let\PfP@Ginclude@graphics\Ginclude@graphics
\def\Ginclude@graphics#1{\phantom{\PfP@Ginclude@graphics{#1}}}%
\fi
\IfFileExists{\PfP@container}%
{%
\@ifpackageloaded{graphicx}{}{\RequirePackage[pdftex]{graphicx}}%
\renewcommand\PSforPDF[2][]{%
\setkeys{PfP}{trim=\PfP@llx{} \PfP@lly{} \PfP@urx{} \PfP@ury}%
\setkeys{PfP}{draft=\PfP@draft@global,##1}%
\stepcounter{PSforPDF}%
\ifnum\PfP@lastpage<\value{PSforPDF}\relax
\PfP@framedInfoBox{\linewidth}{\height}{%
\centering Can't show picture~\#\thePSforPDF\ because it
does not exist in \texttt{\PfP@container}. Recreate
\texttt{\PfP@container}!}%
\else%
\setbox\@tempboxa=\hbox{%
\includegraphics[page=\the\value{PSforPDF},draft=false]%
{\PfP@container}}%
\setlength\@tempdima{\wd\@tempboxa-\PfP@urx+\PfP@llx}%
\setlength\@tempdimb{\ht\@tempboxa-\PfP@ury+\PfP@lly}%
% recalculate the original size.
\setbox\@tempboxa=\hbox{%
\PfP@adjustBox{\the\@tempdima}{\the\@tempdimb}{\box\@tempboxa}}%
\ifPfP@draft%
\PfP@framedInfoBox{\the\wd\@tempboxa}{\the\ht\@tempboxa}%
{\rlap{~\texttt{\PfP@container~(\#\the\value{PSforPDF})}}}%
\else%
\mbox{\box\@tempboxa}%
\fi
\xdef\PfP@lastpage{\the\pdflastximagepages}%
\fi
}
}
{%
\PackageWarningNoLine{ps4pdf}{%
Graphic container `\PfP@container' not found}%
\renewcommand\PSforPDF[2][]{%
\stepcounter{PSforPDF}%
\noindent\PfP@framedInfoBox{\linewidth}{\height}{%
\centering Can't show picture~\#\thePSforPDF\ because
\texttt{\PfP@container} not found. Create it from
\texttt{\jobname.dvi} using \texttt{dvips} and \texttt{ps2pdf}!}}
}%
}%
\AtEndDocument{%
\ifnum\PfP@lastpage=\value{PSforPDF}\relax\else
\PackageWarningNoLine{ps4pdf}{`\PfP@container' is no more valid}%
\fi}
\else% == inactive (latex/dvips, VTeX) ==
\RequirePackage{graphicx}
\newcommand\PfP@trimmBox[7]{%
% #1=width of the main box, #2=height of the main box,
% #3=trim left, #4=trim right, #5=trim top, #6=trim bottom
% #7=raw material
\begingroup
\edef\PfP@tempa{#1}\edef\PfP@tempb{#2}%
\setbox\@tempboxa=\hbox{%
\makebox[\width-#3][r]{% extends at left
\makebox[\width+#4][l]{% extends at right
\raisebox{\dp\@tempboxa-#6}% extends at top and bottom
[\ht\@tempboxa+\dp\@tempboxa+#5-#6][0pt]{#7}}}}%
\PfP@adjustBox{\PfP@tempa}{\PfP@tempb}{\box\@tempboxa}%
\endgroup
}
\newcommand\PSforPDF[2][]{#2}%
\AtBeginDocument{%
\renewcommand\PSforPDF[2][]{%
\begingroup
\setkeys{PfP}{draft=\PfP@draft@global,#1}%
\setbox\@tempboxa=\hbox{#2}%
\@tempdima=\ht\@tempboxa\advance\@tempdima\dp\@tempboxa%
\edef\PfP@tempb{\the\@tempdima}\edef\PfP@tempa{\the\wd\@tempboxa}%
\setbox\@tempboxa=\hbox{%
\PfP@trimmBox{\PfP@tempa}{\PfP@tempb}%
{\PfP@llx}{\PfP@urx}{\PfP@ury}{\PfP@lly}{\box\@tempboxa}}%
\ifPfP@draft%
\PfP@framedInfoBox{\the\wd\@tempboxa}{\the\ht\@tempboxa}{}%
\else%
\mbox{\box\@tempboxa}%
\fi
\endgroup
}%
}
\fi
\InputIfFileExists{ps4pdf.cfg}{%
\PackageInfo{ps4pdf}{Local config file ps4pdf.cfg used}
}{}
\endinput
\changes{v0.3g (RN)}{2003/02/12}{First public version.}
\changes{v0.3h (RN)}{2003/02/11}{Optional parameter for Trimming.}
\changes{v0.4a (RN)}{2003/02/13}{key-value syntax.}
\changes{v0.5 (RN)}{2003/05/17}{trim parameter: Scaling was wrong, corrected.
New options draft/final. Code cleanup. Improved test file.}
\changes{v0.5a (RN)}{2003/05/19}{Option "inactive" works now.}
\changes{v0.5b (RN)}{2003/05/21}{Mode detection changed. Code cleanup.}
\changes{v0.5c (RN)}{2003/05/26}{New Parameters "hpos" and "vpos".}
\changes{v0.6 (RN)}{2003/05/30}{trim parameter and draft option can be used
with the "inactive" option}
\changes{v0.6a (RN)}{2003/06/03}{Size and alignment after trimming changed.
Parameter "hpos" and "vpos" removed.}
\changes{v0.6b (RN)}{2003/06/09}{Simplified definition for trim key.}
\changes{v0.6c (RN)}{2003/06/19}{The name of the graphics container can now be
changed with \cmd{\containerName}. A document without any \cmd{\PSforPDF}
commands creates now an empty container file.}
\changes{v0.6d (RN)}{2003/08/17}{Inputting a config file added.}
\changes{v0.6e (RN)}{2003/09/03}{Works now with `tabularx'. Thanks to
Herbert Voss.}
\changes{v0.6f (RN)}{2003/09/05}{bug in extraction mode corrected (`graphicx'
is required). Thanks to Jose Carlos Santos.}
\changes{v0.6g (RN)}{2003/11/22}{New package options `graphics/nographics'
similar to package `crop' (suppresses the graphics output;
suggested by Markus Kohm).}
\changes{v0.6h (RN)}{2004/07/15}{In dvi extraction mode the `preview' package
should be loaded ``AtBeginDocument'' to prevent problems with `natbib'; bug
reported from ???.}
\changes{v0.6i (RN)}{2005/02/11}{Option "notightpage" added.}