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}
|
