macros.tex

   1 % TeX macros for typesetting my PhD thesis
   2 % (c) 2008 Martin Mares <mj@ucw.cz>
   3
   4 \input epsf.tex
   5 \input btxmac.tex
   6
   7 \catcode`@=11
   8
   9 %%% Basic parameters %%%
  10
  11 % A4 with 1in margins, leaving 20pt for page numbering at the bottom
  12 \hsize=159mm
  13 \vsize=246mm
  14 \advance\vsize by -20pt
  15 \parindent=0.8cm
  16 \parskip=3pt plus 1pt minus 1pt
  17
  18 \smallskipamount=4pt plus 1.2pt minus 1.2pt
  19 \medskipamount=7pt plus 2.5pt minus 2pt
  20 \bigskipamount=15pt plus 5pt minus 4pt
  21
  22 \abovedisplayskip=15pt plus 4pt minus 10pt
  23 \abovedisplayshortskip=0pt plus 3pt
  24 \belowdisplayskip=15pt plus 4pt minus 10pt
  25 \belowdisplayshortskip=8.5pt plus 3.5pt minus 4.5pt
  26
  27 %%% Miscellanea %%%
  28
  29 \def\em#1{{\it #1\/}}
  30 \def\df#1{{\it #1\/}}   % when we define something
  31 \def\O{{\cal O}}
  32 \def\<#1>{\leavevmode\hbox{\it #1\/}}
  33 \let\>=\noindent
  34 \def\qed{{\parfillskip=0pt\allowbreak\hfill\nobreak $\spadesuit$\par}}
  35 \def\FIXME#1{\>{\bo FIXME:} #1}
  36
  37 % Footnotes
  38 \newcount\footcnt
  39 \footcnt=0
  40 \def\foot#1{\global\advance\footcnt by 1{\parindent=0.25in\parskip=0pt\footnote{$^{\the\footcnt}$}{#1}}}
  41
  42 %%% Fonts %%%
  43
  44 \font\twelverm=cmr12
  45 \font\twelveit=cmti12
  46 \font\twelvebf=cmbx12
  47
  48 %\font\twelverm=pplr8z at 12pt
  49 %\font\twelveit=pplri8z at 12pt
  50 %\font\twelvebf=pplb8z at 12pt
  51
  52 \font\twelvesl=cmsl12
  53 \font\twelveb=cmb12
  54 \font\twelvesc=cmcsc12
  55
  56 \def\mathf@nt#1#2#3#4{%
  57 \toks0=\expandafter{\csname#1#2\endcsname}%
  58 \expandafter\ifx\the\toks0\relax%
  59 %\immediate\write-1{bb \the\toks0=#4#2#3}%
  60 \global\expandafter\font\the\toks0=#4#2#3%
  61 \fi%
  62 \edef\m@@f{\the\toks0}}
  63
  64 \def\fntmathsize{12}
  65 \def\fntmathtok{twelve}
  66 \def\fntmathssize{8}
  67 \def\fntmathstok{eight}
  68 \def\fntmathsssize{6}
  69 \def\fntmathsstok{six}
  70
  71 \mathf@nt{\fntmathtok}{r}{\fntmathsize}{cm}\textfont0=\m@@f
  72 \mathf@nt{\fntmathstok}{r}{\fntmathssize}{cm}\scriptfont0=\m@@f
  73 \mathf@nt{\fntmathsstok}{r}{\fntmathsssize}{cm}\scriptscriptfont0=\m@@f
  74 \mathf@nt{\fntmathtok}{mi}{\fntmathsize}{cm}\skewchar\m@@f='177\textfont1=\m@@f
  75 \mathf@nt{\fntmathstok}{mi}{\fntmathssize}{cm}\skewchar\m@@f='177\scriptfont1=\m@@f
  76 \mathf@nt{\fntmathsstok}{mi}{\fntmathsssize}{cm}\skewchar\m@@f='177\scriptscriptfont1=\m@@f
  77 \mathf@nt{\fntmathtok}{sy}{\fntmathsize}{cm}\skewchar\m@@f='60\textfont2=\m@@f
  78 \mathf@nt{\fntmathstok}{sy}{\fntmathssize}{cm}\skewchar\m@@f='60\scriptfont2=\m@@f
  79 \mathf@nt{\fntmathsstok}{sy}{\fntmathsssize}{cm}\skewchar\m@@f='60\scriptscriptfont2=\m@@f
  80 \mathf@nt{\fntmathtok}{ex}{\fntmathsize}{cm}\textfont3=\m@@f\scriptfont3=\m@@f\scriptscriptfont3=\m@@f
  81 \mathf@nt{\fntmathtok}{ti}{\fntmathsize}{cm}\textfont\itfam=\m@@f
  82 \mathf@nt{\fntmathtok}{sl}{\fntmathsize}{cm}\textfont\slfam=\m@@f
  83 \mathf@nt{\fntmathtok}{bx}{\fntmathsize}{cm}\textfont\bffam=\m@@f
  84 \mathf@nt{\fntmathtok}{tt}{\fntmathsize}{cm}\hyphenchar\m@@f=-1\textfont\ttfam=\m@@f
  85
  86 % Blackboard bold font
  87 \newfam\bbfam
  88 \font\bbtwelve=bbm12
  89 \font\bbeight=bbm8
  90 \font\bbsix=bbm6
  91 \textfont\bbfam=\bbtwelve
  92 \scriptfont\bbfam=\bbeight
  93 \scriptscriptfont\bbfam=\bbsix
  94 \def\bb{\bbtwelve\fam\bbfam}
  95
  96 % Font switches
  97 \def\rm{\fam\z@\twelverm}
  98 \def\it{\fam\itfam\twelveit}
  99 \def\bo{\fam\bffam\twelveb}
 100 \def\bf{\fam\bffam\twelvebf}
 101 \def\tt{\fam\ttfam\twelvett\hyphenchar\twelvett=-1\relax}
 102 \def\sc{\twelvesc}
 103 \def\sl{\fam\slfam\twelvesl}
 104
 105 % Switch to 12pt baselines
 106 \rm
 107 \baselineskip=14.4pt
 108 \lineskip=1.2pt
 109 \setbox\strutbox=\hbox{\vrule height 10.2pt depth 4.2pt width 0pt}
 110
 111 % Other fonts
 112 \font\chapfont=csssdc17 scaled \magstep1
 113 \font\secfont=csb14
 114
 115 %%% FIXME
 116 \footline={\hss\twelverm\folio\hss}
 117
 118 %%% Enumerated lists %%%
 119
 120 \newif\ifitem\itemtrue
 121 \newbox\itembox
 122 \newcount\itemcount
 123
 124 \def\interlistskip{\vskip 3pt plus 2pt minus 1pt}
 125
 126 \def\itemspacingrules{\ifitem\advance\leftskip by \parindent\parindent=0pt\itemfalse\else
 127 \advance\leftskip by 2.5em\fi\rightskip=\leftskip}
 128
 129 \def\inititemize{\interlistskip\begingroup
 130 \parskip=1pt plus 0.3pt minus 0.1pt
 131 \itemspacingrules}
 132
 133 \def\itemize#1{\inititemize\setbox\itembox\llap{#1\hskip 0.4em}%
 134 \let\:=\singleitem}
 135
 136 \def\singleitem{\par\leavevmode\copy\itembox}
 137
 138 \def\endlist{\interlistskip\endgroup}
 139
 140 \def\ibull{\raise0.2ex\hbox{$\bullet$}} % Signs frequently used for \itemize
 141 \def\idot{\raise0.2ex\hbox{$\cdot$}}
 142 \def\istar{\raise0.2ex\hbox{$\ast$}}
 143
 144 \def\numlist#1{\inititemize\itemcount=0\let\:=\numbereditem
 145 \let\itemnumbering=#1}
 146
 147 \def\numbereditem{\par\leavevmode\advance\itemcount by 1
 148 \llap{\itemnumbering\hskip 0.4em}}
 149
 150 \def\nnorm{\the\itemcount}
 151 \def\ndotted{\nnorm.}
 152 \def\nparen{\nnorm)}
 153 \def\nroman{\romannumeral\itemcount}
 154 \def\nromanp{\nroman)}
 155 \def\nalpha{\count@=96\advance\count@ by\itemcount\char\count@)}
 156 \def\nAlpha{\count@=64\advance\count@ by\itemcount\char\count@)}
 157 \def\ngreek{$\ifcase\itemcount\or\alpha\or\beta\or\gamma\or\delta\or\epsilon\or
 158 \zeta\or\eta\or\theta\or\iota\or\kappa\or\lambda\or\mu\or\nu\or\xi\or\pi\or\rho
 159 \or\sigma\or\tau\or\upsilon\or\phi\or\chi\or\psi\or\omega\fi$)}
 160
 161 % New \frenchspacing, which doesn't leave unwanted spaces in text.
 162 \def\frenchsp@cing{\sfcode`\.\@m \sfcode`\?\@m \sfcode`\!\@m%
 163 \sfcode`\:\@m \sfcode`\;\@m \sfcode`\,\@m}
 164
 165 %%% Local verbatim mode %%%
 166
 167 \def\make@ther#1{\catcode`#1=12\relax}
 168 \def\setverb@tim{\tt\frenchsp@cing\catcode`\`=13\catcode`\'=13\n@ligs%
 169 \let\do=\make@ther\dospecials\obeyspaces}
 170
 171 {\catcode`'=13
 172 \catcode``=13
 173 \gdef\n@ligs{\def`{\relax\lq}\def'{\relax\rq}}}
 174
 175 {\obeyspaces
 176 \global\chardef\sp@ce=32
 177 \gdef\showspaces{\let =\sp@ce}
 178 \global\let =\ }
 179
 180 \catcode124=\active % Make | active
 181 \def\ttst@rt{\begingroup\setverb@tim\let|=\endgroup}
 182 \let|=\ttst@rt
 183
 184 %%% Verbatim mode for text in { } %%%
 185
 186 \newskip\verbglue\newskip\verblineglue
 187 \verbglue=3pt plus 1pt minus 0.3pt
 188 \verblineglue=0pt plus 1.5pt
 189 \def\verblocaldefs{}
 190
 191 \newdimen\tabwidth
 192 \newcount\tabsize
 193 \tabsize=8
 194 \newdimen\t@b
 195
 196 \newcount\vercnt
 197 \def\v@rbend{\par\endgroup\vskip\verbglue}
 198 \def\v@rbl{\ifnum\vercnt>0\{\fi\global\advance\vercnt by 1\relax}
 199 \def\v@rbr{\ifnum\vercnt>1\}\else\v@rbend\fi\global\advance\vercnt by -1\relax}
 200 \def\v@rbparams{\setverb@tim\parskip=\verblineglue\parindent=0pt\raggedbottom%
 201 \rightskip\z@ plus1fil\pretolerance=10000\tolerance=10000\vercnt=0%
 202 \catcode124=12\setupt@bs\vskip\verbglue\defb@x\obeylines}
 203
 204 \def\startb@x{\setbox0=\hbox\bgroup}
 205 \def\defb@x{\def\par{\leavevmode\egroup\box0\endgraf}%
 206 \everypar{\startb@x}}
 207
 208 {\catcode`\^^I=\active
 209 \gdef\setupt@bs{\catcode`\^^I=\active
 210 \setbox0=\hbox{\tt\ }\tabwidth=\wd0\multiply\tabwidth by \tabsize
 211 \def^^I{\leavevmode\egroup\t@b=\wd0\divide\t@b by \tabwidth%
 212 \multiply\t@b by \tabwidth%
 213 \advance\t@b by \tabwidth\advance\t@b by -\wd0\box0\hbox to \t@b{}\startb@x}
 214 }}
 215
 216 {
 217 \catcode`[=1\catcode`]=2\catcode123=\active\catcode125=\active
 218 \gdef\verbatim[\begingroup\v@rbparams\catcode123=\active\catcode125=\active%
 219 \let{=\v@rbl\let}=\v@rbr\chardef\{=123\chardef\}=125\verblocaldefs
 220 ]]
 221
 222 \def\verbinput#1{\begingroup\v@rbparams\input #1\endgroup}
 223
 224 %%% Algorithms %%%
 225
 226 %       \algo{jmeno algoritmu}
 227 %       \algin popis vstupu
 228 %       \:krok
 229 %       \:krok
 230 %       \::vnoreny krok
 231 %       \algout popis vystupu
 232 %       \endalgo
 233
 234 \def\algo#1{
 235 \interlistskip
 236 \begingroup
 237 \let\:=\algoitem
 238 \parskip=1pt plus 1pt minus 0.3pt
 239 \rightskip=2em
 240 \itemcount=0
 241 {\bo Algoritmus\/} {\sc #1}
 242 }
 243 \def\endalgo{\interlistskip\endgroup}
 244 \def\algopar{\par
 245 \parindent=2em
 246 \hangindent=4em
 247 \hangafter=1
 248 \leavevmode
 249 }
 250 \def\algoitem{
 251 \ifnum\itemcount=0\smallskip\fi
 252 \algopar\advance\itemcount by 1
 253 \hbox to 2em{\hss \the\itemcount. }%
 254 \futurelet\next\algoitemh}
 255 \def\algoitemh{\ifx\next:\let\next=\algohang\else\let\next=\relax\fi\next}
 256 \def\algohang:{\advance\hangindent by 2em \hskip 2em\futurelet\next\algoitemh}
 257 \def\algin{\par{\it Vstup:\/} }
 258 \def\algout{\par{\it Výstup:\/} }
 259
 260 %%% Constructs used in algorithms %%%
 261
 262 \def\={\leftarrow}
 263 \def\cmt#1{~~{\sl (#1)}}
 264
 265 %%% Chapters, sections and proclamations %%%
 266
 267 \newcount\chapcount
 268 \newcount\seccount
 269 \newcount\thmcount
 270 \chapcount=0
 271 \seccount=0
 272 \thmcount=0
 273
 274 \def\chapter#1{\vfill\eject
 275 \advance\chapcount by 1
 276 \seccount=0
 277 \thmcount=0
 278 \leftline{\chapfont\the\chapcount. #1}
 279 \bigskip
 280 }
 281
 282 \def\section#1{\bigskip
 283 \advance\seccount by 1
 284 \thmcount=0
 285 \leftline{\secfont\the\chapcount.\the\seccount. #1}
 286 \medskip
 287 }
 288
 289 \def\proclaim#1{\advance\thmcount by 1
 290 \noindent {\bo #1 \the\chapcount.\the\seccount.\the\thmcount.\enspace}}
 291
 292 \def\theorem{\proclaim{Theorem}}
 293 \def\lemma{\proclaim{Lemma}}
 294 \def\defn{\proclaim{Definition}}
 295 \def\problem{\proclaim{Problem}}
 296 \def\obs{\proclaim{Observation}}
 297
 298 \def\lemman#1{\proclaim{Lemma}{\sl (#1)\/}}
 299
 300 \def\proof{\noindent {\sl Proof.} }
 301
 302 %%% References %%%
 303
 304 \newwrite\ids
 305 \def\writeid#1#2{\immediate\write\ids{\string\def\expandafter\string\csname id#1\endcsname{#2}}}
 306
 307 \immediate\openin\ids=\jobname.aux
 308 \ifeof\ids
 309 \else
 310 \input \jobname.aux
 311 \fi
 312 \immediate\closein\ids
 313 \immediate\openout\ids=\jobname.aux
 314
 315 \def\ref#1{\expandafter\ifx\csname id#1\endcsname\relax
 316 {\bo ??}%
 317 \immediate\write16{*** Warning: Reference #1 undefined ***}%
 318 \else
 319 \csname id#1\endcsname
 320 \fi
 321 }
 322
 323 \def\chapid#1{\writeid{ch#1}{\the\chapcount}}
 324 \def\secid#1{\writeid{sec#1}{\the\chapcount.\the\seccount}}
 325 \def\thmid#1{\writeid{thm#1}{\the\chapcount.\the\seccount.\the\thmcount}}
 326
 327 \def\chapref#1{\ref{ch#1}}
 328 \def\secref#1{\ref{sec#1}}
 329 \def\thmref#1{\ref{thm#1}}
 330
 331 %%% Bibliography %%%
 332
 333 %\bibliographystyle{abbrv}
 334 \bibliographystyle{alpha}
 335 \def\dumpbib{
 336   \def\bblhook{\parskip=2pt plus 1pt minus 0.5pt}
 337   \bibliography{biblio}
 338 }
 339
 340 %%% Stand-alone chapters %%%
 341
 342 \def\endpart{
 343   \section{Bibliography}
 344   \dumpbib
 345   \vfill\supereject\end
 346 }
 347
 348 %%% The End %%%
 349
 350 \catcode`@=12