summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/ofs/mtfn.tex
blob: 85c742c3d20fc21cc3f9a2f77d1bb19f2d0a4326 (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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
% This file declares the MathTimes fonts using OFS macros
% See ofsdoc.tex (OFS -- Olsak's Font System) for more details
% Remember that the MathTimes fonts is non free package.

\protectreading mtfn.tex % This is part of OFS package

\def\Timestext{Times}
\def\iftimes{\ifx\currentfamily\Timestext}

\def\loadMTnormalmath{%
  \loadmathfam 0[-rm/]%                Actual Roman font
  \iftimes
    \fontmessage { \space\space MathTimes used for MathItalics}%
    \defaultskewchar=45
    \loadmathfam 1[/mtmi]%             MathTimes italic font for variables
  \else
    \fontmessage { \space\space \currentfamily-it used for MathItalics}%
    \loadmathfam 1[-it/]%              Actual Italic font for variables
  \fi
  \defaultskewchar=48
  \loadmathfam 2[/mtsyn]%              Symbols from MathTimes
  \defaultskewchar=-1
  \noindexsize\loadmathfam 3[/mtex]%   Extra symbols from MathTimes
  \chardef\mtifam 4
  \defaultskewchar=45
  \loadmathfam \mtifam [/mtmi]%        MathTimes italic (for greek)
  \defaultskewchar=-1
  \chardef \itfam  5
  \loadmathfam \itfam [-it/]%          Actual Italic  
  \chardef \bffam  6
  \loadmathfam \bffam [-bf/]%          Actual Bold font
  \chardef \bifam  7
  \loadmathfam \bifam [-bi/]%          Actual Bold Italic font
  \chardef \gufam  8
  \loadmathfam \gufam [/mtgu]%         MathTimes greek unslanted
  \chardef \scrfam 9
  \loadmathfam \scrfam [/mtms]%        MathTimes script
  \lastfam =9
  \let\ttfam=\undefined
}
\def\loadMTboldmath{%
  \loadmathfam 0[-bf/]%                Actual Bold font
  \iftimes
     \fontmessage { \space\space MathTimes used for bold MathItalics}%
     \defaultskewchar=45
     \loadmathfam 1[/mtmib]%           MathTimes Bold-Italic font
  \else
     \fontmessage { \space\space \currentfamily-bi used for bold MathItalics}%
     \loadmathfam 1[-bi/]%             Actual Bold-Italic font     
  \fi
  \defaultskewchar=48
  \loadmathfam 2[/mtsyb]%              Bold symbols from MathTimes
  \defaultskewchar=-1
  \noindexsize\loadmathfam 3[/mtexb]%  Extra bold symbols from MathTimes
  \chardef\bffam=0
  \chardef \mtifam 4
  \defaultskewchar=45     
  \loadmathfam \mtifam [/mtmib]%       MathTimes bold italic (for greek)
  \defaultskewchar=-1
  \chardef\itfam 5  \chardef\bifam 5
  \loadmathfam \bifam [-bi/]%          Actual Bold Italic font
  \chardef \itfam  6
  \loadmathfam \bffam [-bf/]%          Actual Bold font
  \chardef \gufam  8
  \loadmathfam \gufam [/mtgub]%        MathTimes greek bold unslanted
  \chardef \scrfam 9
  \loadmathfam \scrfam [/mtmsb]%       MathTimes script bold
  \lastfam =9
  \let\ttfam=\undefined  
}
\def\setMTmathchars{\mathencread ofs-mt;}

\def\cal{\fam\scrfam}