blob: 5d0ba08382c627319ebffac5733ba8b7d1805804 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
|
\newbox\leftpage
\newdimen\fullhsize
\newdimen\hstitle
\newdimen\hsbody
\tolerance=1000\hfuzz=2pt
\def\bigans{b }
\message{ big or little (b/l)? }\read-1 to\answ
\ifx\answ\bigans\message{(This will come out unreduced.}
\magnification=1200\baselineskip=14pt
\font\bigfnt=amr10 scaled\magstep3 \global\let\absfnt=\tenrm
\hsbody=\hsize \hstitle=\hsize %take default values for unreduced format
\else\message{(This will be reduced.}
\let\lr=L
\special{landscape}
\font\bigfnt=amr10 scaled\magstep4
\font\absfnt=amr10 scaled\magstep1
\def\almostshipout#1{\if L\lr \count1=1
\global\setbox\leftpage=#1 \global\let\lr=R
\else \count1=2
\shipout\vbox{\hbox to\fullhsize{\box\leftpage\hfil#1}}
\global\let\lr=L\fi}
\output={\ifnum\count0=1 %%% This is the HUTP version
\shipout\vbox{\hbox to \fullhsize{\hfill\pagebody\hfill}}\advancepageno
\else
\almostshipout{\leftline{\vbox{\pagebody\makefootline}}}\advancepageno
\fi}
\magnification=1000\baselineskip=14pt\voffset=-.31truein\hoffset=.05truein
\hstitle=8truein\hsbody=4.75truein\vsize=7truein\fullhsize=10truein
\fi
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\HUTP#1#2{\nopagenumbers\hsize=\hstitle\rightline{\absfnt HUTP-85/A#1}%
\vskip 1in\bigfnt\centerline{#2}\absfnt\vskip .5in}
\def\Date#1{\vfill\leftline{#1}\tenrm\supereject\hsize=\hsbody%
\footline={\hss\tenrm\folio\hss}}% restores pagenumbers
% tagged sec numbers
\global\newcount\secno \global\secno=0
\global\newcount\meqno \global\meqno=1
\def\newsec#1{\global\advance\secno by1\global\meqno=1
\ifx\answ\bigans \vfill\eject
\else\bigbreak\bigskip\fi% (combination \goodbreak\bigskip\bigskip)
\noindent{\bf\the\secno. #1}\par\nobreak\medskip\nobreak}
% \eqn\label{a+b=c} gives a displayed equation with number
% chosen consecutively within sections.
% \eqnn and \eqna define labels in advance
\newwrite\efile \let\firsteqn=T
\def\writeqno#1%
{\if T\firsteqn \immediate\openout\efile=eqns.tmp\global\let\firsteqn=F\fi%
\immediate\write\efile{#1 \string#1}\global\advance\meqno by1}
\def\eqnn#1{\xdef #1{(\the\secno.\the\meqno)}\writeqno#1}
\def\eqna#1{\xdef #1##1{(\the\secno.\the\meqno##1)}\writeqno{#1{}}}
\def\eqn#1#2{\xdef #1{(\the\secno.\the\meqno)}%
$$#2\eqno(\the\secno.\the\meqno)$$\writeqno#1}
% footnotes
\global\newcount\ftno \global\ftno=1
\def\foot#1{\footnote{$^{\the\ftno}$}{#1}\ %
\global\advance\ftno by1}
% \ref\label{text}
% generates a number, assigns it to \label, generates an entry.
% To list the refs on a separate page, \listrefs
\global\newcount\refno \global\refno=1
\newwrite\rfile
\def\ref#1#2{[\the\refno]\nref#1{#2}}
\def\nref#1#2{\xdef#1{[\the\refno]}%
\ifnum\refno=1\immediate\openout\rfile=refs.tmp\fi%
\immediate\write\rfile{\noexpand\item{\noexpand#1\ }#2.}%
\global\advance\refno by1}
\def\semi{;\hfil\noexpand\break}
\def\listrefs{\vfill\eject\immediate\closeout\rfile%\parindent=20pt
\centerline{{\bf References}}\bigskip\frenchspacing%
\input refs.tmp\vfill\eject\nonfrenchspacing}
% and finally, figures:
\def\fig#1#2{\item{Figure #1: }#2}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\def\inv{^{\raise.15ex\hbox{${\scriptscriptstyle -}$}\kern-.05em 1}}
%\def\inv{^{\hbox{-}1}}
\def\dup{^{\vphantom{1}}}
%\def\Dsl{\raise.15ex\hbox{$/$}\kern-.75em\hbox{$D$}} %capital D slash
\def\Dsl{\,\raise.15ex\hbox{$/$}\mkern-13.5mu D} %this one can be subscripted
\def\Psl{\raise.15ex\hbox{$/$}\kern-.57em\hbox{$\partial$}}
% matters of taste
%\def\tilde{\widetilde}
%\def\bar{\overline}
%\def\hat{\widehat}
%
\def\del{\partial}
%curly letters
\def\CA{\hbox{{$\cal A$}}} \def\CC{\hbox{{$\cal C$}}}
\def\CF{\hbox{{$\cal F$}}} \def\CG{\hbox{{$\cal G$}}}
\def\CL{\hbox{{$\cal L$}}} \def\CH{\hbox{{$\cal H$}}}
\def\CI{\hbox{{$\cal I$}}} \def\CU{\hbox{{$\cal U$}}}
\def\CB{\hbox{{$\cal B$}}} \def\CAG{\hbox{{$\cal A$/$\cal G$}}}
\def\CD{\hbox{{$\cal D$}}} \def\CT{\hbox{{$\cal T$}}}
\def\grad#1{\,\nabla\!_{{#1}}\,}
\def\ph{\varphi}
\def\psibar{\overline\psi}
\def\om#1#2{\omega^#1{}_#2}
\def\vev#1{\langle #1 \rangle}
\def\darr#1{\raise1.3ex\hbox{$\leftrightarrow$}\mkern-15.3mu #1}
\def\lie{\hbox{\it\$}} %pound sterling
\font\bigit=amti10 scaled \magstep1
\def\biglie{\hbox{\bigit\$}} %pound sterling
|