diff options
author | Norbert Preining <norbert@preining.info> | 2024-01-31 03:01:01 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-01-31 03:01:01 +0000 |
commit | 79e1bbc1ad6b308aa2074540b2afd43b6a72ce03 (patch) | |
tree | 32074e03eec88cf72e5973ddff176a0534c77dff /obsolete/macros/phyzzx/phyzzx.plus | |
parent | 084f5d8435744b7ea7ef487ec111a7bfd100ed62 (diff) |
CTAN sync 202401310301
Diffstat (limited to 'obsolete/macros/phyzzx/phyzzx.plus')
-rw-r--r-- | obsolete/macros/phyzzx/phyzzx.plus | 1066 |
1 files changed, 1066 insertions, 0 deletions
diff --git a/obsolete/macros/phyzzx/phyzzx.plus b/obsolete/macros/phyzzx/phyzzx.plus new file mode 100644 index 0000000000..d32692ceed --- /dev/null +++ b/obsolete/macros/phyzzx/phyzzx.plus @@ -0,0 +1,1066 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%%%%%%%%%% 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 |