diff options
Diffstat (limited to 'Master/texmf-dist/tex/phyzzx/base/phyzzx.plus')
-rw-r--r-- | Master/texmf-dist/tex/phyzzx/base/phyzzx.plus | 1066 |
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(#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(#3){\unskip, \sl #1~\bf #2 \rm (19#3) } - % Journal reference. Alignment - % tabs & set off name, vol, year, page -\def\npjournal#1&{\unskip, #1~\rm #2 \rm (#3) #4} -\gdef\prjournal#1&{\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 |