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