%%%%%%%%%%%%%%%%%%  tex macros for preprints, cm version %%%%%%%%%%%%%%
%                     (P. Ginsparg, last updated 9/91)
%                if confused, type `b' in response to query 
%
%---------------------------------------------------------------------%
%% site dependent options: 
%% \unredoffs and \redoffs define horizontal and vertical offsets 
%% respectively for unreduced and reduced modes. \speclscape defines
%% the \special{} call that sets printer to landscape (sideways) mode.
%% from standard set below, leave uncommented as appropriate or redefine
%
%%% next 400dpi
%\def\unredoffs{} \def\redoffs{\voffset=-.31truein\hoffset=-.48truein}
%\def\speclscape{\special{landscape}}
%
%%% apple lw
\def\unredoffs{} \def\redoffs{\voffset=-.31truein\hoffset=-.59truein}
\def\speclscape{\special{ps: landscape}}
%
%%% qms lasergrafix:
%\def\unredoffs{} \def\redoffs{\voffset=-.4truein\hoffset=.125truein}
%\def\speclscape{\special{qms: landscape}}
%
%%% saclay A4 paper:
%\def\unredoffs{\hoffset-.14truein\voffset-.2truein} 
%\def\redoffs{\voffset=-.45truein\hoffset=-.21truein} 
%\def\speclscape{\special{landscape}}
%
%---------------------------------------------------------------------%
%
\newbox\leftpage 
\newdimen\fullhsize 
\newdimen\hstitle 
\newdimen\hsbody
\tolerance=1000\hfuzz=2pt\def\fontflag{cm}
%
\catcode`\@=11 % This allows us to modify PLAIN macros.
\def\bigans{b }
\message{ big or little (b/l)? }\read-1 to\answ
%
\ifx\answ\bigans\message{(This will come out unreduced.}
\magnification=1200\unredoffs\baselineskip=16pt plus 2pt minus 1pt
\hsbody=\hsize \hstitle=\hsize %take default values for unreduced format
%
\else\message{(This will be reduced.} \let\l@r=L
\magnification=1000\baselineskip=16pt plus 2pt minus 1pt \vsize=7truein
\redoffs \hstitle=8truein\hsbody=4.75truein\fullhsize=10truein\hsize=\hsbody
%
\output={\ifnum\pageno=0 %%% This is the HUTP version
  \shipout\vbox{\speclscape{\hsize\fullhsize\makeheadline}
    \hbox to \fullhsize{\hfill\pagebody\hfill}}\advancepageno
  \else
  \almostshipout{\leftline{\vbox{\pagebody\makefootline}}}\advancepageno 
  \fi}
\def\almostshipout#1{\if L\l@r \count1=1 \message{[\the\count0.\the\count1]}
      \global\setbox\leftpage=#1 \global\let\l@r=R
 \else \count1=2
  \shipout\vbox{\speclscape{\hsize\fullhsize\makeheadline}
      \hbox to\fullhsize{\box\leftpage\hfil#1}}  \global\let\l@r=L\fi}
\fi
%---------------------------------------------------------------------
%
\newcount\yearltd\yearltd=\year\advance\yearltd by -1900
\def\HUTP#1#2{\Title{HUTP-\number\yearltd/A#1}{#2}}
\def\Title#1#2{\nopagenumbers\abstractfont\hsize=\hstitle\rightline{#1}%
\vskip 1in\centerline{\titlefont #2}\abstractfont\vskip .5in\pageno=0}
%
\def\Date#1{\vfill\leftline{#1}\tenpoint\supereject\global\hsize=\hsbody%
\footline={\hss\tenrm\folio\hss}}% 	restores pagenumbers
%
%       use following instead of \Date on the preliminary draft, 
%       puts date/time on each page in big mode, writes labels in margins
\def\draft{\draftmode\Date{\draftdate}}
\def\draftmode{\message{ DRAFTMODE }\def\draftdate{{\rm preliminary draft:
\number\month/\number\day/\number\yearltd\ \ \hourmin}}%
\headline={\hfil\draftdate}\writelabels\baselineskip=20pt plus 2pt minus 2pt
 {\count255=\time\divide\count255 by 60 \xdef\hourmin{\number\count255}
  \multiply\count255 by-60\advance\count255 by\time
  \xdef\hourmin{\hourmin:\ifnum\count255<10 0\fi\the\count255}}}
%       use \nolabels to get rid of eqn, ref, and fig labels in draft mode
\def\nolabels{\def\wrlabeL##1{}\def\eqlabeL##1{}\def\reflabeL##1{}}
\def\writelabels{\def\wrlabeL##1{\leavevmode\vadjust{\rlap{\smash%
{\line{{\escapechar=` \hfill\rlap{\sevenrm\hskip.03in\string##1}}}}}}}%
\def\eqlabeL##1{{\escapechar-1\rlap{\sevenrm\hskip.05in\string##1}}}%
\def\reflabeL##1{\noexpand\llap{\noexpand\sevenrm\string\string\string##1}}}
\nolabels
%
% tagged sec numbers
\global\newcount\secno \global\secno=0
\global\newcount\meqno \global\meqno=1
%
\def\newsec#1{\global\advance\secno by1\message{(\the\secno. #1)}
%\ifx\answ\bigans \vfill\eject \else \bigbreak\bigskip \fi  %if desired
\global\subsecno=0\eqnres@t\noindent{\bf\the\secno. #1}
\writetoca{{\secsym} {#1}}\par\nobreak\medskip\nobreak}
\def\eqnres@t{\xdef\secsym{\the\secno.}\global\meqno=1\bigbreak\bigskip}
\def\sequentialequations{\def\eqnres@t{\bigbreak}}\xdef\secsym{}
%
\global\newcount\subsecno \global\subsecno=0
\def\subsec#1{\global\advance\subsecno by1\message{(\secsym\the\subsecno. #1)}
\ifnum\lastpenalty>9000\else\bigbreak\fi
\noindent{\it\secsym\the\subsecno. #1}\writetoca{\string\quad 
{\secsym\the\subsecno.} {#1}}\par\nobreak\medskip\nobreak}
%
\def\appendix#1#2{\global\meqno=1\global\subsecno=0\xdef\secsym{\hbox{#1.}}
\bigbreak\bigskip\noindent{\bf Appendix #1. #2}\message{(#1. #2)}
\writetoca{Appendix {#1.} {#2}}\par\nobreak\medskip\nobreak}
%
%       \eqn\label{a+b=c}	gives displayed equation, numbered
%				consecutively within sections.
%     \eqnn and \eqna define labels in advance (of eqalign?)
%
\def\eqnn#1{\xdef #1{(\secsym\the\meqno)}\writedef{#1\leftbracket#1}%
\global\advance\meqno by1\wrlabeL#1}
\def\eqna#1{\xdef #1##1{\hbox{$(\secsym\the\meqno##1)$}}
\writedef{#1\numbersign1\leftbracket#1{\numbersign1}}%
\global\advance\meqno by1\wrlabeL{#1$\{\}$}}
\def\eqn#1#2{\xdef #1{(\secsym\the\meqno)}\writedef{#1\leftbracket#1}%
\global\advance\meqno by1$$#2\eqno#1\eqlabeL#1$$}
%
%			 footnotes
\newskip\footskip\footskip14pt plus 1pt minus 1pt %sets footnote baselineskip
\def\footnotefont{\ninepoint}\def\f@t#1{\footnotefont #1\@foot}
\def\f@@t{\baselineskip\footskip\bgroup\footnotefont\aftergroup\@foot\let\next}
\setbox\strutbox=\hbox{\vrule height9.5pt depth4.5pt width0pt}
%
\global\newcount\ftno \global\ftno=0
\def\foot{\global\advance\ftno by1\footnote{$^{\the\ftno}$}}
%
%say \footend to put footnotes at end
%will cause problems if \ref used inside \foot, instead use \nref before
\newwrite\ftfile   
\def\footend{\def\foot{\global\advance\ftno by1\chardef\wfile=\ftfile
$^{\the\ftno}$\ifnum\ftno=1\immediate\openout\ftfile=foots.tmp\fi%
\immediate\write\ftfile{\noexpand\smallskip%
\noexpand\item{f\the\ftno:\ }\pctsign}\findarg}%
\def\footatend{\vfill\eject\immediate\closeout\ftfile{\parindent=20pt
\centerline{\bf Footnotes}\nobreak\bigskip\input foots.tmp }}}
\def\footatend{}
%
%     \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{[\the\refno]\nref}
\def\nref#1{\xdef#1{[\the\refno]}\writedef{#1\leftbracket#1}%
\ifnum\refno=1\immediate\openout\rfile=refs.tmp\fi
\global\advance\refno by1\chardef\wfile=\rfile\immediate
\write\rfile{\noexpand\item{#1\ }\reflabeL{#1\hskip.31in}\pctsign}\findarg}
%	horrible hack to sidestep tex \write limitation
\def\findarg#1#{\begingroup\obeylines\newlinechar=`\^^M\pass@rg}
{\obeylines\gdef\pass@rg#1{\writ@line\relax #1^^M\hbox{}^^M}%
\gdef\writ@line#1^^M{\expandafter\toks0\expandafter{\striprel@x #1}%
\edef\next{\the\toks0}\ifx\next\em@rk\let\next=\endgroup\else\ifx\next\empty%
\else\immediate\write\wfile{\the\toks0}\fi\let\next=\writ@line\fi\next\relax}}
\def\striprel@x#1{} \def\em@rk{\hbox{}} 
%
\def\lref{\begingroup\obeylines\lr@f}
\def\lr@f#1#2{\gdef#1{\ref#1{#2}}\endgroup\unskip}
%
\def\semi{;\hfil\break}
\def\addref#1{\immediate\write\rfile{\noexpand\item{}#1}} %now unnecessary
%
\def\listrefs{\footatend\vfill\supereject\immediate\closeout\rfile\writestoppt
\baselineskip=14pt\centerline{{\bf References}}\bigskip{\frenchspacing%
\parindent=20pt\escapechar=` \input refs.tmp\vfill\eject}\nonfrenchspacing}
%
\def\startrefs#1{\immediate\openout\rfile=refs.tmp\refno=#1}
%
\def\xref{\expandafter\xr@f}\def\xr@f[#1]{#1}
\def\refs#1{\count255=1[\r@fs #1{\hbox{}}]}
\def\r@fs#1{\ifx\und@fined#1\message{reflabel \string#1 is undefined.}%
\nref#1{need to supply reference \string#1.}\fi%
\vphantom{\hphantom{#1}}\edef\next{#1}\ifx\next\em@rk\def\next{}%
\else\ifx\next#1\ifodd\count255\relax\xref#1\count255=0\fi%
\else#1\count255=1\fi\let\next=\r@fs\fi\next}
%
\def\figures{\centerline{{\bf Figure Captions}}\medskip\parindent=40pt%
\def\fig##1##2{\medskip\item{Fig.~##1.  }##2}}
%
% this is ugly, but moore insists
\newwrite\ffile\global\newcount\figno \global\figno=1
%
\def\fig{fig.~\the\figno\nfig}
\def\nfig#1{\xdef#1{fig.~\the\figno}%
\writedef{#1\leftbracket fig.\noexpand~\the\figno}%
\ifnum\figno=1\immediate\openout\ffile=figs.tmp\fi\chardef\wfile=\ffile%
\immediate\write\ffile{\noexpand\medskip\noexpand\item{Fig.\ \the\figno. }
\reflabeL{#1\hskip.55in}\pctsign}\global\advance\figno by1\findarg}
%
\def\listfigs{\vfill\eject\immediate\closeout\ffile{\parindent40pt
\baselineskip14pt\centerline{{\bf Figure Captions}}\nobreak\medskip
\escapechar=` \input figs.tmp\vfill\eject}}
%
\def\xfig{\expandafter\xf@g}\def\xf@g fig.\penalty\@M\ {}
\def\figs#1{figs.~\f@gs #1{\hbox{}}}
\def\f@gs#1{\edef\next{#1}\ifx\next\em@rk\def\next{}\else
\ifx\next#1\xfig #1\else#1\fi\let\next=\f@gs\fi\next}
%
\newwrite\lfile
{\escapechar-1\xdef\pctsign{\string\%}\xdef\leftbracket{\string\{}
\xdef\rightbracket{\string\}}\xdef\numbersign{\string\#}}
\def\writedefs{\immediate\openout\lfile=labeldefs.tmp \def\writedef##1{%
\immediate\write\lfile{\string\def\string##1\rightbracket}}}
%
\def\writestop{\def\writestoppt{\immediate\write\lfile{\string\pageno%
\the\pageno\string\startrefs\leftbracket\the\refno\rightbracket%
\string\def\string\secsym\leftbracket\secsym\rightbracket%
\string\secno\the\secno\string\meqno\the\meqno}\immediate\closeout\lfile}}
%
\def\writestoppt{}\def\writedef#1{}
%
\def\seclab#1{\xdef #1{\the\secno}\writedef{#1\leftbracket#1}\wrlabeL{#1=#1}}
\def\subseclab#1{\xdef #1{\secsym\the\subsecno}%
\writedef{#1\leftbracket#1}\wrlabeL{#1=#1}}
%
\newwrite\tfile \def\writetoca#1{}
\def\leaderfill{\leaders\hbox to 1em{\hss.\hss}\hfill}
%	use this to write file with table of contents
\def\writetoc{\immediate\openout\tfile=toc.tmp 
   \def\writetoca##1{{\edef\next{\write\tfile{\noindent ##1 
   \string\leaderfill {\noexpand\number\pageno} \par}}\next}}}
%       and this lists table of contents on second pass
\def\listtoc{\centerline{\bf Contents}\nobreak\medskip{\baselineskip=12pt
 \parskip=0pt\catcode`\@=11 \input toc.tex \catcode`\@=12 \bigbreak\bigskip}}
%
\catcode`\@=12 % at signs are no longer letters
%
%	Unpleasantness in calling in abstract and title fonts
\edef\tfontsize{\ifx\answ\bigans scaled\magstep3\else scaled\magstep4\fi}
\font\titlerm=cmr10 \tfontsize \font\titlerms=cmr7 \tfontsize
\font\titlermss=cmr5 \tfontsize \font\titlei=cmmi10 \tfontsize
\font\titleis=cmmi7 \tfontsize \font\titleiss=cmmi5 \tfontsize
\font\titlesy=cmsy10 \tfontsize \font\titlesys=cmsy7 \tfontsize
\font\titlesyss=cmsy5 \tfontsize \font\titleit=cmti10 \tfontsize
\skewchar\titlei='177 \skewchar\titleis='177 \skewchar\titleiss='177
\skewchar\titlesy='60 \skewchar\titlesys='60 \skewchar\titlesyss='60
%
\def\titlefont{\def\rm{\fam0\titlerm}% switch to title font
\textfont0=\titlerm \scriptfont0=\titlerms \scriptscriptfont0=\titlermss
\textfont1=\titlei \scriptfont1=\titleis \scriptscriptfont1=\titleiss
\textfont2=\titlesy \scriptfont2=\titlesys \scriptscriptfont2=\titlesyss
\textfont\itfam=\titleit \def\it{\fam\itfam\titleit}\rm}
%
\font\authorfont=cmcsc10 \ifx\answ\bigans\else scaled\magstep1\fi
%
\ifx\answ\bigans\def\abstractfont{\tenpoint}\else
\font\abssl=cmsl10 scaled \magstep1
\font\absrm=cmr10 scaled\magstep1 \font\absrms=cmr7 scaled\magstep1
\font\absrmss=cmr5 scaled\magstep1 \font\absi=cmmi10 scaled\magstep1
\font\absis=cmmi7 scaled\magstep1 \font\absiss=cmmi5 scaled\magstep1
\font\abssy=cmsy10 scaled\magstep1 \font\abssys=cmsy7 scaled\magstep1
\font\abssyss=cmsy5 scaled\magstep1 \font\absbf=cmbx10 scaled\magstep1
\skewchar\absi='177 \skewchar\absis='177 \skewchar\absiss='177
\skewchar\abssy='60 \skewchar\abssys='60 \skewchar\abssyss='60
%
\def\abstractfont{\def\rm{\fam0\absrm}% switch to abstract font
\textfont0=\absrm \scriptfont0=\absrms \scriptscriptfont0=\absrmss
\textfont1=\absi \scriptfont1=\absis \scriptscriptfont1=\absiss
\textfont2=\abssy \scriptfont2=\abssys \scriptscriptfont2=\abssyss
\textfont\itfam=\bigit \def\it{\fam\itfam\bigit}\def\footnotefont{\tenpoint}%
\textfont\slfam=\abssl \def\sl{\fam\slfam\abssl}%
\textfont\bffam=\absbf \def\bf{\fam\bffam\absbf}\rm}\fi
%
\def\tenpoint{\def\rm{\fam0\tenrm}% switch back to 10-point type
\textfont0=\tenrm \scriptfont0=\sevenrm \scriptscriptfont0=\fiverm
\textfont1=\teni  \scriptfont1=\seveni  \scriptscriptfont1=\fivei
\textfont2=\tensy \scriptfont2=\sevensy \scriptscriptfont2=\fivesy
\textfont\itfam=\tenit \def\it{\fam\itfam\tenit}\def\footnotefont{\ninepoint}%
\textfont\bffam=\tenbf \def\bf{\fam\bffam\tenbf}\def\sl{\fam\slfam\tensl}\rm}
%
\font\ninerm=cmr9 \font\sixrm=cmr6 \font\ninei=cmmi9 \font\sixi=cmmi6 
\font\ninesy=cmsy9 \font\sixsy=cmsy6 \font\ninebf=cmbx9 
\font\nineit=cmti9 \font\ninesl=cmsl9 \skewchar\ninei='177
\skewchar\sixi='177 \skewchar\ninesy='60 \skewchar\sixsy='60 
%
\def\ninepoint{\def\rm{\fam0\ninerm}% switch to footnote font
\textfont0=\ninerm \scriptfont0=\sixrm \scriptscriptfont0=\fiverm
\textfont1=\ninei \scriptfont1=\sixi \scriptscriptfont1=\fivei
\textfont2=\ninesy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy
\textfont\itfam=\ninei \def\it{\fam\itfam\nineit}\def\sl{\fam\slfam\ninesl}%
\textfont\bffam=\ninebf \def\bf{\fam\bffam\ninebf}\rm} 
%
%---------------------------------------------------------------------
%
\def\noblackbox{\overfullrule=0pt}
\hyphenation{anom-aly anom-alies coun-ter-term coun-ter-terms}
%
\def\inv{^{\raise.15ex\hbox{${\scriptscriptstyle -}$}\kern-.05em 1}}
\def\dup{^{\vphantom{1}}}
\def\Dsl{\,\raise.15ex\hbox{/}\mkern-13.5mu D} %this one can be subscripted
\def\dsl{\raise.15ex\hbox{/}\kern-.57em\partial}
\def\del{\partial}
\def\Psl{\dsl}
\def\tr{{\rm tr}} \def\Tr{{\rm Tr}}
\font\bigit=cmti10 scaled \magstep1
\def\biglie{\hbox{\bigit\$}} %pound sterling
\def\lspace{\ifx\answ\bigans{}\else\qquad\fi}
\def\lbspace{\ifx\answ\bigans{}\else\hskip-.2in\fi} % $$\lbspace...$$
\def\boxeqn#1{\vcenter{\vbox{\hrule\hbox{\vrule\kern3pt\vbox{\kern3pt
	\hbox{${\displaystyle #1}$}\kern3pt}\kern3pt\vrule}\hrule}}}
\def\mbox#1#2{\vcenter{\hrule \hbox{\vrule height#2in
		\kern#1in \vrule} \hrule}}  %e.g. \mbox{.1}{.1}
%	matters of taste
%\def\tilde{\widetilde} \def\bar{\overline} \def\hat{\widehat}
%
% some sample definitions
\def\CAG{{\cal A/\cal G}} \def\CO{{\cal O}} %     curly letters
\def\CA{{\cal A}} \def\CC{{\cal C}} \def\CF{{\cal F}} \def\CG{{\cal G}} 
\def\CL{{\cal L}} \def\CH{{\cal H}} \def\CI{{\cal I}} \def\CU{{\cal U}}
\def\CB{{\cal B}} \def\CR{{\cal R}} \def\CD{{\cal D}} \def\CT{{\cal T}}
\def\e#1{{\rm e}^{^{\textstyle#1}}}
\def\grad#1{\,\nabla\!_{{#1}}\,}
\def\gradgrad#1#2{\,\nabla\!_{{#1}}\nabla\!_{{#2}}\,}
\def\ph{\varphi}
\def\psibar{\overline\psi}
\def\om#1#2{\omega^{#1}{}_{#2}}
\def\vev#1{\langle #1 \rangle}
\def\lform{\hbox{$\sqcup$}\llap{\hbox{$\sqcap$}}}
\def\darr#1{\raise1.5ex\hbox{$\leftrightarrow$}\mkern-16.5mu #1}
\def\lie{\hbox{\it\$}} %pound sterling
\def\ha{{1\over2}}
\def\half{{\textstyle{1\over2}}} %puts a small half in a displayed eqn
\def\roughly#1{\raise.3ex\hbox{$#1$\kern-.75em\lower1ex\hbox{$\sim$}}}