From 61de4335f6359f8706beacfc10912a70d02e90d2 Mon Sep 17 00:00:00 2001 From: couchot Date: Mon, 10 Jun 2013 21:31:27 +0200 Subject: [PATCH 1/1] ajout boub --- psfig.sty | 995 ++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 995 insertions(+) create mode 100644 psfig.sty diff --git a/psfig.sty b/psfig.sty new file mode 100644 index 0000000..606c18c --- /dev/null +++ b/psfig.sty @@ -0,0 +1,995 @@ +% Psfig/TeX +\def\PsfigVersion{1.10} +\def\setDriver{\DvipsDriver} % \DvipsDriver or \OzTeXDriver +% +% All software, documentation, and related files in this distribution of +% psfig/tex are Copyright 1993 Trevor J. Darrell +% +% Permission is granted for use and non-profit distribution of psfig/tex +% providing that this notice is clearly maintained. The right to +% distribute any portion of psfig/tex for profit or as part of any commercial +% product is specifically reserved for the author(s) of that portion. +% +% To use with LaTeX, use \documentstyle[psfig,...]{...} +% To use with TeX, use \input psfig.sty +% +% Bugs and improvements to trevor@media.mit.edu. +% +% Thanks to Ned Batchelder, Greg Hager (GDH), J. Daniel Smith (JDS), +% Tom Rokicki (TR), Robert Russell (RR), George V. Reilly (GVR), +% Ken McGlothlen (KHC), Baron Grey (BG), Gerhard Tobermann (GT). +% and all others who have contributed code and comments to this project! +% +% ====================================================================== +% Modification History: +% +% 9 Oct 1990 JDS used more robust bbox reading code from Tom Rokicki +% 29 Mar 1991 JDS implemented rotation= option +% 25 Jun 1991 RR if bb specified on cmd line don't check +% for .ps file. +% 3 Jul 1991 JDS check if file already read in once +% 4 Sep 1991 JDS fixed incorrect computation of rotated +% bounding box +% 25 Sep 1991 GVR expanded synopsis of \psfig +% 14 Oct 1991 JDS \fbox code from LaTeX so \psdraft works with TeX +% changed \typeout to \ps@typeout +% 17 Oct 1991 JDS added \psscalefirst and \psrotatefirst +% 23 Jun 1993 KHC ``doclip'' must appear before ``rotate'' +% 27 Oct 1993 TJD removed printing of filename to avoid +% underscore problems. changed \frame to \fbox. +% Added OzTeX support from BG. Added new +% figure search path code from GT. +% +% ====================================================================== +% +% Command synopsis: +% +% \psdraft draws an outline box, but doesn't include the figure +% in the DVI file. Useful for previewing. +% +% \psfull includes the figure in the DVI file (default). +% +% \psscalefirst width= or height= specifies the size of the figure +% before rotation. +% \psrotatefirst (default) width= or height= specifies the size of the +% figure after rotation. Asymetric figures will +% appear to shrink. +% +% \psfigurepath{dir:dir:...} sets the path to search for the figure +% +% \psfig +% usage: \psfig{file=, figure=, height=, width=, +% bbllx=, bblly=, bburx=, bbury=, +% rheight=, rwidth=, clip=, angle=, silent=} +% +% "file" is the filename. If no path name is specified and the +% file is not found in the current directory, +% it will be looked for in directory \psfigurepath. +% "figure" is a synonym for "file". +% By default, the width and height of the figure are taken from +% the BoundingBox of the figure. +% If "width" is specified, the figure is scaled so that it has +% the specified width. Its height changes proportionately. +% If "height" is specified, the figure is scaled so that it has +% the specified height. Its width changes proportionately. +% If both "width" and "height" are specified, the figure is scaled +% anamorphically. +% "bbllx", "bblly", "bburx", and "bbury" control the PostScript +% BoundingBox. If these four values are specified +% *before* the "file" option, the PSFIG will not try to +% open the PostScript file. +% "rheight" and "rwidth" are the reserved height and width +% of the figure, i.e., how big TeX actually thinks +% the figure is. They default to "width" and "height". +% The "clip" option ensures that no portion of the figure will +% appear outside its BoundingBox. "clip=" is a switch and +% takes no value, but the `=' must be present. +% The "angle" option specifies the angle of rotation (degrees, ccw). +% The "silent" option makes \psfig work silently. +% +% ====================================================================== +% check to see if macros already loaded in (maybe some other file says +% "\input psfig") ... +\ifx\undefined\psfig\else\endinput\fi +% +% from a suggestion by eijkhout@csrd.uiuc.edu to allow +% loading as a style file. Changed to avoid problems +% with amstex per suggestion by jbence@math.ucla.edu + +\let\LaTeXAtSign=\@ +\let\@=\relax +\edef\psfigRestoreAt{\catcode`\@=\number\catcode`@\relax} +%\edef\psfigRestoreAt{\catcode`@=\number\catcode`@\relax} +\catcode`\@=11\relax +\newwrite\@unused +\def\ps@typeout#1{{\let\protect\string\immediate\write\@unused{#1}}} + +\def\DvipsDriver{ + \ps@typeout{psfig/tex \PsfigVersion -dvips} +\def\PsfigSpecials{\DvipsSpecials} \def\ps@dir{/} +\def\ps@predir{} } +\def\OzTeXDriver{ + \ps@typeout{psfig/tex \PsfigVersion -oztex} + \def\PsfigSpecials{\OzTeXSpecials} + \def\ps@dir{:} + \def\ps@predir{:} + \catcode`\^^J=5 +} + +%% 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:}} + +%%% inserted for Searching Unixpaths +%%% (the path must end with :) +%%% (call: \DoPaths\figurepath ) +%%%------------------------------------------------------ +\def\DoPaths#1{\expandafter\EachPath#1\stoplist} +% +\def\leer{} +\def\EachPath#1:#2\stoplist{% #1 part of the list (delimiter :) + \ExistsFile{#1}{\SearchedFile} + \ifx#2\leer + \else + \expandafter\EachPath#2\stoplist + \fi} +% +% exists the file (does not work for directories!) +% +\def\ps@dir{/} +\def\ExistsFile#1#2{% + \openin1=\ps@predir#1\ps@dir#2 + \ifeof1 + \closein1 + %\ps@typeout{...not: \ps@predir#1\ps@dir#2} + \else + \closein1 + %\ps@typeout{...in: \ps@predir#1\ps@dir#2} + \ifx\ps@founddir\leer + %\ps@typeout{set founddir #1} + \edef\ps@founddir{#1} + \fi + \fi} +%------------------------------------------------------ +% +% Get dir in path or error +% +\def\get@dir#1{% + \def\ps@founddir{} + \def\SearchedFile{#1} + \DoPaths\figurepath +% \fi +} +%------------------------------------------------------ +%%% END of Searching Unixpaths + + +% +% @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}} +% +% \fbox is defined in latex.tex; so if \fbox is undefined, assume that +% we are not in LaTeX. +% Perhaps this could be done better??? +\ifx\undefined\fbox +% \fbox code from modified slightly from LaTeX +\newdimen\fboxrule +\newdimen\fboxsep +\newdimen\ps@tempdima +\newbox\ps@tempboxa +\fboxsep = 3pt +\fboxrule = .4pt +\long\def\fbox#1{\leavevmode\setbox\ps@tempboxa\hbox{#1}\ps@tempdima\fboxrule + \advance\ps@tempdima \fboxsep \advance\ps@tempdima \dp\ps@tempboxa + \hbox{\lower \ps@tempdima\hbox + {\vbox{\hrule height \fboxrule + \hbox{\vrule width \fboxrule \hskip\fboxsep + \vbox{\vskip\fboxsep \box\ps@tempboxa\vskip\fboxsep}\hskip + \fboxsep\vrule width \fboxrule} + \hrule height \fboxrule}}}} +\fi +% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% file reading stuff from epsf.tex +% EPSF.TEX macro file: +% Written by Tomas Rokicki of Radical Eye Software, 29 Mar 1989. +% Revised by Don Knuth, 3 Jan 1990. +% Revised by Tomas Rokicki to accept bounding boxes with no +% space after the colon, 18 Jul 1990. +% Portions modified/removed for use in PSFIG package by +% J. Daniel Smith, 9 October 1990. +% +\newread\ps@stream +\newif\ifnot@eof % continue looking for the bounding box? +\newif\if@noisy % report what you're making? +\newif\if@atend % %%BoundingBox: has (at end) specification +\newif\if@psfile % does this look like a PostScript file? +% +% PostScript files should start with `%!' +% +{\catcode`\%=12\global\gdef\epsf@start{%!}} +\def\epsf@PS{PS} +% +\def\epsf@getbb#1{% +% +% The first thing we need to do is to open the +% PostScript file, if possible. +% +\openin\ps@stream=\ps@predir#1 +\ifeof\ps@stream\ps@typeout{Error, File #1 not found}\else +% +% Okay, we got it. Now we'll scan lines until we find one that doesn't +% start with %. We're looking for the bounding box comment. +% + {\not@eoftrue \chardef\other=12 + \def\do##1{\catcode`##1=\other}\dospecials \catcode`\ =10 + \loop + \if@psfile + \read\ps@stream to \epsf@fileline + \else{ + \obeyspaces + \read\ps@stream to \epsf@tmp\global\let\epsf@fileline\epsf@tmp} + \fi + \ifeof\ps@stream\not@eoffalse\else +% +% Check the first line for `%!'. Issue a warning message if its not +% there, since the file might not be a PostScript file. +% + \if@psfile\else + \expandafter\epsf@test\epsf@fileline:. \\% + \fi +% +% We check to see if the first character is a % sign; +% if so, we look further and stop only if the line begins with +% `%%BoundingBox:' and the `(atend)' specification was not found. +% That is, the only way to stop is when the end of file is reached, +% or a `%%BoundingBox: llx lly urx ury' line is found. +% + \expandafter\epsf@aux\epsf@fileline:. \\% + \fi + \ifnot@eof\repeat + }\closein\ps@stream\fi}% +% +% This tests if the file we are reading looks like a PostScript file. +% +\long\def\epsf@test#1#2#3:#4\\{\def\epsf@testit{#1#2} + \ifx\epsf@testit\epsf@start\else +\ps@typeout{Warning! File does not start with `\epsf@start'. It may not be a PostScript file.} + \fi + \@psfiletrue} % don't test after 1st line +% +% We still need to define the tricky \epsf@aux macro. This requires +% a couple of magic constants for comparison purposes. +% +{\catcode`\%=12\global\let\epsf@percent=%\global\def\epsf@bblit{%BoundingBox}} +% +% +% So we're ready to check for `%BoundingBox:' and to grab the +% values if they are found. We continue searching if `(at end)' +% was found after the `%BoundingBox:'. +% +\long\def\epsf@aux#1#2:#3\\{\ifx#1\epsf@percent + \def\epsf@testit{#2}\ifx\epsf@testit\epsf@bblit + \@atendfalse + \epsf@atend #3 . \\% + \if@atend + \if@verbose{ + \ps@typeout{psfig: found `(atend)'; continuing search} + }\fi + \else + \epsf@grab #3 . . . \\% + \not@eoffalse + \global\no@bbfalse + \fi + \fi\fi}% +% +% Here we grab the values and stuff them in the appropriate definitions. +% +\def\epsf@grab #1 #2 #3 #4 #5\\{% + \global\def\epsf@llx{#1}\ifx\epsf@llx\empty + \epsf@grab #2 #3 #4 #5 .\\\else + \global\def\epsf@lly{#2}% + \global\def\epsf@urx{#3}\global\def\epsf@ury{#4}\fi}% +% +% Determine if the stuff following the %%BoundingBox is `(atend)' +% J. Daniel Smith. Copied from \epsf@grab above. +% +\def\epsf@atendlit{(atend)} +\def\epsf@atend #1 #2 #3\\{% + \def\epsf@tmp{#1}\ifx\epsf@tmp\empty + \epsf@atend #2 #3 .\\\else + \ifx\epsf@tmp\epsf@atendlit\@atendtrue\fi\fi} + + +% End of file reading stuff from epsf.tex +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +% trigonometry stuff from "trig.tex" +\chardef\psletter = 11 % won't conflict with \begin{letter} now... +\chardef\other = 12 + +\newif \ifdebug %%% turn me on to see TeX hard at work ... +\newif\ifc@mpute %%% don't need to compute some values +\c@mputetrue % but assume that we do + +\let\then = \relax +\def\r@dian{pt } +\let\r@dians = \r@dian +\let\dimensionless@nit = \r@dian +\let\dimensionless@nits = \dimensionless@nit +\def\internal@nit{sp } +\let\internal@nits = \internal@nit +\newif\ifstillc@nverging +\def \Mess@ge #1{\ifdebug \then \message {#1} \fi} + +{ %%% Things that need abnormal catcodes %%% + \catcode `\@ = \psletter + \gdef \nodimen {\expandafter \n@dimen \the \dimen} + \gdef \term #1 #2 #3% + {\edef \t@ {\the #1}%%% freeze parameter 1 (count, by value) + \edef \t@@ {\expandafter \n@dimen \the #2\r@dian}% + %%% freeze parameter 2 (dimen, by value) + \t@rm {\t@} {\t@@} {#3}% + } + \gdef \t@rm #1 #2 #3% + {{% + \count 0 = 0 + \dimen 0 = 1 \dimensionless@nit + \dimen 2 = #2\relax + \Mess@ge {Calculating term #1 of \nodimen 2}% + \loop + \ifnum \count 0 < #1 + \then \advance \count 0 by 1 + \Mess@ge {Iteration \the \count 0 \space}% + \Multiply \dimen 0 by {\dimen 2}% + \Mess@ge {After multiplication, term = \nodimen 0}% + \Divide \dimen 0 by {\count 0}% + \Mess@ge {After division, term = \nodimen 0}% + \repeat + \Mess@ge {Final value for term #1 of + \nodimen 2 \space is \nodimen 0}% + \xdef \Term {#3 = \nodimen 0 \r@dians}% + \aftergroup \Term + }} + \catcode `\p = \other + \catcode `\t = \other + \gdef \n@dimen #1pt{#1} %%% throw away the ``pt'' +} + +\def \Divide #1by #2{\divide #1 by #2} %%% just a synonym + +\def \Multiply #1by #2%%% allows division of a dimen by a dimen + {{%%% should really freeze parameter 2 (dimen, passed by value) + \count 0 = #1\relax + \count 2 = #2\relax + \count 4 = 65536 + \Mess@ge {Before scaling, count 0 = \the \count 0 \space and + count 2 = \the \count 2}% + \ifnum \count 0 > 32767 %%% do our best to avoid overflow + \then \divide \count 0 by 4 + \divide \count 4 by 4 + \else \ifnum \count 0 < -32767 + \then \divide \count 0 by 4 + \divide \count 4 by 4 + \else + \fi + \fi + \ifnum \count 2 > 32767 %%% while retaining reasonable accuracy + \then \divide \count 2 by 4 + \divide \count 4 by 4 + \else \ifnum \count 2 < -32767 + \then \divide \count 2 by 4 + \divide \count 4 by 4 + \else + \fi + \fi + \multiply \count 0 by \count 2 + \divide \count 0 by \count 4 + \xdef \product {#1 = \the \count 0 \internal@nits}% + \aftergroup \product + }} + +\def\r@duce{\ifdim\dimen0 > 90\r@dian \then % sin(x+90) = sin(180-x) + \multiply\dimen0 by -1 + \advance\dimen0 by 180\r@dian + \r@duce + \else \ifdim\dimen0 < -90\r@dian \then % sin(-x) = sin(360+x) + \advance\dimen0 by 360\r@dian + \r@duce + \fi + \fi} + +\def\Sine#1% + {{% + \dimen 0 = #1 \r@dian + \r@duce + \ifdim\dimen0 = -90\r@dian \then + \dimen4 = -1\r@dian + \c@mputefalse + \fi + \ifdim\dimen0 = 90\r@dian \then + \dimen4 = 1\r@dian + \c@mputefalse + \fi + \ifdim\dimen0 = 0\r@dian \then + \dimen4 = 0\r@dian + \c@mputefalse + \fi +% + \ifc@mpute \then + % convert degrees to radians + \divide\dimen0 by 180 + \dimen0=3.141592654\dimen0 +% + \dimen 2 = 3.1415926535897963\r@dian %%% a well-known constant + \divide\dimen 2 by 2 %%% we only deal with -pi/2 : pi/2 + \Mess@ge {Sin: calculating Sin of \nodimen 0}% + \count 0 = 1 %%% see power-series expansion for sine + \dimen 2 = 1 \r@dian %%% ditto + \dimen 4 = 0 \r@dian %%% ditto + \loop + \ifnum \dimen 2 = 0 %%% then we've done + \then \stillc@nvergingfalse + \else \stillc@nvergingtrue + \fi + \ifstillc@nverging %%% then calculate next term + \then \term {\count 0} {\dimen 0} {\dimen 2}% + \advance \count 0 by 2 + \count 2 = \count 0 + \divide \count 2 by 2 + \ifodd \count 2 %%% signs alternate + \then \advance \dimen 4 by \dimen 2 + \else \advance \dimen 4 by -\dimen 2 + \fi + \repeat + \fi + \xdef \sine {\nodimen 4}% + }} + +% Now the Cosine can be calculated easily by calling \Sine +\def\Cosine#1{\ifx\sine\UnDefined\edef\Savesine{\relax}\else + \edef\Savesine{\sine}\fi + {\dimen0=#1\r@dian\advance\dimen0 by 90\r@dian + \Sine{\nodimen 0} + \xdef\cosine{\sine} + \xdef\sine{\Savesine}}} +% end of trig stuff +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\def\psdraft{ + \def\@psdraft{0} + %\ps@typeout{draft level now is \@psdraft \space . } +} +\def\psfull{ + \def\@psdraft{100} + %\ps@typeout{draft level now is \@psdraft \space . } +} + +\psfull + +\newif\if@scalefirst +\def\psscalefirst{\@scalefirsttrue} +\def\psrotatefirst{\@scalefirstfalse} +\psrotatefirst + +\newif\if@draftbox +\def\psnodraftbox{ + \@draftboxfalse +} +\def\psdraftbox{ + \@draftboxtrue +} +\@draftboxtrue + +\newif\if@prologfile +\newif\if@postlogfile +\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@angle +\newif\if@clip +\newif\if@verbose +\def\@p@@sclip#1{\@cliptrue} +% +% +\newif\if@decmpr +% +\def\@p@@sfigure#1{\def\@p@sfile{null}\def\@p@sbbfile{null}\@decmprfalse + % look directly for file (e.g. absolute path) + \openin1=\ps@predir#1 + \ifeof1 + \closein1 + % failed, search directories for file + \get@dir{#1} + \ifx\ps@founddir\leer + % failed, search directly for file.bb + \openin1=\ps@predir#1.bb + \ifeof1 + \closein1 + % failed, search directories for file.bb + \get@dir{#1.bb} + \ifx\ps@founddir\leer + % failed, lose. + \ps@typeout{Can't find #1 in \figurepath} + \else + % found file.bb in search dir + \@decmprtrue + \def\@p@sfile{\ps@founddir\ps@dir#1} + \def\@p@sbbfile{\ps@founddir\ps@dir#1.bb} + \fi + \else + \closein1 + %found file.bb directly + \@decmprtrue + \def\@p@sfile{#1} + \def\@p@sbbfile{#1.bb} + \fi + \else + % found file in search dir + \def\@p@sfile{\ps@founddir\ps@dir#1} + \def\@p@sbbfile{\ps@founddir\ps@dir#1} + \fi + \else + % found file directly + \closein1 + \def\@p@sfile{#1} + \def\@p@sbbfile{#1} + \fi +} +% +% +% +\def\@p@@sfile#1{\@p@@sfigure{#1}} +% +\def\@p@@sbbllx#1{ + %\ps@typeout{bbllx is #1} + \@bbllxtrue + \dimen100=#1 + \edef\@p@sbbllx{\number\dimen100} +} +\def\@p@@sbblly#1{ + %\ps@typeout{bblly is #1} + \@bbllytrue + \dimen100=#1 + \edef\@p@sbblly{\number\dimen100} +} +\def\@p@@sbburx#1{ + %\ps@typeout{bburx is #1} + \@bburxtrue + \dimen100=#1 + \edef\@p@sbburx{\number\dimen100} +} +\def\@p@@sbbury#1{ + %\ps@typeout{bbury is #1} + \@bburytrue + \dimen100=#1 + \edef\@p@sbbury{\number\dimen100} +} +\def\@p@@sheight#1{ + \@heighttrue + \dimen100=#1 + \edef\@p@sheight{\number\dimen100} + %\ps@typeout{Height is \@p@sheight} +} +\def\@p@@swidth#1{ + %\ps@typeout{Width is #1} + \@widthtrue + \dimen100=#1 + \edef\@p@swidth{\number\dimen100} +} +\def\@p@@srheight#1{ + %\ps@typeout{Reserved height is #1} + \@rheighttrue + \dimen100=#1 + \edef\@p@srheight{\number\dimen100} +} +\def\@p@@srwidth#1{ + %\ps@typeout{Reserved width is #1} + \@rwidthtrue + \dimen100=#1 + \edef\@p@srwidth{\number\dimen100} +} +\def\@p@@sangle#1{ + %\ps@typeout{Rotation is #1} + \@angletrue +% \dimen100=#1 + \edef\@p@sangle{#1} %\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@sangle{0} + \def\@p@sfile{} \def\@p@sbbfile{} + \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 +\def\bb@missing{ + \if@verbose{ + \ps@typeout{psfig: searching \@p@sbbfile \space for bounding box} + }\fi + \no@bbtrue + \epsf@getbb{\@p@sbbfile} + \ifno@bb \else \bb@cull\epsf@llx\epsf@lly\epsf@urx\epsf@ury\fi +} +\def\bb@cull#1#2#3#4{ + \dimen100=#1 bp\edef\@p@sbbllx{\number\dimen100} + \dimen100=#2 bp\edef\@p@sbblly{\number\dimen100} + \dimen100=#3 bp\edef\@p@sbburx{\number\dimen100} + \dimen100=#4 bp\edef\@p@sbbury{\number\dimen100} + \no@bbfalse +} +% rotate point (#1,#2) about (0,0). +% The sine and cosine of the angle are already stored in \sine and +% \cosine. The result is placed in (\p@intvaluex, \p@intvaluey). +\newdimen\p@intvaluex +\newdimen\p@intvaluey +\def\rotate@#1#2{{\dimen0=#1 sp\dimen1=#2 sp +% calculate x' = x \cos\theta - y \sin\theta + \global\p@intvaluex=\cosine\dimen0 + \dimen3=\sine\dimen1 + \global\advance\p@intvaluex by -\dimen3 +% calculate y' = x \sin\theta + y \cos\theta + \global\p@intvaluey=\sine\dimen0 + \dimen3=\cosine\dimen1 + \global\advance\p@intvaluey by \dimen3 + }} +\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 \ps@typeout{FATAL ERROR: no bb supplied or found} + \no-bb-error + \fi + % +%\ps@typeout{BB: \@p@sbbllx, \@p@sbblly, \@p@sbburx, \@p@sbbury} +% +% store height/width of original (unrotated) bounding box + \count203=\@p@sbburx + \count204=\@p@sbbury + \advance\count203 by -\@p@sbbllx + \advance\count204 by -\@p@sbblly + \edef\ps@bbw{\number\count203} + \edef\ps@bbh{\number\count204} + %\ps@typeout{ psbbh = \ps@bbh, psbbw = \ps@bbw } + \if@angle + \Sine{\@p@sangle}\Cosine{\@p@sangle} + {\dimen100=\maxdimen\xdef\r@p@sbbllx{\number\dimen100} + \xdef\r@p@sbblly{\number\dimen100} + \xdef\r@p@sbburx{-\number\dimen100} + \xdef\r@p@sbbury{-\number\dimen100}} +% +% Need to rotate all four points and take the X-Y extremes of the new +% points as the new bounding box. + \def\minmaxtest{ + \ifnum\number\p@intvaluex<\r@p@sbbllx + \xdef\r@p@sbbllx{\number\p@intvaluex}\fi + \ifnum\number\p@intvaluex>\r@p@sbburx + \xdef\r@p@sbburx{\number\p@intvaluex}\fi + \ifnum\number\p@intvaluey<\r@p@sbblly + \xdef\r@p@sbblly{\number\p@intvaluey}\fi + \ifnum\number\p@intvaluey>\r@p@sbbury + \xdef\r@p@sbbury{\number\p@intvaluey}\fi + } +% lower left + \rotate@{\@p@sbbllx}{\@p@sbblly} + \minmaxtest +% upper left + \rotate@{\@p@sbbllx}{\@p@sbbury} + \minmaxtest +% lower right + \rotate@{\@p@sbburx}{\@p@sbblly} + \minmaxtest +% upper right + \rotate@{\@p@sbburx}{\@p@sbbury} + \minmaxtest + \edef\@p@sbbllx{\r@p@sbbllx}\edef\@p@sbblly{\r@p@sbblly} + \edef\@p@sbburx{\r@p@sbburx}\edef\@p@sbbury{\r@p@sbbury} +%\ps@typeout{rotated BB: \r@p@sbbllx, \r@p@sbblly, \r@p@sbburx, \r@p@sbbury} + \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} + %\ps@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} + %\ps@typeout{ \@p@sheight * \@bbw / \@bbh, = \@result } + \edef\@p@swidth{\@result} + %\ps@typeout{w from h: width is \@p@swidth} +} +\def\compute@hfromw{ + % computing : height = width * (bbh / bbw) + \in@hundreds{\@p@swidth}{\@bbh}{\@bbw} + %\ps@typeout{ \@p@swidth * \@bbh / \@bbw = \@result } + \edef\@p@sheight{\@result} + %\ps@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 + %\ps@typeout{rheight = \@p@srheight, rwidth = \@p@srwidth} +} +% +% Compute any missing values +\def\compute@sizes{ + \compute@bb + \if@scalefirst\if@angle +% at this point the bounding box has been adjsuted correctly for +% rotation. PSFIG does all of its scaling using \@bbh and \@bbw. If +% a width= or height= was specified along with \psscalefirst, then the +% width=/height= value needs to be adjusted to match the new (rotated) +% bounding box size (specifed in \@bbw and \@bbh). +% \ps@bbw width= +% ------- = ---------- +% \@bbw new width= +% so `new width=' = (width= * \@bbw) / \ps@bbw; where \ps@bbw is the +% width of the original (unrotated) bounding box. + \if@width + \in@hundreds{\@p@swidth}{\@bbw}{\ps@bbw} + \edef\@p@swidth{\@result} + \fi + \if@height + \in@hundreds{\@p@sheight}{\@bbh}{\ps@bbh} + \edef\@p@sheight{\@result} + \fi + \fi\fi + \compute@handw + \compute@resv} +% +% +% +\def\OzTeXSpecials{ + \special{empty.ps /@isp {true} def} + \special{empty.ps \@p@swidth \space \@p@sheight \space + \@p@sbbllx \space \@p@sbblly \space + \@p@sbburx \space \@p@sbbury \space + startTexFig \space } + \if@clip{ + \if@verbose{ + \ps@typeout{(clip)} + }\fi + \special{empty.ps doclip \space } + }\fi + \if@angle{ + \if@verbose{ + \ps@typeout{(rotate)} + }\fi + \special {empty.ps \@p@sangle \space rotate \space} + }\fi + \if@prologfile + \special{\@prologfileval \space } \fi + \if@decmpr{ + \if@verbose{ + \ps@typeout{psfig: Compression not available + in OzTeX version \space } + }\fi + }\else{ + \if@verbose{ + \ps@typeout{psfig: including \@p@sfile \space } + }\fi + \special{epsf=\@p@sfile \space } + }\fi + \if@postlogfile + \special{\@postlogfileval \space } \fi + \special{empty.ps /@isp {false} def} +} +\def\DvipsSpecials{ + % + \special{ps::[begin] \@p@swidth \space \@p@sheight \space + \@p@sbbllx \space \@p@sbblly \space + \@p@sbburx \space \@p@sbbury \space + startTexFig \space } + \if@clip{ + \if@verbose{ + \ps@typeout{(clip)} + }\fi + \special{ps:: doclip \space } + }\fi + \if@angle + \if@verbose{ + \ps@typeout{(clip)} + }\fi + \special {ps:: \@p@sangle \space rotate \space} + \fi + \if@prologfile + \special{ps: plotfile \@prologfileval \space } \fi + \if@decmpr{ + \if@verbose{ + \ps@typeout{psfig: including \@p@sfile.Z \space } + }\fi + \special{ps: plotfile "`zcat \@p@sfile.Z" \space } + }\else{ + \if@verbose{ + \ps@typeout{psfig: including \@p@sfile \space } + }\fi + \special{ps: plotfile \@p@sfile \space } + }\fi + \if@postlogfile + \special{ps: plotfile \@postlogfileval \space } \fi + \special{ps::[end] endTexFig \space } +} +% +% \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{ + \PsfigSpecials + % Create the vbox to reserve the space for the figure. + \vbox to \@p@srheight sp{ + % 1/92 TJD Changed from "true sp" to "sp" for magnification. + \hbox to \@p@srwidth sp{ + \hss + } + \vss + } + }\else{ + % draft figure, just reserve the space and print the + % path name. + \if@draftbox{ + % Verbose draft: print file name in box + % 10/93 TJD changed to fbox from frame + \hbox{\fbox{\vbox to \@p@srheight sp{ + \vss + \hbox to \@p@srwidth sp{ \hss + % 10/93 TJD deleted to avoid ``_'' problems + % \@p@sfile + \hss } + \vss + }}} + }\else{ + % Non-verbose draft + \vbox to \@p@srheight sp{ + \vss + \hbox to \@p@srwidth sp{\hss} + \vss + } + }\fi + + + + }\fi +}} +\psfigRestoreAt +\setDriver +\let\@=\LaTeXAtSign + + + -- 2.39.5