% MJSoft's Macro Collection -- Version 2.1 (11-05-96)
% (c) 1996 Martin Mares <mj@k332.feld.cvut.cz>
% Freely distributable as long as the author's copyright is left intact

% History:
% 2.0 (05-11-95)  Itemization and list system completely rewritten. Hopefully
%		  it's usable now.
% 2.1 (11-05-96)  Added \fixfont.
% 2.2 (15-02-97)  Modified \fixfont not to leave extra spaces.
%		  Added \relax at the end of \tt.
%		  Added a very limited support for picture drawing.

%FIXME%  Thick rules in tables

% We'll use internal macros of plain TeX

\catcode`@=11

% Page size definition
% --------------------

% Standard A4 dimensions are used. For different set of dimensions, redefine the
% \setpagesize macro to set everything you want in true units. Don't forget to
% call the macro immediately to refresh current setting. \magnification can be
% set prior to inclusion of these macros.

\def\setpagesize{\hsize=7truein\vsize=9.2truein}
\def\m@g{\mag\count@\setpagesize\dimen\footins8truein}
\setpagesize

% Spacing
% -------

\parindent=1.4cm
\parskip=3pt plus 1pt minus 1pt

% Font selection system
% ---------------------

% The heart of the font selection system is the \setfont macro which selects
% the current font according to the following settings:
% \fntprefix - font name prefix (usually cm or cs)
% \fntdesignsize - font design size in points (normally 10)
% \fnttokprefix - prefix of control sequence the font is assigned to ('ten')
% \fntmag - font magnification factor
% \fnttoksuffix - control sequence suffix ('A' to 'G' according to mag)
% \fntstyle - font name suffix determining font style ('bx', 'r' etc.)

\def\fntprefix{cs}
\def\fntdesignsize{10}
\def\fnttokprefix{ten}
\def\fntmag{\magstep0}
\def\fnttoksuffix{A}
\def\fntstyle{r}

\def\setfont{%
\toks0=\expandafter{\csname\fnttokprefix\fntstyle\fnttoksuffix\endcsname}%
\expandafter\ifx\the\toks0\relax%
%\immediate\write-1{aa \the\toks0=\fntprefix\fntstyle\fntdesignsize\space scaled \fntmag}%
\global\expandafter\font\the\toks0=\fntprefix\fntstyle\fntdesignsize\space scaled \fntmag%
\fi%
\edef\currentfont{\the\toks0}\currentfont}

\setfont  % Initialize the whole mechanism

\def\mathf@nt#1#2#3#4{%
\toks0=\expandafter{\csname#1#2\fnttoksuffix\endcsname}%
\expandafter\ifx\the\toks0\relax%
%\immediate\write-1{bb \the\toks0=#4#2#3\space scaled \fntmag}%
\global\expandafter\font\the\toks0=#4#2#3\space scaled \fntmag%
\fi%
\edef\m@@f{\the\toks0}}

\def\setmath{%
\mathf@nt{ten}{r}{10}{cs}\textfont0=\m@@f
\mathf@nt{seven}{r}{7}{cs}\scriptfont0=\m@@f
\mathf@nt{five}{r}{5}{cs}\scriptscriptfont0=\m@@f
\mathf@nt{ten}{mi}{10}{cm}\skewchar\m@@f='177\textfont1=\m@@f
\mathf@nt{seven}{mi}{7}{cm}\skewchar\m@@f='177\scriptfont1=\m@@f
\mathf@nt{five}{mi}{5}{cm}\skewchar\m@@f='177\scriptscriptfont1=\m@@f
\mathf@nt{ten}{sy}{10}{cm}\skewchar\m@@f='60\textfont2=\m@@f
\mathf@nt{seven}{sy}{7}{cm}\skewchar\m@@f='60\scriptfont2=\m@@f
\mathf@nt{five}{sy}{5}{cm}\skewchar\m@@f='60\scriptscriptfont2=\m@@f
\mathf@nt{ten}{ex}{10}{cm}\textfont3=\m@@f\scriptfont3=\m@@f\scriptscriptfont3=\m@@f
\mathf@nt{ten}{ti}{10}{cs}\textfont\itfam=\m@@f
\mathf@nt{ten}{sl}{10}{cs}\textfont\slfam=\m@@f
\mathf@nt{ten}{bx}{10}{cs}\textfont\bffam=\m@@f
\mathf@nt{ten}{tt}{10}{cs}\hyphenchar\m@@f=-1\textfont\ttfam=\m@@f
}

% Call \fixfont to fix lineskip, math fonts and the strut box

\def\fixfont{\setfont\setmath
\normalbaselineskip=1.2pt
\divide\normalbaselineskip by 100
\multiply\normalbaselineskip by \fntmag
\normallineskip=0.1pt
\multiply\normallineskip by \fntmag
\divide\normallineskip by 100
\normalbaselines
\dimen0=0.85pt
\multiply\dimen0 by \fntmag
\divide\dimen0 by 100
\dimen1=0.35pt
\multiply\dimen1 by \fntmag
\divide\dimen1 by 100
\setbox\strutbox=\hbox{\vrule height\dimen0 depth\dimen1 width\z@}}

% You can use the following macros to change the magnification:

\def\normal{\def\fntmag{\magstep0}\def\fnttoksuffix{A}\setfont}       % Normal size
\def\halflarge{\def\fntmag{\magstephalf}\def\fnttoksuffix{b}\setfont} % Magstephalf
\def\large{\def\fntmag{\magstep1}\def\fnttoksuffix{B}\setfont}        % Magstep 1
\def\Large{\def\fntmag{\magstep2}\def\fnttoksuffix{C}\setfont}
\def\big{\def\fntmag{\magstep3}\def\fnttoksuffix{D}\setfont}
\def\Big{\def\fntmag{\magstep4}\def\fnttoksuffix{E}\setfont}
\def\huge{\def\fntmag{\magstep5}\def\fnttoksuffix{F}\setfont}
\def\Huge{\def\fntmag{\magstep6}\def\fnttoksuffix{G}\setfont}         % Magstep 6
\def\fm#1{\def\fntmag{\magstep#1}\edef\fnttoksuffix{\ifcase #1 A\or B\or C%
\or D\or E\or F\or G\fi}\setfont}				      % User mag

% And to change the style:

\def\rm{\fam\z@\def\fntstyle{r}\setfont}	% Roman
\def\it{\fam\itfam\def\fntstyle{ti}\setfont}	% Italic
\def\bf{\fam\bffam\def\fntstyle{bx}\setfont}	% Boldface
\def\ss{\def\fntstyle{ss}\setfont}		% Sans serif
\def\tt{\fam\ttfam\def\fntstyle{tt}\setfont%
\hyphenchar\currentfont=-1\relax}		% Typewriter
\def\sc{\def\fntstyle{csc}\setfont}		% Caps and small caps
\def\ssi{\def\fntstyle{ssi}\setfont}		% Sans serif italic
\def\sl{\fam\slfam\def\fntstyle{sl}\setfont}	% Slanted
\def\ssbf{\def\fntstyle{ssbx}\setfont}		% Sans serif bold
\def\ssdc{\def\fntstyle{ssdc}\setfont}		% Sans serif demi condensed

% Itemization
% -----------

\newif\ifitem\itemtrue
\newbox\itembox
\newcount\itemcount

\def\interlistskip{\vskip 3pt plus 2pt minus 1pt}

\def\inititemize{\interlistskip\begingroup
\parskip=1pt plus 0.3pt minus 0.1pt
\ifitem\advance\leftskip by \parindent\parindent=0pt\itemfalse\fi
\advance\leftskip by 2.5em}

\def\itemize#1{\inititemize\setbox\itembox\llap{#1\hskip 0.4em}%
\let\:=\singleitem}

\def\singleitem{\par\leavevmode\copy\itembox}

\def\endlist{\interlistskip\endgroup}

\def\ibull{\raise0.2ex\hbox{$\bullet$}} % Signs frequently used for \itemize
\def\idot{\raise0.2ex\hbox{$\cdot$}}
\def\istar{\raise0.2ex\hbox{$\ast$}}

\def\numlist#1{\inititemize\itemcount=0\let\:=\numbereditem
\let\itemnumbering=#1}

\def\numbereditem{\par\leavevmode\advance\itemcount by 1
\llap{\itemnumbering\hskip 0.5em}}

\def\nnorm{\the\itemcount}
\def\ndotted{\the\itemcount.}
\def\nparen{\nnorm)}
\def\nroman{\romannumeral\itemcount}
\def\nromanp{\nroman)}
\def\nalpha{\count@=96\advance\count@ by\itemcount\char\count@)}
\def\nAlpha{\count@=64\advance\count@ by\itemcount\char\count@)}
\def\ngreek{$\ifcase\itemcount\or\alpha\or\beta\or\gamma\or\delta\or\epsilon\or
\zeta\or\eta\or\theta\or\iota\or\kappa\or\lambda\or\mu\or\nu\or\xi\or\pi\or\rho
\or\sigma\or\tau\or\upsilon\or\phi\or\chi\or\psi\or\omega\fi$)}

\def\itm{\:}

% Additional math functions
% -------------------------

\def\mod{\;{\rm mod}\;}
\def\div{\;{\rm div}\;}
\def\xor{\;{\rm xor}\;}

\def\mathbox#1{  % Typeset math formula enclosed in a box.
$$\vbox{
\hrule
\hbox{\vrule height 10pt depth 5pt\hskip3mm\hbox{$#1$}\hskip3mm\vrule }
\hrule
}$$}

% Italic typesetting	(automatic \/)
% ------------------

\def\I{\it\aftergroup\/}

% New \frenchspacing, which doesn't leave unwanted spaces in text.

\def\frenchsp@cing{\sfcode`\.\@m \sfcode`\?\@m \sfcode`\!\@m%
\sfcode`\:\@m \sfcode`\;\@m \sfcode`\,\@m}

% Typesetting of one verbatim word
% --------------------------------

\def\make@ther#1{\catcode`#1=12\relax}
\def\setverb@tim{\tt\frenchsp@cing\catcode`\`=13\catcode`\'=13\n@ligs%
\let\do=\make@ther\dospecials\obeyspaces}

{\catcode`'=13
\catcode``=13
\gdef\n@ligs{\def`{\relax\lq}\def'{\relax\rq}}}

{\obeyspaces
\global\chardef\sp@ce=32
\gdef\showspaces{\let =\sp@ce}
\global\let =\ }

\catcode124=\active % Make | active
\def\ttst@rt{\begingroup\setverb@tim\let|=\endgroup}
\let|=\ttst@rt

% Typesetting of verbatim text  (enclosed in { } )
% ----------------------------

\newskip\verbglue\newskip\verblineglue
\verbglue=3pt plus 1pt minus 0.3pt
\verblineglue=0pt plus 1.5pt

\newdimen\tabwidth
\newcount\tabsize
\tabsize=8
\newdimen\t@b

\newcount\vercnt
\def\v@rbend{\par\endgroup\vskip\verbglue}
\def\v@rbl{\ifnum\vercnt>0\{\fi\global\advance\vercnt by 1\relax}
\def\v@rbr{\ifnum\vercnt>1\}\else\v@rbend\fi\global\advance\vercnt by -1\relax}
\def\v@rbparams{\setverb@tim\parskip=\verblineglue\parindent=0pt\raggedbottom%
\rightskip\z@ plus1fil\pretolerance=10000\tolerance=10000\vercnt=0%
\catcode124=12\setupt@bs\vskip\verbglue\defb@x\obeylines}

\def\startb@x{\setbox0=\hbox\bgroup}
\def\defb@x{\def\par{\leavevmode\egroup\box0\endgraf}%
\everypar{\startb@x}}

{\catcode`\^^I=\active
\gdef\setupt@bs{\catcode`\^^I=\active
\setbox0=\hbox{\tt\ }\tabwidth=\wd0\multiply\tabwidth by \tabsize
\def^^I{\leavevmode\egroup\t@b=\wd0\divide\t@b by \tabwidth%
\multiply\t@b by \tabwidth%
\advance\t@b by \tabwidth\advance\t@b by -\wd0\box0\hbox to \t@b{}\startb@x}
}}

{
\catcode`[=1\catcode`]=2\catcode123=\active\catcode125=\active
\gdef\verbatim[\begingroup\v@rbparams\catcode123=\active\catcode125=\active%
\let{=\v@rbl\let}=\v@rbr\chardef\{=123\chardef\}=125%
]]

% Input file verbatim
% -------------------

\def\verbinput#1{\begingroup\v@rbparams\input #1\endgroup}

% Pictures
% --------
% Allowed direction vectors are 0<=x<=6, -6<=y<=6, GCD(x,y)=1

\def\initlines{\font\lif=line10}
\def\linechar#1#2{\ifnum #1=0 \hbox to 0pt{\hss\vrule height 10pt\hss}\else
\ifnum #2=0 \vbox to 0pt{\vss\hrule width 10pt\vss}\else
{\count255=#1\multiply\count255 by 8
\ifnum #2>0 \advance\count255 by #2 \advance\count255 by -9
\else\advance\count255 by -#2 \advance\count255 by 55\fi
\lif\char\count255}\fi\fi}
\def\picture#1#2#3{\initlines\medskip\centerline{\vbox to #2{\hbox to #1{#3\hss}\vss}}\medskip}
\def\place#1#2#3{{\setbox0=\hbox to 0pt{#3 \hss}\ht0=0pt\dp0=0pt
\hbox to 0pt{\hskip #1\lower #2\box0\hss}}}
\def\pl@celine{\ifnum \count255>0 \place{\dimen0}{\dimen1}{\copy0}\advance\dimen0 by \wd0
\advance\dimen1 by -\ht0 \advance\count255 by -1 \pl@celine\fi}
\def\placeline#1#2#3#4#5{{\setbox0=\hbox{\linechar{#3}{#4}}\ifnum #4<0\setbox0=\hbox to -\wd0{\hss\box0}\fi
\dimen0=#1\dimen1=#2\count255=#5\pl@celine}}
\def\cplace#1#2#3{\place{#1}{#2}{\hss #3}}

% Let's hide all internal macros

\catcode`@=12