1\relax 2% ====================================================================== 3% T h e T e X - R e d u c e - I n t e r f a c e: TeX-Module 4% ====================================================================== 5% (C) 1987 by Rechenzentrum der Universitaet zu Koeln 6% (University of Cologne Computer Center) 7% Abt. Anwendungssoftware 8% (Application Software Department) 9% Robert-Koch-Str. 10 10% 5000 Koeln 41 11% Federal Republic of Germany 12% e-mail: reduce@rrz.uni-koeln.de 13% All rights reserved. Permission to copy without fee all or part of 14% this software product is hereby granted provided that the copies are 15% not made or distributed for direct commercial advantage, this copy- 16% right notice and its date appear, and notice is given that copying is 17% by permission of the authors. To copy otherwise requires a fee and/or 18% specific permission. 19% ====================================================================== 20% 25-Jul-89 Author: Werner Antweiler Version 0.10 21% ====================================================================== 22% 23\def\frac#1#2{{#1\over#2}} 24\def\CO{,}\def\<{\langle}\def\>{\rangle}\def\d{\hbox{\rm d}} 25\newcount\parenthesis \parenthesis=0 \newcount\n 26\def\({\global\advance\parenthesis by1\left(} 27\def\){\global\advance\parenthesis by-1\right)} 28\def\{{\global\advance\parenthesis by1\left\lbrace} 29\def\}{\global\advance\parenthesis by-1\right\rbrace} 30\def\[{\relax} % dummy parenthesis 31\def\]{\relax} % dummy parenthesis 32\def\Loop#1\Repeat{\global\n=0\global\let\body=#1\iterate} 33\def\iterate{\body\let\next=\iterate\else\let\next=\relax\fi\next} 34\def\ldd{\ifnum\n<\parenthesis\global\advance\n by1 35\left.\nulldelimiterspace=0pt\mathsurround=0pt} 36\def\rdd{\ifnum\n<\parenthesis\global\advance\n by1 37\right.\nulldelimiterspace=0pt\mathsurround=0pt} 38\def\nl{\Loop\rdd\Repeat\hfill\cr\qdd\Loop\ldd\Repeat{}} 39\def\OFF#1{\hskip#1sp\relax} 40\def\off#1{\hskip#1sp\relax} 41\def\Nl{\hfill\cr} 42\def\qdd{\quad\quad} 43% ---------------- special code for TRI examples -------------- 44\newcount\exacount\exacount=0\font\caps=cmcsc10 45\def\Istrut{\vrule height11pt depth4pt width0pt} 46\def\TRIexa#1#2#3#4{\global\advance\exacount by1\par\filbreak 47{\offinterlineskip 48 \vbox{\hrule\hbox to\hsize{\Istrut\vrule 49 \hbox to 8mm{\hfil\caps\the\exacount\hfil}\vrule 50 \quad\rm#1\hfill\vrule 51 \hbox to 32mm{\hfill{\caps Mode: }{\tt #2}\hfill}\vrule 52 \hbox to 32mm{\hfill{\caps Tolerance: }{\tt #3}\hfill}\vrule} 53 \hrule\hbox to\hsize{\Istrut\vrule\hfill#4\hfill\vrule}\hrule} 54}\nobreak} 55% End. 56