% mbmac.tex
% Makra pro sazbu Prehledu matematiky.
% Miroslav Broz (miroslav.broz@email.cz), Jan 2nd 2007

%% fonty

%\input amssym	% pro pripad slozitejsich symbolu z AMSTeXu

% URW grotesk for vectors
\font\tenve   = ugrot at 10pt
\font\eightve = ugrot at 8pt
\font\sevenve = ugrot at 7pt
\font\sixve   = ugrot at 6pt
\font\fiveve  = ugrot at 5pt

\newfam\vefam
\def\ve{\fam\vefam\tenve}
\textfont\vefam=\tenve \scriptfont\vefam=\sevenve \scriptscriptfont\vefam=\fiveve

% Silvio Levy's non-slanted greek letters
\font\tengr   = gr10 at 10pt
\font\ninegr  = gr10 at 9pt
\font\eightgr = gr10 at 8pt
\font\sevengr = gr7  at 7pt
\font\sixgr   = gr7  at 6pt
\font\fivegr  = gr5  at 5pt

\font\tenss   = csss10
\font\eightss = csss8
\font\sevenss = csss7
\font\sixss   = csss6
\font\fivess  = csss5

\newfam\ssfam
\def\ss{\fam\ssfam\tenss}
\textfont\ssfam=\tenss \scriptfont\ssfam=\sevenss \scriptscriptfont\ssfam=\fivess

%% matematicka makra

\mathcode`,="002C  % �esk� desetinn� ��rka v matematice

\def\d{{\rm d}}
\def\e{\mathop{\rm e}\nolimits}
\def\i{{\rm i}}
\def\tg{\mathop{\rm tg}\nolimits}
\def\cotg{\mathop{\rm cotg}\nolimits}
\def\tgh{\mathop{\rm tgh}\nolimits}
\def\cotgh{\mathop{\rm cotgh}\nolimits}
\def\arctg{\mathop{\rm arctg}\nolimits}
\def\arccotg{\mathop{\rm arccotg}\nolimits}
\def\sgn{\mathop{\rm sgn}\nolimits}
\def\promile{{\rm\char141}}
\def\sks{\!\cdot\!}

\def\vec#1{{\ve #1}}

\def\frc#1#2{%
  \mathchoice{%
    {\textstyle\mathstrut#1\over\textstyle\mathstrut#2}}%
    {{\textstyle\mathstrut#1\over\textstyle\mathstrut#2}}%
    {{\scriptstyle\mathstrut#1\over\scriptstyle\mathstrut#2}}%
    {{\mathstrut#1\over\mathstrut#2}%
  }%
}

\def\pigr{{\mathchoice{\hbox{\tengr p}}{\hbox{\tengr p}}{\hbox{\sevengr p}}{\hbox{\fivegr p}}}}
\def\mugr{{\mathchoice{\hbox{\tengr m}}{\hbox{\tengr m}}{\hbox{\sevengr m}}{\hbox{\fivegr m}}}}
\let\oldpi=\pi
\let\pi=\pigr

\let\myepsilon=\varepsilon
\let\mypi=\pi
\let\myrho=\varrho
\let\myphi=\varphi
\let\mykappa=\varkappa

%% ostatni makra

\def\subfig#1{#1)}

%% zmenseni pisma na 8pt

\font\eightrm=csr8  \font\sixrm=csr6  \font\fiverm=csr5
\font\eightmi=cmmi8 \font\sixmi=cmmi6 \font\fivemi=cmmi5
\font\eightsy=cmsy8 \font\sixsy=cmsy6 \font\fivesy=cmsy5
\font\eightex=cmex8

\font\eightit=csti8
\font\eighttt=cstt8
\font\eightbf=csbx8 \font\sixbf=csbx6 \font\fivebf=csbx5
\font\eightsc=cscsc10 at 8pt % cscsc8 is not Type1

\def\smallfonts{%
%
\def\rm{\fam0\eightrm}%
\textfont0=\eightrm \scriptfont0=\sixrm \scriptscriptfont0=\fiverm
\textfont1=\eightmi \scriptfont1=\sixmi \scriptscriptfont1=\fivemi
\textfont2=\eightsy \scriptfont2=\sixsy \scriptscriptfont2=\fivesy
\textfont3=\eightex \scriptfont3=\eightex \scriptscriptfont3=\eightex
%
\def\ve{\fam\vefam\eightve}%
\textfont\vefam=\eightve \scriptfont\vefam=\sixve \scriptscriptfont\vefam=\fiveve
%
\def\ss{\fam\ssfam\eightss}%
\textfont\ssfam=\eightss \scriptfont\ssfam=\sixss \scriptscriptfont\ssfam=\fivess
%
\def\bf{\fam\bffam\eightbf}%
\textfont\bffam=\eightbf \scriptfont\bffam=\sixbf \scriptscriptfont\bffam=\fivebf
\def\it{\fam\itfam\eightit}%
\textfont\itfam=\eightit
\def\tt{\fam\ttfam\eighttt}%
\textfont\ttfam=\eighttt
%
\let\sc=\eightsc
\let\em=\it
\rm
%
\def\pigr{\mathchoice{\hbox{\eightgr p}}{\hbox{\eightgr p}}{\hbox{\sixgr p}}{\hbox{\fivegr p}}}%
\def\mugr{\mathchoice{\hbox{\eightgr m}}{\hbox{\eightgr m}}{\hbox{\sixgr m}}{\hbox{\fivegr m}}}%
%
\baselineskip=10pt%
\def\strut{\vrule height 7pt depth 3pt width 0pt}%
%
}

\smallfonts
			
%% dalsi uzivatelska makra:

\def\mnozina#1{{\ss #1}}
\def\bod#1{{#1}}

\def\popisekos#1{{\scriptstyle #1}}
\def\pocatek{\bod{O}}

