Artifact 94544a2e5c076908599d15e4b61129c0ba5536d823ce7c542937a9b3332da7c7:

• Executable file r37/packages/tri/redwidth.tex — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 670) [annotate] [blame] [check-ins using] [more...]

• Executable file r38/packages/tri/redwidth.tex — part of check-in [f2fda60abd] at 2011-09-02 18:13:33 on branch master — Some historical releases purely for archival purposes

  git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 670) [annotate] [blame] [check-ins using]

\relax
% ---------------------------------------------------------------------
% Interactive module for retrieving width information for T.R.I.
% ---------------------------------------------------------------------
\newbox\testbox\newcount\xxx\newif\ifOK
\def\widthof#1{\message{width is: }
\wwidthof{$\displaystyle#1$}
\wwidthof{$\scriptstyle#1$}
\wwidthof{$\scriptscriptstyle#1$}}
\def\wwidthof#1{\setbox\testbox=\hbox{#1}
\xxx=\wd\testbox\message{[\the\wd\testbox=\the\xxx sp]}}
\def\endloop{end }
\loop\message{Type in TeX item or say 'end': }
  \read-1 to\answer
  \ifx\answer\endloop\OKfalse\else\OKtrue\fi
  \ifOK\widthof{\answer}
\repeat
\end