%%% File: OutForm.tex
%%% From `Mathematical TeX by Example' by Arvind Borde
%%% (c) 1993, Academic Press.
%%% Contents: The format commands for the `output' pages (i.e., right hand)
%%% of the Examples in Chapter 2 of `Mathematical TeX by Example'.
\input StdPage % The file containing the standard MTBE page specifications.
%----------------------------------------------------------------------------
%%% TYPEFACE NAMES:
% Note: most typeface names used in this file have been defined in `StdPage'.
\font\sevenit=cmti7 % For book titles in the margin.
\font\ExampleTitleFont=cmbx12 scaled\magstep1 % For Example Titles.
\font\ExampleTypeFont=cmsl12 scaled \magstep2 % For Example Types.
\font\ExampleTypeCal=cmsy10 scaled \magstep3 % For `Cal' in Example Types.
\font\SmExampleTypeCal=cmsy7 scaled \magstep3 % For scriptsize Cal.
\font\BigEightsy=cmsy8 scaled \magstep3 % For small Cal.
\def\ExampleTypeFonts{\textfont2=\ExampleTypeCal
\scriptfont2=\SmExampleTypeCal
\let\Eightsy\BigEightsy \ExampleTypeFont}
%----------------------------------------------------------------------------
%%% MISCELLANEOUS:
\def\EnoughAlready{$$\vdots$$ \EndPage}
%---------------------------------------------------------------------------_%
%%% EXAMPLE COMMANDS:
\newtoks\Author % To store the name of the author of the source.
\newtoks\BookTitle % To store the name of the book/journal.
\newtoks\PublishInfo % To store publisher information.
\newtoks\CopyrightDate % To store information about the copyright date.
\newtoks\Example % To store information about the example.
\newtoks\ExampleType % To store information about the example type.
\newcount\ExampleNumber % For the example number.
\newcount\StartExample % Start-of-example indicator.
\newdimen\LMarginOdd % Left margin on odd-numbered pages.
\newdimen\LMarginEven % Left margin on even-numbered pages.
\outer\def\NewExample{\hsize\StdHsize \vsize\StdVsize \parindent\indsize
\StartExample=1
\LMarginOdd=.625in \LMarginEven=.625in \voffset0in
\headline={\hfil}\global\advance\ExampleNumber by1
\leftline{\ExampleTypeFonts\the\ExampleType}
\vskip2pc\relax
\message{+\the\ExampleNumber+}
\setbox0=\hbox{\ExampleTitleFont 1}\dimen0=-\ht0
\divide\dimen0 by2 \advance\dimen0 by.75pt
\dimen1=-\dimen0 \advance\dimen1 by1pt
\centerline{\vrule width8pc height\dimen1 depth\dimen0
{\ExampleTitleFont \ \ Example \the\ExampleNumber\ \ }\vrule
width8pc height\dimen1 depth\dimen0 }
\Example={\the\ExampleNumber}%
\vskip1pc\relax \noindent
From {\tenit \the\BookTitle}
\edef\Test{\the\Author}%
\ifx\Test\empty \else \EndLine
{\spaceskip.3333em\relax
\LCSmCaps{\the\Author}} \fi
\edef\Test{\the\PublishInfo}%
\ifx\Test\empty \else \EndLine {\tenrm\the\PublishInfo}\fi
\edef\Test{\the\CopyrightDate}%
\ifx\Test\empty \else\unskip{\tenrm,\ \the\CopyrightDate}\fi
\vskip1pc\relax \noindent \ignorespaces}
\def\ShortExample <#1>{\medbreak
\line{\vrule width.4pt depth2.6pt height.4pt\hrulefill
\vrule width.4pt depth2.6pt height.4pt}\nointerlineskip
\leftline{\Eightbf (Page #1)}
\nobreak}
\def\EndShortExample{\nobreak\vskip-1pt
\line{\vrule width.4pt depth0pt height3pt\hrulefill
\vrule width.4pt depth0pt height3pt}\medbreak}
\def\NegVspace{\ifvmode\nointerlineskip\fi
\nobreak\vskip-3pt\relax} % Reduces space.
%---------------------------------------------------------------------------_%
%%% TOWARDS THE OUTPUT ROUTINE:
\newdimen\RMargin % The right margin size.
\newdimen\BotMargin % The bottom margin size.
\newcount\ChapIndicator % For compatibility with BookForm.tex
\def\Issue{}
\def\Volume #1,#2(#3){\def\Issue{{\fivebf #1},#2(#3)}}
\def\lcopyr{\leavevmode\hbox{{\fivesy\char'15}\llap{\fiverm c\kern.3em }}}
\def\StandardPage{\vbox{\makeheadline\pagebody\makefootline
\advance\BotMargin by-24pt\vglue\BotMargin}}
\def\RightMarginStuff{\vbox{\parskip0pt \hsize.75in \advance\hsize by-.4pt
\parindent0pt \hbadness5000 \raggedleft \pretolerance10000
\vbox to 0pt{\vskip-.5in
\rightline{\TopofRMarg{\MarginFont
Example~\:\the\Example}}\vss}
\dimen0=\vsize \advance\dimen0 by \BotMargin
\advance\dimen0 by\voffset
\nointerlineskip
\vbox to \dimen0{\null \vskip.25in
\baselineskip 6 pt \fiverm Source:
\smallskip
{\sevenit \baselineskip8pt \the\BookTitle
\smallskip }
\edef\Test{\the\Author}
{\ifx\Test\empty \removelastskip \else
\spaceskip=.1667em\relax
\let\ZZ=\& \def\&{\:\ZZ\:}
\uppercase\expandafter{\the\Author} \fi
\smallskip}
\edef\Test{\the\CopyrightDate}
\ifx\Test\empty \else
\lcopyr\ \the\CopyrightDate\break \fi
\edef\Test{\the\PublishInfo}
\ifx\Test\empty \Issue \else
\the\PublishInfo \fi
\advance\dimen0 by-\StdVsize
\vskip\dimen0 \vfill}}}
\def\AugmentedPage{\vbox{\ifnum\StartExample=1
\headline={\hfil}\footline={\hfil\SmallPnoFont\Folio\hfil}%
\def\makefootline{\baselineskip36pt \line{\the\footline}}%
\StandardPage
\else
\ifnum\ChapIndicator=1 \else\footline={\hfil}\fi
\ifodd\pageno \dimen0=-\LMarginOdd \else \dimen0=-\LMarginEven \fi
\advance\dimen0 by6.625in \hbox to \dimen0
{\StandardPage \hskip\RMargin \BotCornerVrule \hss
\RightMarginStuff }\nointerlineskip
{\dimen0=\hsize \advance\dimen0 by\RMargin \advance\dimen0 by.4pt
\hbox to \dimen0{\hfil \BotCornerHrule}}
\fi}\global\StartExample=0 }% _%
\def\MarkPageCorner{\def\BotCornerVrule{\vrule height36pt width.4pt depth0pt}
\def\BotCornerHrule{\vrule width36.4pt height.4pt depth0pt}}
\def\DontMarkPageCorner{\def\BotCornerVrule{\hskip-\RMargin}
\def\BotCornerHrule{}}
% Here comes a small cheat:
\def\plainoutput{\ifodd\pageno \RMargin=\LMarginEven \else
\RMargin=\LMarginOdd \fi % Assuming mirror symmetry.
\shipout\AugmentedPage
\advancepageno \global\advance\RealPno by2
\ifnum\outputpenalty>-20000 \else\dosupereject\fi}%
% Defaults:
\DontMarkPageCorner
\BotMargin=0pt
%----------------------------------------------------------------------------
\catcode`\@=14 % Need this in places.
\endinput