type-imp-mathdesign.mkiv /size: 5600 b    last modification: 2020-07-01 14:35
1%D \module
2%D   [       file=type-imp-mathdesign,
3%D        version=2013.11.03,
4%D          title=\CONTEXT\ Typescript Macros,
5%D       subtitle=Mathdesign,
6%D         author=Hans Hagen,
7%D           date=\currentdate,
8%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9%C
10%C This module is part of the \CONTEXT\ macro||package and is
11%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12%C details.
13
14\starttypescriptcollection [mathdesign]
15
16    % Bistream Charter
17
18    \starttypescript [\s!serif] [charter]
19        \definefontsynonym [Charter-Regular]     [\s!file:bchr8a.afm]
20        \definefontsynonym [Charter-Italic]      [\s!file:bchri8a.afm]
21        \definefontsynonym [Charter-Bold]        [\s!file:bchb8a.afm]
22        \definefontsynonym [Charter-BoldItalic]  [\s!file:bchbi8a.afm]
23    \stoptypescript
24
25    \starttypescript [\s!serif] [charter] [\s!name]
26		\setups[\s!font:\s!fallback:\s!serif]
27        \definefontsynonym [\s!Serif]            [Charter-Regular]
28        \definefontsynonym [\s!SerifItalic]      [Charter-Italic]
29        \definefontsynonym [\s!SerifBold]        [Charter-Bold]
30        \definefontsynonym [\s!SerifBoldItalic]  [Charter-BoldItalic]
31    \stoptypescript
32
33    \starttypescript [\s!math] [mdbch,mathdesignch,charter] [\s!all]
34        \loadfontgoodies[mdbch-math]
35        \definefontsynonym [\s!MathRoman]     [mdbchrm@mdbch-rm]
36        \definefontsynonym [\s!MathRomanBold] [mdbchbf@mdbch-bf]
37    \stoptypescript
38
39    \starttypescript [mathdesignch,charter]
40        \definetypeface [\typescriptone] [\s!rm] [\s!serif] [charter] [\s!default]
41        \definetypeface [\typescriptone] [\s!ss] [\s!sans]  [modern]  [\s!default]
42        \definetypeface [\typescriptone] [\s!tt] [\s!mono]  [modern]  [\s!default]
43        \definetypeface [\typescriptone] [\s!mm] [\s!math]  [charter] [\s!default]
44        \quittypescriptscanning
45    \stoptypescript
46
47    % URW Garamond
48
49    \starttypescript [\s!serif] [garamond]
50        \definefontsynonym [Garamond-Regular]     [\s!file:ugmr8a.afm]
51        \definefontsynonym [Garamond-Italic]      [\s!file:ugmri8a.afm]
52        \definefontsynonym [Garamond-Bold]        [\s!file:bchb8a.afm]
53        \definefontsynonym [Garamond-BoldItalic]  [\s!file:ugmmi8a.afm]
54    \stoptypescript
55
56    \starttypescript [\s!serif] [garamond] [\s!name]
57		\setups[\s!font:\s!fallback:\s!serif]
58        \definefontsynonym [\s!Serif]            [Garamond-Regular]
59        \definefontsynonym [\s!SerifItalic]      [Garamond-Italic]
60        \definefontsynonym [\s!SerifBold]        [Garamond-Bold]
61        \definefontsynonym [\s!SerifBoldItalic]  [Garamond-BoldItalic]
62    \stoptypescript
63
64    \starttypescript [\s!math] [mdugm,mathdesigngm,garamond] [\s!all]
65        \loadfontgoodies[mdugm-math]
66        \definefontsynonym [\s!MathRoman]     [mdugmrm@mdugm-rm]
67        \definefontsynonym [\s!MathRomanBold] [mdugmbf@mdugm-bf]
68    \stoptypescript
69
70    \starttypescript [mathdesigngm,garamond]
71        \definetypeface [\typescriptone] [\s!rm] [\s!serif] [garamond] [\s!default]
72        \definetypeface [\typescriptone] [\s!ss] [\s!sans]  [modern]   [\s!default]
73        \definetypeface [\typescriptone] [\s!tt] [\s!mono]  [modern]   [\s!default]
74        \definetypeface [\typescriptone] [\s!mm] [\s!math]  [garamond] [\s!default]
75        \quittypescriptscanning
76    \stoptypescript
77
78    % Adobe Utopia
79
80    \starttypescript [\s!serif] [utopia]
81        \definefontsynonym [Utopia-Regular]     [\s!file:putr8a.afm]
82        \definefontsynonym [Utopia-Italic]      [\s!file:putri8a.afm]
83        \definefontsynonym [Utopia-Bold]        [\s!file:putb8a.afm]
84        \definefontsynonym [Utopia-BoldItalic]  [\s!file:putbi8a.afm]
85    \stoptypescript
86
87    \starttypescript [\s!serif] [utopia] [\s!name]
88		\setups[\s!font:\s!fallback:\s!serif]
89        \definefontsynonym [\s!Serif]            [Utopia-Regular]
90        \definefontsynonym [\s!SerifItalic]      [Utopia-Italic]
91        \definefontsynonym [\s!SerifBold]        [Utopia-Bold]
92        \definefontsynonym [\s!SerifBoldItalic]  [Utopia-BoldItalic]
93    \stoptypescript
94
95    \starttypescript [\s!math] [mdput,mathdesignut,utopia] [\s!all]
96        \loadfontgoodies[mdput-math]
97        \definefontsynonym [\s!MathRoman]     [mdputrm@mdput-rm]
98        \definefontsynonym [\s!MathRomanBold] [mdputbf@mdput-bf]
99    \stoptypescript
100
101    \starttypescript [mathdesignut,utopia]
102        \definetypeface [\typescriptone] [\s!rm] [\s!serif] [utopia] [\s!default]
103        \definetypeface [\typescriptone] [\s!ss] [\s!sans]  [modern] [\s!default]
104        \definetypeface [\typescriptone] [\s!tt] [\s!mono]  [modern] [\s!default]
105        \definetypeface [\typescriptone] [\s!mm] [\s!math]  [utopia] [\s!default]
106        \quittypescriptscanning
107    \stoptypescript
108
109    % Charter ITC Std
110
111    \starttypescript [\s!math] [mdici,mathdesignci] [\s!all]
112        \loadfontgoodies[mdici-math]
113        \definefontsynonym [\s!MathRoman]     [mdicirm@mdici-rm]
114        \definefontsynonym [\s!MathRomanBold] [mdicibf@mdici-bf]
115    \stoptypescript
116
117    % Adobe Garamond Pro
118
119    \starttypescript [\s!math] [mdpgd,mathdesigngd] [\s!all]
120        \loadfontgoodies[mdpgd-math]
121        \definefontsynonym [\s!MathRoman]     [mdpgdrm@mdpgd-rm]
122        \definefontsynonym [\s!MathRomanBold] [mdpgdbf@mdpgd-bf]
123    \stoptypescript
124
125    % Adobe Utopia Std
126
127    \starttypescript [\s!math] [mdpus,mathdesignus] [\s!all]
128        \loadfontgoodies[mdpus-math]
129        \definefontsynonym [\s!MathRoman]     [mdpusrm@mdpus-rm]
130        \definefontsynonym [\s!MathRomanBold] [mdpusbf@mdpus-bf]
131    \stoptypescript
132
133\stoptypescriptcollection
134