From: couchot <jf.couchot@gmail.com>
Date: Mon, 10 Jun 2013 19:31:27 +0000 (+0200)
Subject: ajout boub
X-Git-Url: https://bilbo.iut-bm.univ-fcomte.fr/and/gitweb/canny.git/commitdiff_plain/61de4335f6359f8706beacfc10912a70d02e90d2?ds=inline;hp=--cc

ajout boub
---

61de4335f6359f8706beacfc10912a70d02e90d2
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
+
+
+