4 \makeatletter % for a little while
7 % plain TeX compatibility
9 \def\oldstyle{\xdef\@oldstyle{\the\textfont\@ne}\mit\@oldstyle}
12 % PhD-TeX compatibility
17 \ifcase\value{##1}no ##1s\or
19 \the\value{##1} ##1s\fi
21 \typeout{LaTeX summary: \note{figure}, \note{table}, \note{footnote}.}%
25 \def\smaller{\footnotesize}
30 % \tagfigure*[FLOAT]{FILE}{CAPTION}{LABEL}
33 % FILE reads TPIC output in file figureFILE
34 % CAPTION for list of figures
35 % LABEL for \ref and \pageref
36 \def\tagfigure{\@ifstar{\@stagfigure}{\@tagfigure}}
37 \def\@tagfigure{\@ifnextchar[{\@@tagfigure}{\@@tagfigure[t]}}
38 \def\@stagfigure{\@ifnextchar[{\@@stagfigure}{\@@stagfigure[t]}}
40 \def\@@tagfigure[#1]#2{%
41 \@@@tagfigure[#1]{\input figure#2\relax\centerline{\box\graph}}}
42 \def\@@stagfigure[#1]#2{%
43 \@@@stagfigure[#1]{\input figure#2\relax\centerline{\box\graph}}}
46 % \tagdiagram*[FLOAT]{FILE}{CAPTION}{LABEL}
49 % FILE reads LaTeX input in file diagramFILE
50 % CAPTION for list of figures
51 % LABEL for \ref and \pageref
52 \def\tagdiagram{\@ifstar{\@stagdiagram}{\@tagdiagram}}
53 \def\@tagdiagram{\@ifnextchar[{\@@tagdiagram}{\@@tagdiagram[t]}}
54 \def\@stagdiagram{\@ifnextchar[{\@@stagdiagram}{\@@stagdiagram[t]}}
56 \def\@@tagdiagram[#1]#2{\@@@tagfigure[#1]{\input diagram#2\relax}}
57 \def\@@stagdiagram[#1]#2{\@@@stagfigure[#1]{\input diagram#2\relax}}
59 \def\@@@tagfigure[#1]#2#3#4{%
62 \vskip .5\baselineskip
63 \begin{minipage}\columnwidth
66 \vskip .5\baselineskip plus .5\baselineskip
74 \def\@@@stagfigure[#1]#2#3#4{%
77 \vskip .5\baselineskip
78 \begin{minipage}\textwidth
81 \vskip .5\baselineskip plus .5\baselineskip
90 % \tagtable*[FLOAT]{FILE}{CAPTION}{LABEL}
92 % FILE read LaTeX input in file tableFILE
94 % CAPTION for list of tables
95 % LABEL for \ref and \pageref
96 \def\tagtable{\@ifstar{\@stagtable}{\@tagtable}}
97 \def\@tagtable{\@ifnextchar[{\@@tagtable}{\@@tagtable[t]}}
98 \def\@stagtable{\@ifnextchar[{\@@stagtable}{\@@stagtable[t]}}
100 \def\@@tagtable[#1]#2#3#4{%
103 \vskip .5\baselineskip
104 \begin{minipage}\textwidth
105 \small\input table#2\relax
107 \vskip .5\baselineskip plus .5\baselineskip
115 \def\@@stagtable[#1]#2#3#4{%
118 \vskip .5\baselineskip
119 \begin{minipage}\columnwidth
120 \small\input table#2\relax
122 \vskip .5\baselineskip plus .5\baselineskip
131 % Document style options:
132 % 10pt - Makes ten-point type the normal (default) type size
133 % draftnote - Customized draft option
135 \@namedef{ds@10pt}{\def\@ptsize{0}} %%% for orthogonality
138 \newif\ifdraft \draftfalse
140 \def\draftstring{{\ifdraft \tt Draft\fi}}
147 \LaTeX set \today\ with \fmtname\ v\fmtversion
149 Draft \versiontag/ of \versiondate/
156 \gdef\versiontag/{\#0}%
157 \gdef\versiondate/{\today}%
158 \@input{\jobname.vrsn}%6
162 \gdef\versiontag/{\#0}%
163 \gdef\versiondate/{\today}%
164 \@input{\jobname.vrsn}%
170 \@ifundefined{ds@draft}{}{\ds@draft}%
172 \def\@oddhead{\draftext\hfil}%
173 \def\@oddfoot{\draftstring\hfil\rm\thepage\hfil\draftstring}%
174 \let\@evenhead=\@oddhead
175 \let\@evenfoot=\@oddfoot
185 \newpage\setcounter{page}{1}%
186 \begin{center}\Large#1\end{center}%
193 \def\implies{\quad\supset\ }
195 \def\tdots{\ldots\thinspace}
197 \def\boxit#1{\fbox{\sc#1}}
199 \def\note#1{\ifdraft\marginpar{\tt#1}\fi}
202 % Fractions (from The TUGboat v6 n1, 1985)
206 \raise.5ex\mbox{\the\scriptfont\z@ #1}\kern-.1em
207 /\kern-.15em\lower.25ex\mbox{\the\scriptfont\z@ #2}%
221 January\or February\or March\or April\or May\or June\or
222 July\or August\or September\or October\or November\or December\else
224 \space\number\day, {\noexpand\mit\number\year}%
232 \multiply\count0 by 60
233 \advance\count1 by -\count0
235 \ifnum\count2>12 \advance\count2 by -12\fi
238 \ifnum\count2=0 \advance\count2 by 12\fi
242 \ifnum\count2<10 0\fi \the\count2:%
243 \ifnum\count1<10 0\fi \the\count1
249 \makeatother % back to normal