+++ /dev/null
-% MJ's TeX Macro Collection
-% (c) 1995--2004 Martin Mares <mj@ucw.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.
-% 2.3 (21-05-01) Modified \fixfont to use \fntdesignsize,
-% Added \fntmath(|s|ss)size and used it in \setmath
-% Added \twelvepoint
-% 2.4 (10-07-03) Added \bo
-% 2.5 (27-09-03) Added \verblocaldefs
-% 2.6 (21-03-04) Added \itemspacingrules
-% 2.7 (10-04-04) There were collisions between our \[bB]ig and the same
-% macro used in plain to implement \bigl et al. Now we rename
-% the original \[bB]ig to \plain[bB]ig and re-define \[bB]ig[lrm]
-% to call the renamed version instead.
-
-% We'll use internal macros of plain TeX
-
-\catcode`@=11
-
-\newcount\mjtempcount
-
-% 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
-
-% We want to override \[bB]ig in plain, so save the original definition
-% ---------------------------------------------------------------------
-
-\let\plainbig=\big
-\let\plainBig=\Big
-\def\bigl{\mathopen\plainbig}
-\def\bigm{\mathrel\plainbig}
-\def\bigr{\mathclose\plainbig}
-\def\Bigl{\mathopen\plainBig}
-\def\Bigm{\mathrel\plainBig}
-\def\Bigr{\mathclose\plainBig}
-
-% 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\fntmathsize{10}
-\def\fntmathtok{ten}
-\def\fntmathssize{7}
-\def\fntmathstok{seven}
-\def\fntmathsssize{5}
-\def\fntmathsstok{five}
-
-\def\setmath{%
-\mathf@nt{\fntmathtok}{r}{\fntmathsize}{cs}\textfont0=\m@@f
-\mathf@nt{\fntmathstok}{r}{\fntmathssize}{cs}\scriptfont0=\m@@f
-\mathf@nt{\fntmathsstok}{r}{\fntmathsssize}{cs}\scriptscriptfont0=\m@@f
-\mathf@nt{\fntmathtok}{mi}{\fntmathsize}{cm}\skewchar\m@@f='177\textfont1=\m@@f
-\mathf@nt{\fntmathstok}{mi}{\fntmathssize}{cm}\skewchar\m@@f='177\scriptfont1=\m@@f
-\mathf@nt{\fntmathsstok}{mi}{\fntmathsssize}{cm}\skewchar\m@@f='177\scriptscriptfont1=\m@@f
-\mathf@nt{\fntmathtok}{sy}{\fntmathsize}{cm}\skewchar\m@@f='60\textfont2=\m@@f
-\mathf@nt{\fntmathstok}{sy}{\fntmathssize}{cm}\skewchar\m@@f='60\scriptfont2=\m@@f
-\mathf@nt{\fntmathsstok}{sy}{\fntmathsssize}{cm}\skewchar\m@@f='60\scriptscriptfont2=\m@@f
-\mathf@nt{\fntmathtok}{ex}{\fntmathsize}{cm}\textfont3=\m@@f\scriptfont3=\m@@f\scriptscriptfont3=\m@@f
-\mathf@nt{\fntmathtok}{ti}{\fntmathsize}{cs}\textfont\itfam=\m@@f
-\mathf@nt{\fntmathtok}{sl}{\fntmathsize}{cs}\textfont\slfam=\m@@f
-\mathf@nt{\fntmathtok}{bx}{\fntmathsize}{cs}\textfont\bffam=\m@@f
-\mathf@nt{\fntmathtok}{tt}{\fntmathsize}{cs}\hyphenchar\m@@f=-1\textfont\ttfam=\m@@f
-}
-
-% Call \fixfont to fix lineskip, math fonts and the strut box
-
-\def\fixfont{\setfont\setmath
-\mjtempcount=\fntdesignsize
-\multiply\mjtempcount by \fntmag
-\normalbaselineskip=0.12pt
-\multiply\normalbaselineskip by \mjtempcount
-\divide\normalbaselineskip by 100
-\normallineskip=0.01pt
-\multiply\normallineskip by \mjtempcount
-\divide\normallineskip by 100
-\normalbaselines
-\dimen0=0.085pt
-\multiply\dimen0 by \mjtempcount
-\divide\dimen0 by 100
-\dimen1=0.035pt
-\multiply\dimen1 by \mjtempcount
-\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\bo{\fam\bffam\def\fntstyle{b}\setfont} % Bold
-\def\bf{\fam\bffam\def\fntstyle{bx}\setfont} % Bold extended
-\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
-
-% Switch to large font set
-
-\def\twelvepoint{
-\def\fntdesignsize{12}
-\def\fnttokprefix{twelve}
-\def\fntmathsize{12}\def\fntmathtok{twelve}
-\def\fntmathssize{8}\def\fntmathstok{eight}
-\def\fntmathsssize{6}\def\fntmathsstok{six}
-\fixfont
-}
-
-% Itemization
-% -----------
-
-\newif\ifitem\itemtrue
-\newbox\itembox
-\newcount\itemcount
-
-\def\interlistskip{\vskip 3pt plus 2pt minus 1pt}
-
-\def\itemspacingrules{\ifitem\advance\leftskip by \parindent\parindent=0pt\itemfalse\fi
-\advance\leftskip by 2.5em}
-
-\def\inititemize{\interlistskip\begingroup
-\parskip=1pt plus 0.3pt minus 0.1pt
-\itemspacingrules}
-
-\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.4em}}
-
-\def\nnorm{\the\itemcount}
-\def\ndotted{\nnorm.}
-\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
-\def\verblocaldefs{}
-
-\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\verblocaldefs
-]]
-
-% 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
projects / ads2.git / commitdiff