diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/plain/contrib/samples/artic0.tex |
Initial commit
Diffstat (limited to 'macros/plain/contrib/samples/artic0.tex')
-rw-r--r-- | macros/plain/contrib/samples/artic0.tex | 128 |
1 files changed, 128 insertions, 0 deletions
diff --git a/macros/plain/contrib/samples/artic0.tex b/macros/plain/contrib/samples/artic0.tex new file mode 100644 index 0000000000..5d0ba08382 --- /dev/null +++ b/macros/plain/contrib/samples/artic0.tex @@ -0,0 +1,128 @@ +\newbox\leftpage +\newdimen\fullhsize +\newdimen\hstitle +\newdimen\hsbody +\tolerance=1000\hfuzz=2pt + +\def\bigans{b } +\message{ big or little (b/l)? }\read-1 to\answ + +\ifx\answ\bigans\message{(This will come out unreduced.} +\magnification=1200\baselineskip=14pt +\font\bigfnt=amr10 scaled\magstep3 \global\let\absfnt=\tenrm +\hsbody=\hsize \hstitle=\hsize %take default values for unreduced format + +\else\message{(This will be reduced.} +\let\lr=L +\special{landscape} +\font\bigfnt=amr10 scaled\magstep4 +\font\absfnt=amr10 scaled\magstep1 +\def\almostshipout#1{\if L\lr \count1=1 + \global\setbox\leftpage=#1 \global\let\lr=R + \else \count1=2 + \shipout\vbox{\hbox to\fullhsize{\box\leftpage\hfil#1}} + \global\let\lr=L\fi} + +\output={\ifnum\count0=1 %%% This is the HUTP version + \shipout\vbox{\hbox to \fullhsize{\hfill\pagebody\hfill}}\advancepageno + \else + \almostshipout{\leftline{\vbox{\pagebody\makefootline}}}\advancepageno + \fi} + +\magnification=1000\baselineskip=14pt\voffset=-.31truein\hoffset=.05truein +\hstitle=8truein\hsbody=4.75truein\vsize=7truein\fullhsize=10truein +\fi + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + + +\def\HUTP#1#2{\nopagenumbers\hsize=\hstitle\rightline{\absfnt HUTP-85/A#1}% +\vskip 1in\bigfnt\centerline{#2}\absfnt\vskip .5in} + +\def\Date#1{\vfill\leftline{#1}\tenrm\supereject\hsize=\hsbody% +\footline={\hss\tenrm\folio\hss}}% restores pagenumbers + + +% tagged sec numbers +\global\newcount\secno \global\secno=0 +\global\newcount\meqno \global\meqno=1 + +\def\newsec#1{\global\advance\secno by1\global\meqno=1 +\ifx\answ\bigans \vfill\eject +\else\bigbreak\bigskip\fi% (combination \goodbreak\bigskip\bigskip) +\noindent{\bf\the\secno. #1}\par\nobreak\medskip\nobreak} + +% \eqn\label{a+b=c} gives a displayed equation with number +% chosen consecutively within sections. +% \eqnn and \eqna define labels in advance +\newwrite\efile \let\firsteqn=T +\def\writeqno#1% +{\if T\firsteqn \immediate\openout\efile=eqns.tmp\global\let\firsteqn=F\fi% +\immediate\write\efile{#1 \string#1}\global\advance\meqno by1} + +\def\eqnn#1{\xdef #1{(\the\secno.\the\meqno)}\writeqno#1} +\def\eqna#1{\xdef #1##1{(\the\secno.\the\meqno##1)}\writeqno{#1{}}} + +\def\eqn#1#2{\xdef #1{(\the\secno.\the\meqno)}% +$$#2\eqno(\the\secno.\the\meqno)$$\writeqno#1} + + +% footnotes +\global\newcount\ftno \global\ftno=1 +\def\foot#1{\footnote{$^{\the\ftno}$}{#1}\ % +\global\advance\ftno by1} + + +% \ref\label{text} +% generates a number, assigns it to \label, generates an entry. +% To list the refs on a separate page, \listrefs + +\global\newcount\refno \global\refno=1 +\newwrite\rfile + +\def\ref#1#2{[\the\refno]\nref#1{#2}} +\def\nref#1#2{\xdef#1{[\the\refno]}% +\ifnum\refno=1\immediate\openout\rfile=refs.tmp\fi% +\immediate\write\rfile{\noexpand\item{\noexpand#1\ }#2.}% +\global\advance\refno by1} + +\def\semi{;\hfil\noexpand\break} + +\def\listrefs{\vfill\eject\immediate\closeout\rfile%\parindent=20pt +\centerline{{\bf References}}\bigskip\frenchspacing% +\input refs.tmp\vfill\eject\nonfrenchspacing} + +% and finally, figures: +\def\fig#1#2{\item{Figure #1: }#2} + + +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +\def\inv{^{\raise.15ex\hbox{${\scriptscriptstyle -}$}\kern-.05em 1}} +%\def\inv{^{\hbox{-}1}} +\def\dup{^{\vphantom{1}}} +%\def\Dsl{\raise.15ex\hbox{$/$}\kern-.75em\hbox{$D$}} %capital D slash +\def\Dsl{\,\raise.15ex\hbox{$/$}\mkern-13.5mu D} %this one can be subscripted +\def\Psl{\raise.15ex\hbox{$/$}\kern-.57em\hbox{$\partial$}} +% matters of taste +%\def\tilde{\widetilde} +%\def\bar{\overline} +%\def\hat{\widehat} +% +\def\del{\partial} +%curly letters +\def\CA{\hbox{{$\cal A$}}} \def\CC{\hbox{{$\cal C$}}} +\def\CF{\hbox{{$\cal F$}}} \def\CG{\hbox{{$\cal G$}}} +\def\CL{\hbox{{$\cal L$}}} \def\CH{\hbox{{$\cal H$}}} +\def\CI{\hbox{{$\cal I$}}} \def\CU{\hbox{{$\cal U$}}} +\def\CB{\hbox{{$\cal B$}}} \def\CAG{\hbox{{$\cal A$/$\cal G$}}} +\def\CD{\hbox{{$\cal D$}}} \def\CT{\hbox{{$\cal T$}}} +\def\grad#1{\,\nabla\!_{{#1}}\,} +\def\ph{\varphi} +\def\psibar{\overline\psi} +\def\om#1#2{\omega^#1{}_#2} +\def\vev#1{\langle #1 \rangle} +\def\darr#1{\raise1.3ex\hbox{$\leftrightarrow$}\mkern-15.3mu #1} +\def\lie{\hbox{\it\$}} %pound sterling +\font\bigit=amti10 scaled \magstep1 +\def\biglie{\hbox{\bigit\$}} %pound sterling |