% 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

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.