diff options
Diffstat (limited to 'Master/texmf-dist/source/generic/psfig/unsupported/psfig-li.tex')
| -rw-r--r-- | Master/texmf-dist/source/generic/psfig/unsupported/psfig-li.tex | 391 |
1 files changed, 0 insertions, 391 deletions
diff --git a/Master/texmf-dist/source/generic/psfig/unsupported/psfig-li.tex b/Master/texmf-dist/source/generic/psfig/unsupported/psfig-li.tex deleted file mode 100644 index 4255bc3199f..00000000000 --- a/Master/texmf-dist/source/generic/psfig/unsupported/psfig-li.tex +++ /dev/null @@ -1,391 +0,0 @@ -% Psfig/TeX Release 1.2 -% dvi2ps-li version -% -% All software, documentation, and related files in this distribution of -% psfig/tex are Copyright 1987, 1988 Trevor J. Darrell -% -% Permission is granted for use and non-profit distribution of psfig/tex -% providing that this notice be clearly maintained, but the right to -% distribute any portion of psfig/tex for profit or as part of any commercial -% product is specifically reserved for the author. -% -% $Header: psfig.tex,v 1.9 88/01/08 17:42:01 trevor Exp $ -% $Source: $ -% -% Thanks to Greg Hager (GDH) and Ned Batchelder for their contributions -% to this project. -% -\catcode`\@=11\relax -\newwrite\@unused -\def\typeout#1{{\let\protect\string\immediate\write\@unused{#1}}} -\typeout{psfig/tex 1.2-dvi2ps-li} - -%% Here's how you define your figure path. Should be set up with null -%% default and a user useable definition. - -\def\figurepath{./} -\def\psfigurepath#1{\edef\figurepath{#1}} - -% -% @psdo control structure -- similar to Latex @for. -% I redefined these with different names so that psfig can -% be used with TeX as well as LaTeX, and so that it will not -% be vunerable to future changes in LaTeX's internal -% control structure, -% -\def\@nnil{\@nil} -\def\@empty{} -\def\@psdonoop#1\@@#2#3{} -\def\@psdo#1:=#2\do#3{\edef\@psdotmp{#2}\ifx\@psdotmp\@empty \else - \expandafter\@psdoloop#2,\@nil,\@nil\@@#1{#3}\fi} -\def\@psdoloop#1,#2,#3\@@#4#5{\def#4{#1}\ifx #4\@nnil \else - #5\def#4{#2}\ifx #4\@nnil \else#5\@ipsdoloop #3\@@#4{#5}\fi\fi} -\def\@ipsdoloop#1,#2\@@#3#4{\def#3{#1}\ifx #3\@nnil - \let\@nextwhile=\@psdonoop \else - #4\relax\let\@nextwhile=\@ipsdoloop\fi\@nextwhile#2\@@#3{#4}} -\def\@tpsdo#1:=#2\do#3{\xdef\@psdotmp{#2}\ifx\@psdotmp\@empty \else - \@tpsdoloop#2\@nil\@nil\@@#1{#3}\fi} -\def\@tpsdoloop#1#2\@@#3#4{\def#3{#1}\ifx #3\@nnil - \let\@nextwhile=\@psdonoop \else - #4\relax\let\@nextwhile=\@tpsdoloop\fi\@nextwhile#2\@@#3{#4}} -% -% -\def\psdraft{ - \def\@psdraft{0} - %\typeout{draft level now is \@psdraft \space . } -} -\def\psfull{ - \def\@psdraft{100} - %\typeout{draft level now is \@psdraft \space . } -} -\psfull -\newif\if@prologfile -\newif\if@postlogfile -\newif\if@noisy -\def\pssilent{ - \@noisyfalse -} -\def\psnoisy{ - \@noisytrue -} -\psnoisy -%%% These are for the option list. -%%% A specification of the form a = b maps to calling \@p@@sa{b} -\newif\if@bbllx -\newif\if@bblly -\newif\if@bburx -\newif\if@bbury -\newif\if@height -\newif\if@width -\newif\if@rheight -\newif\if@rwidth -\newif\if@clip -\newif\if@verbose -\def\@p@@sclip#1{\@cliptrue} - -%%% GDH 7/26/87 -- changed so that it first looks in the local directory, -%%% then in a specified global directory for the ps file. - -\def\@p@@sfile#1{\def\@p@sfile{null}% - \openin1=#1 - \ifeof1\closein1% - \openin1=\figurepath#1 - \ifeof1\typeout{Error, File #1 not found} - \else\closein1 - \edef\@p@sfile{\figurepath#1}% - \fi% - \else\closein1% - \def\@p@sfile{#1}% - \fi} -\def\@p@@sfigure#1{\def\@p@sfile{null}% - \openin1=#1 - \ifeof1\closein1% - \openin1=\figurepath#1 - \ifeof1\typeout{Error, File #1 not found} - \else\closein1 - \def\@p@sfile{\figurepath#1}% - \fi% - \else\closein1% - \def\@p@sfile{#1}% - \fi} - -\def\@p@@sbbllx#1{ - %\typeout{bbllx is #1} - \@bbllxtrue - \dimen100=#1 - \edef\@p@sbbllx{\number\dimen100} -} -\def\@p@@sbblly#1{ - %\typeout{bblly is #1} - \@bbllytrue - \dimen100=#1 - \edef\@p@sbblly{\number\dimen100} -} -\def\@p@@sbburx#1{ - %\typeout{bburx is #1} - \@bburxtrue - \dimen100=#1 - \edef\@p@sbburx{\number\dimen100} -} -\def\@p@@sbbury#1{ - %\typeout{bbury is #1} - \@bburytrue - \dimen100=#1 - \edef\@p@sbbury{\number\dimen100} -} -\def\@p@@sheight#1{ - \@heighttrue - \dimen100=#1 - \edef\@p@sheight{\number\dimen100} - %\typeout{Height is \@p@sheight} -} -\def\@p@@swidth#1{ - %\typeout{Width is #1} - \@widthtrue - \dimen100=#1 - \edef\@p@swidth{\number\dimen100} -} -\def\@p@@srheight#1{ - %\typeout{Reserved height is #1} - \@rheighttrue - \dimen100=#1 - \edef\@p@srheight{\number\dimen100} -} -\def\@p@@srwidth#1{ - %\typeout{Reserved width is #1} - \@rwidthtrue - \dimen100=#1 - \edef\@p@srwidth{\number\dimen100} -} -\def\@p@@ssilent#1{ - \@verbosefalse -} -\def\@p@@sprolog#1{\@prologfiletrue\def\@prologfileval{#1}} -\def\@p@@spostlog#1{\@postlogfiletrue\def\@postlogfileval{#1}} -\def\@cs@name#1{\csname #1\endcsname} -\def\@setparms#1=#2,{\@cs@name{@p@@s#1}{#2}} -% -% initialize the defaults (size the size of the figure) -% -\def\ps@init@parms{ - \@bbllxfalse \@bbllyfalse - \@bburxfalse \@bburyfalse - \@heightfalse \@widthfalse - \@rheightfalse \@rwidthfalse - \def\@p@sbbllx{}\def\@p@sbblly{} - \def\@p@sbburx{}\def\@p@sbbury{} - \def\@p@sheight{}\def\@p@swidth{} - \def\@p@srheight{}\def\@p@srwidth{} - \def\@p@sfile{} - \def\@p@scost{10} - \def\@sc{} - \@prologfilefalse - \@postlogfilefalse - \@clipfalse - \if@noisy - \@verbosetrue - \else - \@verbosefalse - \fi - -} -% -% Go through the options setting things up. -% -\def\parse@ps@parms#1{ - \@psdo\@psfiga:=#1\do - {\expandafter\@setparms\@psfiga,}} -% -% Compute bb height and width -% -\newif\ifno@bb -\newif\ifnot@eof -\newread\ps@stream -\def\bb@missing{ - \if@verbose{ - \typeout{psfig: searching \@p@sfile \space for bounding box} - }\fi - \openin\ps@stream=\@p@sfile - \no@bbtrue - \not@eoftrue - \catcode`\%=12 - \loop - \read\ps@stream to \line@in - \global\toks200=\expandafter{\line@in} - \ifeof\ps@stream \not@eoffalse \fi - %\typeout{ looking at :: \the\toks200 } - \@bbtest{\toks200} - \if@bbmatch\not@eoffalse\expandafter\bb@cull\the\toks200\fi - \ifnot@eof \repeat - \catcode`\%=14 -} -\catcode`\%=12 -\newif\if@bbmatch -\def\@bbtest#1{\expandafter\@a@\the#1%%BoundingBox:\@bbtest\@a@} -\long\def\@a@#1%%BoundingBox:#2#3\@a@{\ifx\@bbtest#2\@bbmatchfalse\else\@bbmatchtrue\fi} -\long\def\bb@cull#1 #2 #3 #4 #5 { - \dimen100=#2 bp\edef\@p@sbbllx{\number\dimen100} - \dimen100=#3 bp\edef\@p@sbblly{\number\dimen100} - \dimen100=#4 bp\edef\@p@sbburx{\number\dimen100} - \dimen100=#5 bp\edef\@p@sbbury{\number\dimen100} - \no@bbfalse -} -\catcode`\%=14 -% -\def\compute@bb{ - \no@bbfalse - \if@bbllx \else \no@bbtrue \fi - \if@bblly \else \no@bbtrue \fi - \if@bburx \else \no@bbtrue \fi - \if@bbury \else \no@bbtrue \fi - \ifno@bb \bb@missing \fi - \ifno@bb \typeout{FATAL ERROR: no bb supplied or found} - \no-bb-error - \fi - % - \count203=\@p@sbburx - \count204=\@p@sbbury - \advance\count203 by -\@p@sbbllx - \advance\count204 by -\@p@sbblly - \edef\@bbw{\number\count203} - \edef\@bbh{\number\count204} - %\typeout{ bbh = \@bbh, bbw = \@bbw } -} -% -% \in@hundreds performs #1 * (#2 / #3) correct to the hundreds, -% then leaves the result in @result -% -\def\in@hundreds#1#2#3{\count240=#2 \count241=#3 - \count100=\count240 % 100 is first digit #2/#3 - \divide\count100 by \count241 - \count101=\count100 - \multiply\count101 by \count241 - \advance\count240 by -\count101 - \multiply\count240 by 10 - \count101=\count240 %101 is second digit of #2/#3 - \divide\count101 by \count241 - \count102=\count101 - \multiply\count102 by \count241 - \advance\count240 by -\count102 - \multiply\count240 by 10 - \count102=\count240 % 102 is the third digit - \divide\count102 by \count241 - \count200=#1\count205=0 - \count201=\count200 - \multiply\count201 by \count100 - \advance\count205 by \count201 - \count201=\count200 - \divide\count201 by 10 - \multiply\count201 by \count101 - \advance\count205 by \count201 - % - \count201=\count200 - \divide\count201 by 100 - \multiply\count201 by \count102 - \advance\count205 by \count201 - % - \edef\@result{\number\count205} -} -\def\compute@wfromh{ - % computing : width = height * (bbw / bbh) - \in@hundreds{\@p@sheight}{\@bbw}{\@bbh} - %\typeout{ \@p@sheight * \@bbw / \@bbh, = \@result } - \edef\@p@swidth{\@result} - %\typeout{w from h: width is \@p@swidth} -} -\def\compute@hfromw{ - % computing : height = width * (bbh / bbw) - \in@hundreds{\@p@swidth}{\@bbh}{\@bbw} - %\typeout{ \@p@swidth * \@bbh / \@bbw = \@result } - \edef\@p@sheight{\@result} - %\typeout{h from w : height is \@p@sheight} -} -\def\compute@handw{ - \if@height - \if@width - \else - \compute@wfromh - \fi - \else - \if@width - \compute@hfromw - \else - \edef\@p@sheight{\@bbh} - \edef\@p@swidth{\@bbw} - \fi - \fi -} -\def\compute@resv{ - \if@rheight \else \edef\@p@srheight{\@p@sheight} \fi - \if@rwidth \else \edef\@p@srwidth{\@p@swidth} \fi -} -% -% Compute any missing values -\def\compute@sizes{ - \compute@bb - \compute@handw - \compute@resv -} -% -% \psfig -% usage : \psfig{file=, height=, width=, bbllx=, bblly=, bburx=, bbury=, -% rheight=, rwidth=, clip=} -% -% "clip=" is a switch and takes no value, but the `=' must be present. -\def\psfig#1{\vbox { - % do a zero width hard space so that a single - % \psfig in a centering enviornment will behave nicely - %{\setbox0=\hbox{\ }\ \hskip-\wd0} - % - \ps@init@parms - \parse@ps@parms{#1} - \compute@sizes - % - \ifnum\@p@scost<\@psdraft{ - \if@verbose{ - \typeout{psfig: including \@p@sfile \space } - }\fi - % - \special{ pstext="\@p@swidth \space - \@p@sheight \space - \@p@sbbllx \space \@p@sbblly \space - \@p@sbburx \space - \@p@sbbury \space startTexFig" \space} - \if@clip{ - \if@verbose{ - \typeout{(clip)} - }\fi - \special{ pstext="doclip \space"} - }\fi - \if@prologfile - \special{psfile=\@prologfileval \space } \fi - \special{psfile=\@p@sfile \space } - \if@postlogfile - \special{psfile=\@postlogfileval \space } \fi - \special{pstext=endTexFig \space } - % Create the vbox to reserve the space for the figure - \vbox to \@p@srheight true sp{ - \hbox to \@p@srwidth true sp{ - \hss - } - \vss - } - }\else{ - % draft figure, just reserve the space and print the - % path name. - \vbox to \@p@srheight true sp{ - \vss - \hbox to \@p@srwidth true sp{ - \hss - \if@verbose{ - \@p@sfile - }\fi - \hss - } - \vss - } - }\fi -}} -\def\psglobal{\typeout{psfig: PSGLOBAL is OBSOLETE; use psprint -m instead}} -\catcode`\@=12\relax - |