summaryrefslogtreecommitdiff
path: root/fonts/t1-fraktur/mf-frak.sty
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