summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/phyzzx/base/phyzzx.plus
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/phyzzx/base/phyzzx.plus')
-rw-r--r--Master/texmf-dist/tex/phyzzx/base/phyzzx.plus1066
1 files changed, 0 insertions, 1066 deletions
diff --git a/Master/texmf-dist/tex/phyzzx/base/phyzzx.plus b/Master/texmf-dist/tex/phyzzx/base/phyzzx.plus
deleted file mode 100644
index d32692ceed0..00000000000
--- a/Master/texmf-dist/tex/phyzzx/base/phyzzx.plus
+++ /dev/null
@@ -1,1066 +0,0 @@
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%% This is PHYZZX.PLUS (cm version) %%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%% %%%%
-%% %%%
-%% Enhancements to PHYZZX.TEX which make it possible to %%%
-%% (1) produce documents in draftmode and in two-to-a-page %%%
-%% preprint style a la Harvmac %%%
-%% (\preprint and \draft) %%%
-%% (2) produce two column format similar to RevTex %%%
-%% (3) produce labels for 3 X 8 or 3 X 11 label sheets when %%%
-%% creating multiple letters using PHYZZX and a label %%%
-%% formatting routine LABELFORM.TEX (included at the end %%%
-%% of the file) (\labelformlabels) %%%
-%% (4) make boldface chapter headings without typing {\bf\chapter} %%%
-%% all the time (use \chapterheadstyle={\bf} in the %%%
-%% beginning of the TeX file.) %%%
-%% %%%
-%% Insert this file at the beginning of your phyzzx.local %%%
-%%% %%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%% Latest update/debug: November 15, 1993. %%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\message{ PHYZZX Plus }
-\catcode`@=11 % This allows us to modify PLAIN macros.
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% ADD SAN SERIF FONTS
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\newfam\ssfam % Define a San Serif font family
-\font\seventeenss =cmss10 scaled\magstep4
-\font\fourteenss =cmss10 scaled\magstep2
-\font\twelvess =cmss10 scaled\magstep1
-\font\tenss =cmss10
-\font\niness =cmss9
-\font\eightss =cmss8
-%
-\font\seventeenssbx =cmssbx10 scaled\magstep4
-\font\fourteenssbx =cmssbx10 scaled\magstep2
-\font\twelvessbx =cmssbx10 scaled\magstep1
-\font\tenssbx =cmssbx10
-%
-\def\seventeenpoint{\relax
- \textfont0=\seventeenrm \scriptfont0=\twelverm
- \scriptscriptfont0=\ninerm
- \textfont1=\seventeeni \scriptfont1=\twelvei
- \scriptscriptfont1=\ninei
- \textfont2=\seventeensy \scriptfont2=\twelvesy
- \scriptscriptfont2=\ninesy
- \textfont3=\seventeenex \scriptfont3=\twelveex
- \scriptscriptfont3=\ninex
- \textfont\itfam=\seventeenit %\scriptfont\itfam=\twelveit
- \textfont\slfam=\seventeensl %\scriptfont\slfam=\twelvesl
- \scriptscriptfont\slfam=\ninesl
- \textfont\bffam=\seventeenbf \scriptfont\bffam=\twelvebf
- \scriptscriptfont\bffam=\ninebf
- \textfont\ttfam=\seventeentt
- \textfont\cpfam=\seventeencp
- \textfont\ssfam=\seventeenss \scriptfont\ssfam=\twelvess
- \scriptscriptfont\ssfam=\niness
- \samef@nt
- \b@gheight=17pt
- \setbox\strutbox=\hbox{\vrule height 0.85\b@gheight
- depth 0.35\b@gheight width\z@ }}
-%
-%
-\def\fourteenf@nts{\relax
- \textfont0=\fourteenrm \scriptfont0=\tenrm
- \scriptscriptfont0=\sevenrm
- \textfont1=\fourteeni \scriptfont1=\teni
- \scriptscriptfont1=\seveni
- \textfont2=\fourteensy \scriptfont2=\tensy
- \scriptscriptfont2=\sevensy
- \textfont3=\fourteenex \scriptfont3=\twelveex
- \scriptscriptfont3=\tenex
- \textfont\itfam=\fourteenit \scriptfont\itfam=\tenit
- \textfont\slfam=\fourteensl \scriptfont\slfam=\tensl
- \textfont\bffam=\fourteenbf \scriptfont\bffam=\tenbf
- \scriptscriptfont\bffam=\sevenbf
- \textfont\ttfam=\fourteentt
- \textfont\cpfam=\fourteencp
- \textfont\ssfam=\fourteenss \scriptfont\ssfam=\tenss
- \scriptscriptfont\ssfam=\sevenrm }
-%
-\def\twelvef@nts{\relax
- \textfont0=\twelverm \scriptfont0=\ninerm
- \scriptscriptfont0=\sixrm
- \textfont1=\twelvei \scriptfont1=\ninei
- \scriptscriptfont1=\sixi
- \textfont2=\twelvesy \scriptfont2=\ninesy
- \scriptscriptfont2=\sixsy
- \textfont3=\twelveex \scriptfont3=\tenex
- \scriptscriptfont3=\tenex
- \textfont\itfam=\twelveit \scriptfont\itfam=\nineit
- \textfont\slfam=\twelvesl \scriptfont\slfam=\ninesl
- \textfont\bffam=\twelvebf \scriptfont\bffam=\ninebf
- \scriptscriptfont\bffam=\sixbf
- \textfont\ttfam=\twelvett
- \textfont\cpfam=\twelvecp \scriptfont\cpfam=\tencp
- \textfont\ssfam=\twelvess \scriptfont\ssfam=\niness
- \scriptscriptfont\ssfam=\sixrm }
-%
-\def\tenf@nts{\relax
- \textfont0=\tenrm \scriptfont0=\sevenrm
- \scriptscriptfont0=\fiverm
- \textfont1=\teni \scriptfont1=\seveni
- \scriptscriptfont1=\fivei
- \textfont2=\tensy \scriptfont2=\sevensy
- \scriptscriptfont2=\fivesy
- \textfont3=\tenex \scriptfont3=\tenex
- \scriptscriptfont3=\tenex
- \textfont\itfam=\tenit \scriptfont\itfam=\seveni % no \sevenit
- \textfont\slfam=\tensl \scriptfont\slfam=\sevenrm % no \sevensl
- \textfont\bffam=\tenbf \scriptfont\bffam=\sevenbf
- \scriptscriptfont\bffam=\fivebf
- \textfont\ttfam=\tentt
- \textfont\cpfam=\tencp
- \textfont\ssfam=\tenss \scriptfont\ssfam=\eightss
- \scriptscriptfont\ssfam=\fiverm }
-%
-\def\sans{\n@expand\f@m\ssfam}
-%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% Later phyzzx mods from SLAC
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%
-\def\subspaces@t#1:#2;{\rel@x
- \baselineskip = \normalbaselineskip
- \multiply\baselineskip by #1 \divide\baselineskip by #2
- \lineskip = \normallineskip
- \multiply\lineskip by #1 \divide\lineskip by #2
- \lineskiplimit = \normallineskiplimit
- \multiply\lineskiplimit by #1 \divide\lineskiplimit by #2
- \parskip = \normalparskip
- \multiply\parskip by #1 \divide\parskip by #2
- \abovedisplayskip = \normaldisplayskip
- \multiply\abovedisplayskip by #1 \divide\abovedisplayskip by #2
- \belowdisplayskip = \abovedisplayskip
- \abovedisplayshortskip = \normaldispshortskip
- \multiply\abovedisplayshortskip by #1
- \divide\abovedisplayshortskip by #2
- \belowdisplayshortskip = \abovedisplayshortskip
- \advance\belowdisplayshortskip by \belowdisplayskip
- \divide\belowdisplayshortskip by 2
- \smallskipamount = \skipregister
- \multiply\smallskipamount by #1 \divide\smallskipamount by #2
- \medskipamount = \smallskipamount \multiply\medskipamount by 2
- \bigskipamount = \smallskipamount \multiply\bigskipamount by 4 }
-%
-\newif\ifcn@ \cn@true
-\newif\ifcn@@ \cn@@false
-\def\numberedchapters{\cn@true}
-\def\unnumberedchapters{\cn@false\sequentialequations}
-%
-\def\chapterreset{\gl@bal\advance\chapternumber by 1
- \ifnum\equanumber<0 \else\gl@bal\equanumber=0\fi
- \sectionnumber=0 \let\sectionlabel=\rel@x
- \ifcn@ \gl@bal\cn@@true {\pr@tect
- \xdef\chapterlabel{\the\chapterstyle{\the\chapternumber}}}%
- \else \gl@bal\cn@@false \gdef\chapterlabel{\rel@x}\fi }
-%
-\def\@alpha#1{\count255='140 \advance\count255 by #1\char\count255}
- \def\alphabetic{\n@expand\@alpha}
-\def\@Alpha#1{\count255='100 \advance\count255 by #1\char\count255}
- \def\Alphabetic{\n@expand\@Alpha}
-\def\@Roman#1{\uppercase\expandafter{\romannumeral #1}}
- \def\Roman{\n@expand\@Roman}
-\def\@roman#1{\romannumeral #1} \def\roman{\n@expand\@roman}
-\def\@number#1{\number #1} \def\Number{\n@expand\@number}
-\def\BLANK#1{\rel@x} \let\BLANC=\BLANK
-%
-\def\section#1{\par \ifnum\lastpenalty=30000\else
- \penalty-200\vskip\sectionskip \spacecheck\sectionminspace\fi
- \gl@bal\advance\sectionnumber by 1
- {\pr@tect
- \xdef\sectionlabel{\ifcn@@ \chapterlabel.\fi
- \the\sectionstyle{\the\sectionnumber}%
- }%
- \wlog{\string\section\space \sectionlabel}
- }%
- \noindent {\caps\enspace\sectionlabel.~~#1}\par
- \nobreak\vskip\headskip \penalty 30000 }
-%
-\def\FRONTPAGE{\ifvoid255\else\vfill\penalty-20000\fi
- \gl@bal\pagenumber=1 \gl@bal\chapternumber=0
- \gl@bal\equanumber=0 \gl@bal\sectionnumber=0
- \gl@bal\referencecount=0 \gl@bal\figurecount=0
- \gl@bal\tablecount=0 \gl@bal\frontpagetrue
- \gl@bal\lastf@@t=0 \gl@bal\footsymbolcount=0
- \gl@bal\cn@@false }
-\let\Frontpage=\FRONTPAGE
-%
-\def\makelabels{\afterassignment\Makelabels \sendername=} % extra s in ias
-% % version
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%% modify phyzzx for UW label format %%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%% To produce labels, tex LABELFORM.TEX %%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%% included at the end of the file %%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\begingroup
- \catcode `\{ = 12 % Dirty trick to write out the character {
- \catcode `\} = 12 % Dirty trick to write out the character }
- \catcode `\[ = 1
- \catcode `\] = 2
-\gdef\labelformlabels[%
- \gdef\rwl@begin##1\cr[\rw@toks=[##1]\rel@x
- \immediate\write\labelswrite[\the\rw@toks]\futurelet\n@xt\rwl@next]
- \gdef\writenextlabel##1[%
- \immediate\write\labelswrite[ ]%
- \immediate\write\labelswrite[{]%
- \rwl@begin ##1%
- \rwl@end%
- \immediate\write\labelswrite[}]]%
- \gdef\writelabel##1[%
- \immediate\write\labelswrite[{]%
- \rwl@begin ##1%
- \rwl@end%
- \immediate\write\labelswrite[}]%
- \let\writelabel=\writenextlabel]%
-]
-\endgroup
-\newtoks\@ndtoks \@ndtoks={\vfill\eject}
-\newtoks\t@ptoks \t@ptoks={\voffset=3.0in %
-\hoffset=3.0in\nopagenumbers\obeylines\singlespace\twelvess}
-\gdef\envelopelabels{%
- \gdef\rwl@begin##1\cr{\rw@toks={##1}\rel@x
- \immediate\write\labelswrite{\the\rw@toks}\futurelet\n@xt\rwl@next}
- \gdef\writenextlabel##1{%
- \rwl@begin ##1%
- \rwl@end%
- \immediate\write\labelswrite{\the\@ndtoks}}%
- \gdef\writelabel##1{%
- \immediate\write\labelswrite{\the\t@ptoks}%
- \rwl@begin ##1%
- \rwl@end%
- \immediate\write\labelswrite{\the\@ndtoks}%
- \let\writelabel=\writenextlabel}%
-}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-% some phyzzx overrides
-%
-%
-%\def\addressee#1{\bigskip\medskip
-% \line{\hskip 0.5\hsize minus 0.5\hsize \the\date\hfil} \bigskip
-% \vskip\lettertopfil
-% \ialign to\hsize{\strut ##\hfil\tabskip 0pt plus \hsize \cr #1\crcr}
-% \medskip\noindent\hskip\spskip}
-%
-\def\figitem#1{\r@fitem{#1.}}
-\def\tabitem#1{\r@fitem{#1.}}
-%
-\def\ack{\ACK} % make new phyzzx compatible with old phyzzx
-%
-\def\sequentialequations{\rel@x \ifnum\equanumber<0 \else
- \gl@bal\equanumber=-\equanumber \gl@bal\advance\equanumber by -1 \fi }
-%
-%% a Journal macro that handles NPB and PR format
-%\def\Journal#1&#2&#3(#4){\begingroup \let\Journal=\dummyj@urnal
-% \unskip,~#1\unskip~%
-% \ifPhysRev\bf\fi\ignorespaces #2\rm
-% \ifPhysRev\unskip,~\ignorespaces #3\fi
-% \unskip~(\afterassignment\j@ur \count255=#4)
-% \ifPhysRev\else\unskip,~\ignorespaces #3\fi
-% \endgroup\unskip\ignorespaces }
-%
-\def\boxit#1{\vbox{\hrule\hbox{\vrule\kern3pt
-\vbox{\kern3pt#1\kern3pt}\kern3pt\vrule}\hrule}}
-%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%
-%% Making double-column (these are modified from manmac.tex)
-%% with a full size columns as well.
-%% (This is still buggy--gives overfull boxes etc.)
-%% Report bugs to T.J. Allen (tjallen@wishep.physics.wisc.edu
-%% or tja@theory3.caltech.edu)
-%%
-%% This will NOT produce double columns in preprintmode since
-%% there are conflicting \output commands. The whole
-%% macro should be rewritten using a modified \output.
-%%
-%% Where you want
-%% the doublecolumn output to start, use \begindoublecolumns.
-%% Where you want to go back to single columns use
-%% \enddoublecolumns. This produces output much like that
-%% of RevTeX. If you wish to specify that there be a rule
-%% between the columns of output, then set \columnrulewidth
-%% = 0.4pt.
-%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%
-\newbox\partialpage
-\newdimen\pageheight \pageheight=\vsize
-\newdimen\pagewidth \pagewidth=6.6truein
-\newdimen\columnwidth \columnwidth=3.2truein
-\newdimen\columnrulewidth \columnrulewidth=0pt
-\newdimen\ruleht \ruleht=.5pt
-\newinsert\margin
-%
-\def\twocolumn{%
- \singlespace
- \vsize=9truein
- \pagetextwidth=\pagewidth
- \hsize=\pagewidth
- \titlepagewidth=\pagewidth
- \hoffset=0truein
- \voffset=0truein
- \dimen\margin=\maxdimen
- \count\margin=0 \skip\margin=0pt
-%
- \def\begindoublecolumns{
- \ifpr@printstyle
- \message{ I'm unable to print double columns in PREPRINTSTYLE }
- \end\fi
- \begingroup
- \global\vsize=2\pageheight
- \output={\global\setbox\partialpage=\vbox{\unvbox255\bigskip\bigskip}
- \global\vsize=2\pageheight\global\advance\vsize by -2\ht\partialpage
- \global\advance\vsize by 2\bigskipamount
- \global\advance\vsize by 1 pc}\eject % a little extra room; 1pc
- \output={\doublecolumnout\global\vsize=2\pageheight}
- \global\pagetextwidth=\columnwidth \global\hsize=\columnwidth}
-%
-% keeps footnotes on correct page
-%
- \def\enddoublecolumns{\output={\balancecolumns\global\hsize=\pagewidth
- \global\pagetextwidth=\pagewidth
- \global\vsize=\pageheight
- \unvbox255 }\eject\endgroup}
-%
- \def\doublecolumnout{\splittopskip=\topskip \splitmaxdepth=\maxdepth
- \dimen@=\pageheight\advance\dimen@ by -\ht\partialpage
- \setbox0=\vsplit255 to\dimen@ \setbox2=\vsplit255 to \dimen@
- \onepageout\pagesofar \unvbox255 \penalty\outputpenalty}
-%
- \def\pagesofar{\unvbox\partialpage
- \wd0=\columnwidth \wd2=\columnwidth \hbox to \pagewidth{\box0\hfil
- \columnrule \hfil \box2}}
-%
- \def\columnrule{\vrule width \columnrulewidth height \ht2}
-%
- \def\balancecolumns{\setbox0=\vbox{\unvbox255}\dimen@=\ht0
- \advance\dimen@ by \topskip \advance\dimen@ by-\baselineskip
- \advance\dimen@ by -2\ht\partialpage % what if we begin and end on the
- \divide\dimen@ by2 % same page?!?
- \splittopskip=\topskip
- {\vbadness=10000 \loop \global\setbox3=\copy0
- \global\setbox1=\vsplit3 to \dimen@
- \ifdim\ht3>\dimen@ \global\advance\dimen@ by1pt \repeat}
- \setbox0=\vbox to \dimen@{\unvbox1} \setbox2=\vbox to \dimen@{\dimen2=\dp3
- \unvbox3 \kern-\dimen2 \vfil }
- \pagesofar }
-%
- \def\onepageout##1{ \setbox0=\vbox{##1} \dimen@=\dp0
- \shipout\vbox{ % here we define one page of output
- \makeheadline
- \vbox to \pageheight{
- \boxmaxdepth=\maxdepth
- \ifvoid\margin\else % marginal info is present
- \rlap{\kern31pc\vbox to 0pt{\kern4pt\box\margin\vss}}\fi
- \ifvoid\topins\else\unvbox\topins\vskip\skip\topins\fi
- ##1 % now insert the main information
- \vskip\pagebottomfiller
- \ifvoid\footins\else\vskip\skip\footins\footrule\unvbox\footins\fi
- \ifr@ggedbottom\kern-\dimen@ \vfil\fi} %need a replacement for here
- \makefootline}
- \advancepageno\frontpagefalse}
-%
- \def\makeheadline{\vbox to\z@{\vskip-22.5\p@
- \hbox to \pagewidth{\vbox to8.5\p@{}\the\headline}\vss}\nointerlineskip}
-%
- \def\makefootline{\baselineskip = 1.5\normalbaselineskip
- \hbox to \pagewidth{\the\footline}}
-%\def\makefootline{\baselineskip24\p@\line{\the\footline}}
-
-%
- \def\footrule{\dimen@=\prevdepth\nointerlineskip
- \vbox to 0pt{\vskip -0.25\baselineskip \hrule width 0.62\pagewidth \vss}
- \prevdepth=\dimen@ }
-%
- \def\Vfootnote##1{\insert\footins\bgroup
- \interlinepenalty=\interfootnotelinepenalty \floatingpenalty=20000
- \singl@true\doubl@false\Tenpoint \hsize=\pagewidth
- \splittopskip=\ht\strutbox \boxmaxdepth=\dp\strutbox
- \leftskip=\footindent \rightskip=\z@skip
- \parindent=0.5\footindent \parfillskip=0pt plus 1fil
- \spaceskip=\z@skip \xspaceskip=\z@skip \footnotespecial
- \Textindent{##1}\footstrut\futurelet\next\fo@t}
-% make the footnotes all have the correct size and the same footrule!
-%% Make column separators for large one-column equations %%%%%%%%%%%%%%%%%%%
- \def\sp@cecheck##1{\dimen@=\pagegoal\advance\dimen@ by -\pagetotal
- \ifdim\dimen@<##1 \ifdim\dimen@>0pt \vfil\break \fi\fi}
- \def\endleftcolumn{\dimen@=\pagegoal\advance\dimen@ by -\pagetotal
- \ifdim\dimen@<\chapterminspace \ifdim\dimen@>0pt \vfil\break \fi
- \hbox{\vbox{\hrule width \columnwidth}\hbox to 0.4pt
- {\vrule height 10pt depth 0pt}\hfil}\fi}
- \def\beginrightcolumn{\dimen@=\pagegoal\advance\dimen@ by -\pagetotal
- \ifdim\dimen@<\chapterminspace \ifdim\dimen@>0pt \vfil\break \fi
- \hbox to \hsize{\hss\hbox{\vrule height 0pt depth 10pt
- \vbox{\hrule width \columnwidth}}}\fi}
-}
-%
-%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%
-%% Now start the draftmode and preprintmode enhancement features
-%% (Homage to harvmac.tex)
-%% Report any bugs to T.J. Allen
-%% tja@theory3.caltech.edu or
-%% tjallen@wishep.physics.wisc.edu
-%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%
-%% Here is the draftmode feature
-%%
-%% Use the following on the preliminary draft,
-%% puts time/date on each page in writes labels in margins
-%% and puts reference labels on the reference page.
-%% Putting \draft in the beginning of the paper causes it
-%% to be printed in draftmode. use \nodraftlabels to get rid of
-%% eqn, ref, and fig labels in draft mode
-%%
-%% Timestamp routine bug fixed October 30, 1991 by T.J.A.
-%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%
-\newif\ifdr@ftmode
-\newtoks\r@flabeltoks
-\def\draftmode{
- \pagetextwidth=6truein
- \fullhsize=6truein
- \titlepagewidth=6truein
- \vsize=8.3truein
- \normalspace
- \hoffset=0.3truein
- \voffset=0.2truein
- \advance\hoffset by\HOFFSET
- \advance\voffset by\VOFFSET
- \hsize=\pagetextwidth
- \tenpoint
- \baselineskip=24pt plus 2pt minus 2pt
- \dr@ftmodetrue
- \message{ DRAFTMODE }
- \writedraftlabels
- \def\timestring{\begingroup
- \count0 = \time \divide\count0 by 60
- \count2 = \count0 % the hour
- \count4 = \time \multiply\count0 by 60
- \advance\count4 by -\count0 % the minute
- \ifnum\count4<10 \toks1={0} % get a leading zero.
- \else \toks1 = {}
- \fi
- \ifnum\count2<12 \toks0={a.m.} %
- \ifnum\count2<1 \count2=12 \fi% Make midnight `12'
- \else \toks0={p.m.} %
- \ifnum\count2=12 % keep noon `12'
- \else
- \advance\count2 by -12 % keep afternoon times < 12
- \fi
- \fi
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%% \ifnum\count2=0 \count2 = 12\fi % make midnight `12'. % There seems to
-%% be a bug in TeX when checking a count which has the value 0.
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- \number\count2:\the\toks1 \number\count4\thinspace \the\toks0
- \endgroup}%
-%
- \def\draftdate{{{\tt preliminary version:}\space{\rm
- \timestring\quad\the\date}}}
-%
-\def\R@FWRITE##1{\ifreferenceopen \else \gl@bal\referenceopentrue
- \immediate\openout\referencewrite=\jobname.refs
- \toks@={\begingroup \refoutspecials \catcode`\^^M=10 }%
- \immediate\write\referencewrite{\the\toks@}\fi
- \immediate\write\referencewrite%
- {\noexpand\refitem{\the\r@flabeltoks[\the\referencecount]}}%
- \p@rse@ndwrite \referencewrite ##1}
-%
-\def\refitem##1{\r@fitem{##1}}
-\def\REF##1##2{\reflabel##1 \REFNUM ##1\REFWRITE{\ignorespaces ##2}}
-\def\Ref##1##2{\reflabel##1 \Refnum ##1\REFWRITE{ ##2}}
-\def\REFS##1##2{\reflabel##1 \REFNUM ##1%
-\gl@bal\lastrefsbegincount=\referencecount\REFWRITE{ ##2}}
-\def\refs{\REFS\?}
-\def\refc{\REF\?}
-\let\refscon=\refc \let\REFSCON=\REF
-%
-}
-\def\nodraftlabels{\def\leqlabel##1{}\def\eqlabel##1{}\def\reflabel##1{}%
-\def\leqlabel##1{}}
-\def\writedraftlabels{
- \def\eqlabel##1{{\escapechar-1\rlap{\sevenrm\hskip.05in\string##1}}}%
- \def\leqlabel##1{{\escapechar-1\llap{\sevenrm\string##1\hskip.05in}}}%
- \def\reflabel##1{\r@flabeltoks={{\escapechar-1\sevenrm\string##1\hskip.06in%
-}}}}
-\def\draft{\draftmode}
-\def\draftstyle{\draftmode}
-\nodraftlabels % Make the default mode no labels
-\dr@ftmodefalse % Turn off draftmode
-%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%
-%% Here come macros for equation numbering.
-%% (Equation numbers are modified in draft mode)
-%%
-%% Sections are automatically numbered independently, unless
-%% one puts the command \sequentialequations
-%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%
-\def\eqname#1{\rel@x {\pr@tect
- \ifnum\equanumber<0 \xdef#1{{\rm(\number-\equanumber)}}%
- \gl@bal\advance\equanumber by -1
- \else \gl@bal\advance\equanumber by 1
- \xdef#1{{\rm(\ifcn@@ \chapterlabel.\fi \number\equanumber)}}\fi
- }#1}
-%
-\def\eq{\eqname\?}
-\def\eqn#1{\eqno\eqname{#1}\eqlabel#1}
-\def\leqn#1{\leqno\leqlabel#1\eqname{#1}} %MODIFICATION
-%
-\def\eqinsert#1{\noalign{\dimen@=\prevdepth \nointerlineskip
- \setbox0=\hbox to\displaywidth{\hfil #1}
- \vbox to 0pt{\kern 0.5\baselineskip\hbox{$\!\box0\!$}\vss}
- \prevdepth=\dimen@}} %MODIFICATION
-%
-\def\leqinsert#1{\eqinsert{#1\hfill}}
-\def\mideqn#1{\eqinsert{\eqname{#1}}} %MODIFICATION
-\def\midleqn#1{\leqinsert{\eqname{#1}}}
-%
-\def\eqnalign#1{\eqname{#1}} %MODIFICATION
-%
-%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%
-%% Here come modified reference macros
-%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%
-%
-\def\refout{\par\penalty-400\vskip\chapterskip
- \spacecheck\referenceminspace
- \ifreferenceopen \Closeout\referencewrite \referenceopenfalse \fi
- \line{\ifpr@printstyle\twelverm\else\fourteenrm\fi
- \hfil REFERENCES\hfil}\vskip\headskip
- \input \jobname.refs
- }
-\def\ACK{\par\penalty-100\medskip \spacecheck\sectionminspace
- \line{\ifpr@printstyle\twelverm\else\fourteenrm\fi
- \hfil ACKNOWLEDGEMENTS\hfil}\nobreak\vskip\headskip }
-\def\tabout{\par\penalty-400
- \vskip\chapterskip\spacecheck\referenceminspace
- \iftableopen \Closeout\tablewrite \tableopenfalse \fi
- \line{\ifpr@printstyle\twelverm\else\fourteenrm\fi\hfil TABLE %
- CAPTIONS\hfil}
- \vskip\headskip
- \input \jobname.tabs
- }
-\def\figout{\par\penalty-400
- \vskip\chapterskip\spacecheck\referenceminspace
- \iffigureopen \Closeout\figurewrite \figureopenfalse \fi
- \line{\ifpr@printstyle\twelverm\else\fourteenrm\fi\hfil FIGURE %
- CAPTIONS\hfil}
- \vskip\headskip
- \input \jobname.figs
- }
-%
-\def\masterreset{\begingroup\hsize=\pagetextwidth
- \global\pagenumber=1 \global\chapternumber=0
- \global\equanumber=0 \global\sectionnumber=0
- \global\referencecount=0 \global\figurecount=0 \global\tablecount=0
- \endgroup}
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%
-%% Here start the preprintmode enhancements
-%% To cause the paper to be printed in preprintmode, which
-%% emulates the l answer in harvmac, insert \preprint at the
-%% beginning of the file
-%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%
-%% Next, I define output routines, footnotes & related stuff.
-%% (The headline has been modified for draftmode and preprints
-%% may be produced in landscape form, two columns sideways)
-%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%
-%
-\newif\ifpr@printstyle \pr@printstylefalse
-\newbox\leftpage
-\newdimen\fullhsize
-\newdimen\titlepagewidth
-\newdimen\pagetextwidth
-\def\preprintstyle{%
- \message{(This will be printed PREPRINTSTYLE)}
- \let\lr=L
- \frontpagetrue
- \pr@printstyletrue
- \vsize=7truein
- \pagetextwidth=4.75truein
- \fullhsize=10truein
- \titlepagewidth=8truein
- \normalspace
- \Tenpoint
- \voffset=-.31truein
- \hoffset=-.46truein
- \iffrontpage\hsize=\titlepagewidth\else\hsize=\pagetextwidth\fi
- % Comment out the above line for SLAC style frontpage
- % and uncomment the following line
- %\hsize=\pagetextwidth
- \output={%
- \iffrontpage
- \shipout\vbox{\special{\printertype}\makeheadline
- \hbox to \fullhsize{\hfill\pagebody\hfill}}
- \advancepageno
- \else
- \almostshipout{\leftline{\vbox{\pagebody\makefootline}}}\advancepageno
- \fi}
- \def\almostshipout##1{\if L\lr \count2=1
- \message{[\the\count0.\the\count1.\the\count2]}
- \global\setbox\leftpage=##1 \global\let\lr=R
- \else \count2=2
- \shipout\vbox{\special{\printertype}
- \hbox to\fullhsize{\hfill\box\leftpage\hskip0.5truein##1\hfill}}
- \global\let\lr=L \fi}
- \multiply\chapterminspace by 7 \divide\chapterminspace by 9
- \multiply\sectionminspace by 7 \divide\sectionminspace by 9
- \multiply\referenceminspace by 7 \divide\referenceminspace by 9
- \multiply\chapterskip by 7 \divide\chapterskip by 9
- \multiply\sectionskip by 7 \divide\sectionskip by 9
- \multiply\headskip by 7 \divide\headskip by 9
- \multiply\baselineskip by 7 \divide\baselineskip by 9
- \multiply\abovedisplayskip by 7 \divide\abovedisplayskip by 9
- \belowdisplayskip = \abovedisplayskip
-%
-\def\advancepageno{\if L\lr \gl@bal\advance\pagen@ by 1\fi
- \ifnum\pagenumber<0 \gl@bal\advance\pagenumber by -1
- \else\gl@bal\advance\pagenumber by 1 \fi
- \gl@bal\frontpagefalse \swing@
- \gl@bal\hsize=\pagetextwidth}
-} % end of preprintstyle specs
-%
-\let\preprint=\preprintstyle
-\let\preprintmode=\preprintstyle
-\tolerance=1000
-%\def\printertype{ps: }
-\def\printertype{}
-%
-% Default values for the fullsize document page
-\def\oldpapersize{\ifpr@printstyle\relax\else
- \ifdr@ftmode\relax\else
- \pagetextwidth=6truein
- \fullhsize=6truein
- \titlepagewidth=6truein
- \vsize=8.3truein
- \hsize=\pagetextwidth
- \Twelvepoint
- \hoffset=0.3 truein
- \voffset=0.2 truein
- \advance\hoffset by\HOFFSET
- \advance\voffset by\VOFFSET
- \pagebottomfiller=0pc
- \skip\footins=\bigskipamount
- \normalspace\fi\fi}
-%
-\def\bigpapersize{\ifpr@printstyle\relax\else
- \ifdr@ftmode\relax\else
- \pagetextwidth=6.5truein
- \fullhsize=6.5truein
- \titlepagewidth=6.5truein
- \hsize=\fullhsize
- \vsize=9truein
- \Twelvepoint
- \hoffset=0.05 truein
- \voffset=-0.1truein
- \advance\hoffset by\HOFFSET
- \advance\voffset by\VOFFSET
- \pagebottomfiller=0pc
- \skip\footins=\bigskipamount
- \normalspace\fi\fi }
-%
-\paperheadline={\ifdr@ftmode\hfil\draftdate\else\hfill\fi}
-%
-\def\advancepageno{\gl@bal\advance\pagen@ by 1
- \ifnum\pagenumber<0 \gl@bal\advance\pagenumber by -1
- \else\gl@bal\advance\pagenumber by 1 \fi
- \gl@bal\frontpagefalse \swing@
- \gl@bal\hsize=\pagetextwidth} %MODIFICATION
-%
-\let\papersize=\bigpapersize
-%
-\papers
-%
-\def\lettersize{\fullhsize=6.5in
- \pagetextwidth=6.5in
- \hsize=\fullhsize
- \vsize=8.5in
- \hoffset=0in
- \voffset=0.5in
- \advance\hoffset by\HOFFSET
- \advance\voffset by\VOFFSET
- \pagebottomfiller=\letterbottomskip
- \skip\footins=\smallskipamount
- \multiply\skip\footins by 3
- \singlespace }
-%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%
-%% Here come chapter, section, subsection & appendix macros.
-%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%
-%% The following allows a shortcut for making titles bold etc.
-%% Just use \chapterheadstyle={\bf} in the beginning of the
-%% TeX file.
-%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-\newtoks\chapterheadstyle \chapterheadstyle={\relax}
-%
-\def\chapter#1{{\the\chapterheadstyle\par \penalty-300 \vskip\chapterskip
- \spacecheck\chapterminspace
- \chapterreset\titlestyle{\ifcn@@{\ifPhysRev\Roman{\the\chapternumber}.~
- \else{\the\chapternumber}.~\fi}\fi #1}
- \nobreak\vskip\headskip \penalty 30000
- \message{(\the\chapternumber. #1)}
- {\pr@tect\wlog{\string\chapter\space \chapterlabel}} }}
-\def\chap{\chapter}
-\def\APPENDIX#1#2{{\the\chapterheadstyle\par\penalty-300\vskip\chapterskip
- \spacecheck\chapterminspace \chapterreset \xdef\chapterlabel{#1}
- \titlestyle{APPENDIX #2} \nobreak\vskip\headskip \penalty 30000
- \wlog{\string\Appendix~\chapterlabel} }}
-%
-\def\chapterreset{\gl@bal\advance\chapternumber by 1
- \ifnum\equanumber<0 \else\gl@bal\equanumber=0\fi
- \gl@bal\sectionnumber=0 \let\sectionlabel=\rel@x
- \ifcn@ \gl@bal\cn@@true {\pr@tect
- \xdef\chapterlabel{{\the\chapterstyle{\the\chapternumber}}}}%
- \else \gl@bal\cn@@false \gdef\chapterlabel{\rel@x}\fi }%MODIFICATION
-%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%
-%% Various little user definitions
-%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%
-\def\half{{\textstyle{1\over2}}}
-\def\third{{\textstyle{1\over3}}}
-\def\fourth{{\textstyle{1\over4}}}
-\def\12{{1\over2}}
-\def\etal{{\it et al.\ }}
-\def\via{{\hbox{\it via}}}
-\def\cf{{\hbox{\it cf.}}}
-\def\sla{\raise.15ex\hbox{$/$}\kern-.57em}
-\def\leaderfill{\leaders\hbox to 1em{\hss.\hss}\hfill}
-\def\dual{{\,^*\kern-.20em}} %%% produces a raised * in front of a form
-\def\inner{\,{\vcenter{ %%% symbol _| for vector, form inner product
- \hbox{ \kern 4pt
- \vrule width 0.5pt height 7pt}
- \hrule height 0.5pt}}\,}
-\def\bx{{\vcenter{\hrule height 0.4pt
- \hbox{\vrule width 0.4pt height 10pt \kern 10pt
- \vrule width 0.4pt}
- \hrule height 0.4pt}}}
-\def\sqr#1#2{{\vcenter{\hrule height.#2pt
- \hbox{\vrule width.#2pt height#1pt \kern#1pt
- \vrule width.#2pt}
- \hrule height.#2pt}}}
-\def\rect#1#2#3#4{{\vcenter{\hrule height#3pt
- \hbox{\vrule width#4pt height#1pt \kern#1pt
- \vrule width#4pt}
- \hrule height#3pt}}}
-\def\rec{\rect{15}{15}{.5}{.5}}
-\def\bx{{\vcenter{\hrule height 0.4pt
- \hbox{\vrule width 0.4pt height 10pt \kern 10pt
- \vrule width 0.4pt}
- \hrule height 0.4pt}}}
-\def\ssquare{\mathchoice\sqr34\sqr34\sqr{2.1}3\sqr{1.5}3}
-\def\up#1{\leavevmode \raise.16ex\hbox{#1}}
-\def\twiddle{\lower.9ex\rlap{$\kern-.1em\scriptstyle\sim$}}
-\def\bigtwiddle{\lower1.ex\rlap{$\sim$}}
-\def\gtwid{\mathrel{\raise.3ex\hbox{$>$\kern-.75em\lower1ex\hbox{$\sim$}}}}
-\def\ltwid{\mathrel{\raise.3ex\hbox{$<$\kern-.75em\lower1ex\hbox{$\sim$}}}}
-\def\square{\kern1pt\vbox{\hrule height 1.2pt\hbox{\vrule width 1.2pt\hskip 3pt
- \vbox{\vskip 6pt}\hskip 3pt\vrule width 0.6pt}\hrule height 0.6pt}\kern1pt}
-\def\tdot#1{\mathord{\mathop{#1}\limits^{\kern2pt\ldots}}}
-\def\super#1{$^{#1}$}
-\def\pmb#1{\setbox0=\hbox{#1} % POOR MAN'S BOLD
- \kern-.025em\copy0\kern-\wd0
- \kern .05em\copy0\kern-\wd0
- \kern-.025em\raise.0433em\box0 }
-\def\qed{\vrule height 1.2ex width 0.5em}
-\def\dalemb{{\cal t}} %%DALEMBERTIAN, USED TO BE \box
-\def\grad{\nabla}
-\def\const{{\rm const}}
-\def\s{{\,\rm s}}
-\def\cm{{\,\rm cm}}
-\def\g{{\,\rm g}}
-\def\coeff#1#2{\textstyle{#1\over #2}}
-\def\partder#1#2{{{\partial #1}\over{\partial #2}}}
-\def\Tr{\mathop{\rm Tr}\nolimits}
-\def\gev{{\,\rm GeV}}
-\def\ev{{\,\rm eV}}
-\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}}
-\font\bigit=cmti10 scaled \magstep1
-\def\biglie{\hbox{\bigit\$}} %pound sterling
-\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}
-\hyphenation{anom-aly anom-alies coun-ter-term coun-ter-terms}
-%%
-%% matters of taste
-%%
-%%
-%%
-%\def\tilde{\widetilde} \def\bar{\overline} \def\hat{\widehat}
-\def\e#1{{\rm e}^{^{\textstyle#1}}}
-\def\grad#1{\,\nabla\!_{{#1}}\,}
-\def\ph{\varphi}
-\def\psibar{\overline\psi}
-\def\om#1#2{\omega^{#1}{}_{#2}}
-\def\darr#1{\raise1.5ex\hbox{$\leftrightarrow$}\mkern-16.5mu #1}
-\def\lie{\hbox{\it\$}} %pound sterling
-\def\roughly#1{\raise.3ex\hbox{$#1$\kern-.75em\lower1ex\hbox{$\sim$}}}
-%
-%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%
-%% Miscellaneous macros
-%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%
-%\def\letter{\FRONTPAGE \letterhead \addressee }
-%
-% A copies-to macro for the end of letters
-%
-\def\cc#1{%
-\setbox0 = \vtop{\ialign to\hsize{\strut ##\hfil\tabskip 0pt plus \hsize %
-\crcr #1\crcr}}%
-\hbox{{cc:\ }\box0}%
-}
-%%% undertildes
-\def\underwig#1{{
-\setbox0=\hbox{$#1$}
-\setbox1=\hbox{}
-\wd1=\wd0
-\ht1=\ht0
-\dp1=\dp0
-\setbox2=\hbox{$\rm\widetilde{\box1}$}
-\dimen@=\ht2 \advance \dimen@ by \dp2 \advance \dimen@ by 1.5pt
-\ht2=0pt \dp2=0pt
-\hbox to 0pt{$#1$\hss} \lower\dimen@\box2
-}}
-%
-\def\bunderwig#1{{
-\setbox0=\hbox{$#1$}
-\setbox1=\hbox{}
-\wd1=\wd0
-\ht1=\ht0
-\dp1=\dp0
-\setbox2=\hbox{$\seventeenrm\widetilde{\box1}$}
-\dimen@=\the\ht2 \advance \dimen@ by \the\dp2 \advance \dimen@ by 1.5pt
-\ht2=0pt \dp2=0pt
-\hbox to 0pt{$#1$\hss} \lower\dimen@\box2
-}}
-%
-\def\journal#1&#2(#3){\unskip, \sl #1~\bf #2 \rm (19#3) }
- % Journal reference. Alignment
- % tabs & set off name, vol, year, page
-\def\npjournal#1&#2&#3&#4&{\unskip, #1~\rm #2 \rm (#3) #4}
-\gdef\prjournal#1&#2&#3&#4&{\unskip, #1~\bf #2, \rm #4 (#3)}
-\def\JOURNAL{\ifPhysRev\prjournal\else\npjournal\fi}
-%
-\def\coeff#1#2{\textstyle{#1\over #2}}
-\def\partder#1#2{{\partial #1\over\partial #2}}
-\def\bra#1{\left\langle #1\right|}
-\def\ket#1{\left| #1\right\rangle}
-\def\VEV#1{\left\langle #1\right\rangle}
-\let\vev=\VEV
-\def\Tr{\mathop{\rm Tr}\nolimits}
-\let\int=\intop \let\oint=\ointop
-\def\semi{;\hfil\break}
-\catcode`@=12 % at signs are no longer letters
-%
-\masterreset
-\endinput
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%% This is LABELFORM.TEX %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%
-%% Macro to make mailing labels on Avery sheets from an address file.
-%% Address file should be formatted as:
-%%
-%% {
-%% <name>
-%% <multi(<=5)line address>
-%% }
-%%
-%% with a blank line between addresses and NO BLANK LINES at the
-%% BEGINNING or the END
-%%
-%% The enhanced phyzzx.plus automatically formats the input file for
-%% addresses correctly if the command \labelformlabels is inserted
-%% BEFORE the \multiletter command
-%%
-%% The present format has ELEVEN labels in each column, THREE columns/page
-%% and prints in a tenpoint san serif typeface
-%% (Appended to the end of this file is the format for EIGHT labels/column)
-%%
-%% No matter what the name of the address file input is, the output will
-%% be called LABELFORM.DVI
-%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%
-\font\tenss = cmss10
-\tenss
-\nopagenumbers
-\baselineskip=9truept % use 10truept here for labels with only four lines
-\parindent 0pt
-\hsize=8.5truein
-\vsize=11 truein
-\hoffset=-0.65 truein
-\voffset=-0.795 truein
-%
-\newread\addrfileno
-\loop\immediate\write16{ }
- \message{Address file name? }
- \read-1 to \addrfile
- \immediate\write16{ }
- \openin\addrfileno=\addrfile
- \ifeof\addrfileno \immediate\write16{File not found.}
-\repeat
-%
-\newbox\onelabel
-\newbox\wall
-\setbox\wall=\hbox to 0pt{\null}
-\newcount\across \across=0
-\newcount\down \down=0
-%
-\newif\ifanymore
-\loop
- \endlinechar=`\^^M % normal expansion of <cr>
- \begingroup\obeylines % to get address read in with \par's
- \global\read\addrfileno to \addresslines %
- \endgroup
- \setbox\onelabel=\hbox to 2.8truein{\vbox to 0.99truein{\vskip 3truept
- \hbox{\vbox{\hsize=2.8truein \addresslines}}
- \vfil}} %
- \setbox\wall=\hbox{\box\wall\box\onelabel}
- \advance\across by 1
- \ifnum\across=3 % if 3 labels in a row, add row
- \box\wall
- \vskip -1.0pt % correct downward creep
- \setbox\wall=\hbox to 0pt{\null}
- \advance\down by 1
- \across=0
- \ifnum\down=11 % if 11 rows on page, print page
- \eject
- \down=0
- \fi
- \fi
- \read\addrfileno to \emptyline % 1 blank line divides addresses
- \ifeof\addrfileno\anymorefalse % last line in the file
- \else\anymoretrue\fi % otherwise repeat the loop
- \ifanymore
-\repeat
-\closein\addrfileno
-\ifnum\across=0 % if addresses ended with a full row, no need to fill
- \else % if addresses didn't end with a full row, fill it out
- \setbox\wall=\hbox to\hsize{\box\wall\hfill}
- \box\wall \vfill\eject
-\fi
-\bye
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%% This is LABELFORM.TEX %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%%
-%% Macro to make mailing labels on Avery sheets from an address file.
-%% Address file should be formatted as:
-%%
-%%
-%% {
-%% <name>
-%% <multi(<=6)line address>
-%% }
-%%
-%% with a blank line between addresses and NO BLANK LINES at the
-%% BEGINNING or the END
-%%
-%% The enhanced phyzzx.plus automatically formats the input file for
-%% addresses correctly if the command \labelformlabels is inserted BEFORE
-%% the \multiletter command
-%%
-%% The present format has EIGHT labels in each column, THREE columns/page
-%% and prints in a san serif typeface
-%%
-%% No matter what the name of the address file input is, the output will
-%% be called LABELFORM.DVI
-%%
-%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-%
-\font\tenss = cmss10
-\tenss
-\nopagenumbers
-\baselineskip=9 truept
-\parindent 0pt
-\hsize=8.5truein
-\vsize=11truein
-\hoffset=-0.65truein
-\voffset=-0.4truein
-%
-\newread\addrfileno
-\loop\immediate\write16{ }
- \message{Address file name? }
- \read-1 to \addrfile
- \immediate\write16{ }
- \openin\addrfileno=\addrfile
- \ifeof\addrfileno \immediate\write16{File not found.}
-\repeat
-%
-\newbox\onelabel
-\newbox\wall
-\setbox\wall=\hbox to 0pt{\null}
-\newcount\across \across=0
-\newcount\down \down=0
-%
-\newif\ifanymore
-\loop
- \endlinechar=`\^^M % normal expansion of <cr>
- \begingroup\obeylines % to get address read in with \par's
- \global\read\addrfileno to \addresslines %
- \endgroup
- \setbox\onelabel=\hbox to 2.8truein{\vbox to 1.35truein{\vskip 3truept
- \hbox{\vbox{\hsize=2.8 truein \addresslines}}
- \vfil}} %
- \setbox\wall=\hbox{\box\wall\box\onelabel}
- \advance\across by 1
- \ifnum\across=3 % if 3 labels in a row, add row
- \box\wall
- \vskip -1.0pt % correct downward creep
- \setbox\wall=\hbox to 0pt{\null}
- \advance\down by 1
- \across=0
- \ifnum\down=8 % if 8 rows on page, print page
- \eject
- \down=0
- \fi
- \fi
- \read\addrfileno to \emptyline % 1 blank line divides addresses
- \ifeof\addrfileno\anymorefalse % last line in the file
- \else\anymoretrue\fi % otherwise repeat the loop
- \ifanymore
-\repeat
-\closein\addrfileno
-\ifnum\across=0 % if addresses ended with a full row, no need to fill
- \else % if addresses didn't end with a full row, fill it out
- \setbox\wall=\hbox to\hsize{\box\wall\hfill}
- \box\wall \vfill\eject
-\fi
-\bye