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