summaryrefslogtreecommitdiff
path: root/Master/texmf-dist
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-13 00:03:37 +0000
committerKarl Berry <karl@freefriends.org>2006-01-13 00:03:37 +0000
commit5603710acd5dc9776105186bcf8fcc0a3a59bbe7 (patch)
tree640644e6b336033b8c25ba91edd243fbd7e86015 /Master/texmf-dist
parenta86b8568e73fbc837c453aac4ae5b774205909b4 (diff)
ps4pdf
git-svn-id: svn://tug.org/texlive/trunk@1225 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
-rw-r--r--Master/texmf-dist/tex/latex/ps4pdf/ps4pdf.sty284
1 files changed, 284 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/ps4pdf/ps4pdf.sty b/Master/texmf-dist/tex/latex/ps4pdf/ps4pdf.sty
new file mode 100644
index 00000000000..4ef924b92ef
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/ps4pdf/ps4pdf.sty
@@ -0,0 +1,284 @@
+
+% 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.}