home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / plbin.zip / pl / man / psfig.sty < prev    next >
Text File  |  1992-05-26  |  9KB  |  341 lines
  1. % psfigTeX macros
  2. %
  3. % All software, documentation, and related files in this distribution of
  4. % psfig/tex are Copyright (c) 1987 Trevor J. Darrell
  5. %
  6. % Permission is granted for use and non-profit distribution of psfig/tex 
  7. % providing that this notice be clearly maintained, but the right to
  8. % distribute any portion of psfig/tex for profit or as part of any commercial
  9. % product is specifically reserved for the author.
  10. %
  11. %
  12. % /staff/jan/CVS/pl/man/psfig.sty,v 1.1.1.1 1992/05/26 11:51:50 jan Exp
  13. %
  14. \catcode`\@=11\relax
  15. \newwrite\@unused
  16. \def\typeout#1{{\let\protect\string\immediate\write\@unused{#1}}}
  17. \def\psglobal#1{
  18. \immediate\special{ps:plotfile #1 global}}
  19. \def\psfiginit{\typeout{psfiginit}
  20. \immediate\psglobal{figtex.pro}}
  21. %
  22. % @psdo control structure -- similar to Latex @for.
  23. % I redefined these with different names so that psfig can
  24. % be used with TeX as well as LaTeX, and so that it will not 
  25. % be vunerable to future changes in LaTeX's internal
  26. % control structure,
  27. %
  28. \def\@nnil{\@nil}
  29. \def\@empty{}
  30. \def\@psdonoop#1\@@#2#3{}
  31. \def\@psdo#1:=#2\do#3{\edef\@psdotmp{#2}\ifx\@psdotmp\@empty \else
  32.     \expandafter\@psdoloop#2,\@nil,\@nil\@@#1{#3}\fi}
  33. \def\@psdoloop#1,#2,#3\@@#4#5{\def#4{#1}\ifx #4\@nnil \else
  34.        #5\def#4{#2}\ifx #4\@nnil \else#5\@ipsdoloop #3\@@#4{#5}\fi\fi}
  35. \def\@ipsdoloop#1,#2\@@#3#4{\def#3{#1}\ifx #3\@nnil 
  36.        \let\@nextwhile=\@psdonoop \else
  37.       #4\relax\let\@nextwhile=\@ipsdoloop\fi\@nextwhile#2\@@#3{#4}}
  38. \def\@tpsdo#1:=#2\do#3{\xdef\@psdotmp{#2}\ifx\@psdotmp\@empty \else
  39.     \@tpsdoloop#2\@nil\@nil\@@#1{#3}\fi}
  40. \def\@tpsdoloop#1#2\@@#3#4{\def#3{#1}\ifx #3\@nnil 
  41.        \let\@nextwhile=\@psdonoop \else
  42.       #4\relax\let\@nextwhile=\@tpsdoloop\fi\@nextwhile#2\@@#3{#4}}
  43. % 
  44. %
  45. \def\psdraft{
  46.     \def\@psdraft{0}
  47.     %\typeout{draft level now is \@psdraft \space . }
  48. }
  49. \def\psfull{
  50.     \def\@psdraft{100}
  51.     %\typeout{draft level now is \@psdraft \space . }
  52. }
  53. \psfull
  54. \newif\if@prologfile
  55. \newif\if@postlogfile
  56. %%% These are for the option list.
  57. %%% A specification of the form a = b maps to calling \@p@@sa{b}
  58. \newif\if@bbllx
  59. \newif\if@bblly
  60. \newif\if@bburx
  61. \newif\if@bbury
  62. \newif\if@height
  63. \newif\if@width
  64. \newif\if@rheight
  65. \newif\if@rwidth
  66. \newif\if@clip
  67. \def\@p@@sclip#1{\@cliptrue}
  68. \def\@p@@sfile#1{%\typeout{file is #1}
  69.            \def\@p@sfile{#1}
  70. }
  71. \def\@p@@sfigure#1{\def\@p@sfile{#1}}
  72. \def\@p@@sbbllx#1{
  73.         %\typeout{bbllx is #1}
  74.         \@bbllxtrue
  75.         \dimen100=#1
  76.         \edef\@p@sbbllx{\number\dimen100}
  77. }
  78. \def\@p@@sbblly#1{
  79.         %\typeout{bblly is #1}
  80.         \@bbllytrue
  81.         \dimen100=#1
  82.         \edef\@p@sbblly{\number\dimen100}
  83. }
  84. \def\@p@@sbburx#1{
  85.         %\typeout{bburx is #1}
  86.         \@bburxtrue
  87.         \dimen100=#1
  88.         \edef\@p@sbburx{\number\dimen100}
  89. }
  90. \def\@p@@sbbury#1{
  91.         %\typeout{bbury is #1}
  92.         \@bburytrue
  93.         \dimen100=#1
  94.         \edef\@p@sbbury{\number\dimen100}
  95. }
  96. \def\@p@@sheight#1{
  97.         \@heighttrue
  98.         \dimen100=#1
  99.            \edef\@p@sheight{\number\dimen100}
  100.         %\typeout{Height is \@p@sheight}
  101. }
  102. \def\@p@@swidth#1{
  103.         %\typeout{Width is #1}
  104.         \@widthtrue
  105.         \dimen100=#1
  106.         \edef\@p@swidth{\number\dimen100}
  107. }
  108. \def\@p@@srheight#1{
  109.         %\typeout{Reserved height is #1}
  110.         \@rheighttrue
  111.         \dimen100=#1
  112.         \edef\@p@srheight{\number\dimen100}
  113. }
  114. \def\@p@@srwidth#1{
  115.         %\typeout{Reserved width is #1}
  116.         \@rwidthtrue
  117.         \dimen100=#1
  118.         \edef\@p@srwidth{\number\dimen100}
  119. }
  120. \def\@p@@sprolog#1{\@prologfiletrue\def\@prologfileval{#1}}
  121. \def\@p@@spostlog#1{\@postlogfiletrue\def\@postlogfileval{#1}}
  122. \def\@cs@name#1{\csname #1\endcsname}
  123. \def\@setparms#1=#2,{\@cs@name{@p@@s#1}{#2}}
  124. %
  125. % initialize the defaults (size the size of the figure)
  126. %
  127. \def\ps@init@parms{
  128.         \@bbllxfalse \@bbllyfalse
  129.         \@bburxfalse \@bburyfalse
  130.         \@heightfalse \@widthfalse
  131.         \@rheightfalse \@rwidthfalse
  132.         \def\@p@sbbllx{}\def\@p@sbblly{}
  133.         \def\@p@sbburx{}\def\@p@sbbury{}
  134.         \def\@p@sheight{}\def\@p@swidth{}
  135.         \def\@p@srheight{}\def\@p@srwidth{}
  136.         \def\@p@sfile{}
  137.         \def\@p@scost{10}
  138.         \def\@sc{}
  139.         \@prologfilefalse
  140.         \@postlogfilefalse
  141.         \@clipfalse
  142. }
  143. %
  144. % Go through the options setting things up.
  145. %
  146. \def\parse@ps@parms#1{
  147.          \@psdo\@psfiga:=#1\do
  148.            {\expandafter\@setparms\@psfiga,}}
  149. %
  150. % Compute bb height and width
  151. %
  152. \newif\ifno@bb
  153. \newif\ifnot@eof
  154. \newread\ps@stream
  155. \def\bb@missing{
  156.     \typeout{psfig: searching \@p@sfile \space  for bounding box}
  157.     \openin\ps@stream=\@p@sfile
  158.     \no@bbtrue
  159.     \not@eoftrue
  160.     \catcode`\%=12
  161.     \loop
  162.         \read\ps@stream to \line@in
  163.         \global\toks200=\expandafter{\line@in}
  164.         \ifeof\ps@stream \not@eoffalse \fi
  165.         %\typeout{ looking at :: \the\toks200 }
  166.         \@bbtest{\toks200}
  167.         \if@bbmatch\not@eoffalse\expandafter\bb@cull\the\toks200\fi
  168.     \ifnot@eof \repeat
  169.     \catcode`\%=14
  170. }    
  171. \catcode`\%=12
  172. \newif\if@bbmatch
  173. \def\@bbtest#1{\expandafter\@a@\the#1%%BoundingBox:\@bbtest\@a@}
  174. \long\def\@a@#1%%BoundingBox:#2#3\@a@{\ifx\@bbtest#2\@bbmatchfalse\else\@bbmatchtrue\fi}
  175. \long\def\bb@cull#1 #2 #3 #4 #5 {
  176.     \dimen100=#2 bp\edef\@p@sbbllx{\number\dimen100}
  177.     \dimen100=#3 bp\edef\@p@sbblly{\number\dimen100}
  178.     \dimen100=#4 bp\edef\@p@sbburx{\number\dimen100}
  179.     \dimen100=#5 bp\edef\@p@sbbury{\number\dimen100}
  180.     \no@bbfalse
  181. }
  182. \catcode`\%=14
  183. %
  184. \def\compute@bb{
  185.         \no@bbfalse
  186.         \if@bbllx \else \no@bbtrue \fi
  187.         \if@bblly \else \no@bbtrue \fi
  188.         \if@bburx \else \no@bbtrue \fi
  189.         \if@bbury \else \no@bbtrue \fi
  190.         \ifno@bb \bb@missing \fi
  191.         \ifno@bb \typeout{FATAL ERROR: no bb supplied or found}
  192.             \no-bb-error
  193.         \fi
  194.         %
  195.         \count203=\@p@sbburx
  196.         \count204=\@p@sbbury
  197.         \advance\count203 by -\@p@sbbllx
  198.         \advance\count204 by -\@p@sbblly
  199.         \edef\@bbw{\number\count203}
  200.         \edef\@bbh{\number\count204}
  201.         %\typeout{ bbh = \@bbh, bbw = \@bbw }
  202. }
  203. %
  204. % \in@hundreds performs #1 * (#2 / #3) correct to the hundreds,
  205. %    then leaves the result in @result
  206. %
  207. \def\in@hundreds#1#2#3{\count240=#2 \count241=#3
  208.              \count100=\count240    % 100 is first digit #2/#3
  209.              \divide\count100 by \count241
  210.              \count101=\count100
  211.              \multiply\count101 by \count241
  212.              \advance\count240 by -\count101
  213.              \multiply\count240 by 10
  214.              \count101=\count240    %101 is second digit of #2/#3
  215.              \divide\count101 by \count241
  216.              \count102=\count101
  217.              \multiply\count102 by \count241
  218.              \advance\count240 by -\count102
  219.              \multiply\count240 by 10
  220.              \count102=\count240    % 102 is the third digit
  221.              \divide\count102 by \count241
  222.              \count200=#1\count205=0
  223.              \count201=\count200
  224.             \multiply\count201 by \count100
  225.              \advance\count205 by \count201
  226.              \count201=\count200
  227.             \divide\count201 by 10
  228.             \multiply\count201 by \count101
  229.             \advance\count205 by \count201
  230.             %
  231.              \count201=\count200
  232.             \divide\count201 by 100
  233.             \multiply\count201 by \count102
  234.             \advance\count205 by \count201
  235.             %
  236.              \edef\@result{\number\count205}
  237. }
  238. \def\compute@wfromh{
  239.         % computing : width = height * (bbw / bbh)
  240.         \in@hundreds{\@p@sheight}{\@bbw}{\@bbh}
  241.         %\typeout{ \@p@sheight * \@bbw / \@bbh, = \@result }
  242.         \edef\@p@swidth{\@result}
  243.         %\typeout{w from h: width is \@p@swidth}
  244. }
  245. \def\compute@hfromw{
  246.         % computing : height = width * (bbh / bbw)
  247.         \in@hundreds{\@p@swidth}{\@bbh}{\@bbw}
  248.         %\typeout{ \@p@swidth * \@bbh / \@bbw = \@result }
  249.         \edef\@p@sheight{\@result}
  250.         %\typeout{h from w : height is \@p@sheight}
  251. }
  252. \def\compute@handw{
  253.         \if@height 
  254.             \if@width
  255.             \else
  256.                 \compute@wfromh
  257.             \fi
  258.         \else 
  259.             \if@width
  260.                 \compute@hfromw
  261.             \else
  262.                 \edef\@p@sheight{\@bbh}
  263.                 \edef\@p@swidth{\@bbw}
  264.             \fi
  265.         \fi
  266. }
  267. \def\compute@resv{
  268.         \if@rheight \else \edef\@p@srheight{\@p@sheight} \fi
  269.         \if@rwidth \else \edef\@p@srwidth{\@p@swidth} \fi
  270. }
  271. %        
  272. % Compute any missing values
  273. \def\compute@sizes{
  274.     \compute@bb
  275.     \compute@handw
  276.     \compute@resv
  277. }
  278. %
  279. % \psfig
  280. % usage : \psfig{file=, height=, width=, bbllx=, bblly=, bburx=, bbury=,
  281. %            rheight=, rwidth=, clip=}
  282. %
  283. % "clip=" is a switch and takes no value, but the `=' must be preset.
  284. \def\psfig#1{\vbox {
  285.     % do a zero width hard space so that a single
  286.     % \psfig in a centering enviornment will behave nicely
  287.     %{\setbox0=\hbox{\ }\ \hskip-\wd0}
  288.     %
  289.     \ps@init@parms
  290.     \parse@ps@parms{#1}
  291.     \compute@sizes
  292.     %
  293.     \ifnum\@p@scost<\@psdraft{
  294.         \typeout{psfig: including \@p@sfile \space }
  295.         %
  296.         \special{ps::[begin]     \@p@swidth \space \@p@sheight \space
  297.                 \@p@sbbllx \space \@p@sbblly \space
  298.                 \@p@sbburx \space \@p@sbbury \space
  299.                 startTexFig \space }
  300.         \if@clip{
  301.             \typeout{(clip)}
  302.             \special{ps:: \@p@sbbllx \space \@p@sbblly \space
  303.                 \@p@sbburx \space \@p@sbbury \space
  304.                 doclip \space }
  305.         }\fi
  306.         \if@prologfile
  307.             \special{ps: plotfile \@prologfileval \space } \fi
  308.         \special{ps: plotfile \@p@sfile \space }
  309.         \if@postlogfile
  310.             \special{ps: plotfile \@postlogfileval \space } \fi
  311.         \special{ps::[end] endTexFig \space }
  312.         % Create the vbox to reserve the space for the figure
  313.         \vbox to \@p@srheight true sp{
  314.             \hbox to \@p@srwidth true sp{
  315.                 \hfil
  316.             }
  317.         \vfil
  318.         }
  319.     }\else{
  320.         % draft figure, just reserve the space and print the
  321.         % path name.
  322.         \hbox{
  323.         \vrule
  324.             \vbox to \@p@srheight true sp{
  325.             \hrule
  326.             \vss
  327.                 \hbox to \@p@srwidth true sp{
  328.                     \hss
  329.                     \@p@sfile
  330.                     \hss
  331.                 }
  332.             \vss
  333.             \hrule
  334.             }
  335.         \vrule
  336.         }
  337.     }\fi
  338. }}
  339. \catcode`\@=12\relax
  340.  
  341.