blob: f9f753fdd70029142ad00bfbc82729a863b59f50 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
% General TTF Fraktur family by Daniel TAUPIN, July 2002, fit for
% mfrak/fkt1* fonts.
% Global work done by Yannis Haralambous, Claus Tondering, and Daniel Taupin.
\DeclareRobustCommand\FrakturMfamily
{\not@math@alphabet\FrakturMfamily\mathrm
\fontfamily\FrakturDefault\selectfont}
\DeclareTextFontCommand{\texttms}{\FrakturMfamily}
\newcommand\FrakturDefault{mfrak}
\newcommand\FrakturRmDefault{mfrak}
\newcommand\SetFrakturDefault{\def\rmdefault{\FrakturDefault}%
\def\Scdefault{mtimc}
}
\def\SetCmDefault{\def\rmdefault{cmr}%
\def\Scdefault{cmsc}
}
\ifx\scaps\undefined
\newcommand\scaps[1]{\leavevmode\rlap{\scshape #1}\kern 0.02em\hbox{\scshape #1}}
\fi
\ifx\textpm\undefined\else\RequirePackage{textcmod}\fi
\SetFrakturDefault
\endinput
|