392 lines
9.8 KiB
TeX
392 lines
9.8 KiB
TeX
% 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$
|
|
% $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
|
|
|