summaryrefslogtreecommitdiff
path: root/macros/plain/contrib/samples/artic0.tex
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /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.tex128
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