Artifact 2082a79eb2c372df2b3fee8dd2eeddd02a45ad8b6e0fde8522e420e98539b2f4:
- File
r34.1/lib/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...]
- File
r34/lib/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 \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 }\newif\ifOK \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