type-imp-lucida-typeone.mkiv /size: 6710 b    last modification: 2020-07-01 14:35
1%D \module
2%D   [       file=type-imp-lucida-typeone,
3%D        version=2010.06.21,
4%D          title=\CONTEXT\ Typescript Macros,
5%D       subtitle=Lucida,
6%D         author=Mojca Miklavec \& 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\writestatus{fonts}{Lucida Type 1 support can be broken due to wrong files!}
15
16\starttypescriptcollection[lucida-typeone]
17
18    \starttypescript [\s!serif] [lucida]
19        \definefontsynonym [LucidaBright]               [\s!name:LucidaBright]
20        \definefontsynonym [LucidaBright-Demi]          [\s!name:LucidaBright-Demi]
21        \definefontsynonym [LucidaBright-Italic]        [\s!name:LucidaBright-Italic]
22        \definefontsynonym [LucidaBright-DemiItalic]    [\s!name:LucidaBright-DemiItalic]
23        \definefontsynonym [LucidaBright-Oblique]       [\s!name:LucidaBright-Oblique]
24        \definefontsynonym [LucidaBrightSmallcaps]      [\s!name:LucidaBrightSmallcaps]
25        \definefontsynonym [LucidaBrightSmallcaps-Demi] [\s!name:LucidaBrightSmallcaps-Demi]
26    \stoptypescript
27
28    \starttypescript [\s!sans] [lucida]
29        \definefontsynonym [LucidaSans]            [\s!name:LucidaSans]
30        \definefontsynonym [LucidaSans-Demi]       [\s!name:LucidaSans-Demi]
31        \definefontsynonym [LucidaSans-Bold]       [\s!name:LucidaSans-Bold]
32        \definefontsynonym [LucidaSans-Italic]     [\s!name:LucidaSans-Italic]
33        \definefontsynonym [LucidaSans-DemiItalic] [\s!name:LucidaSans-DemiItalic]
34        \definefontsynonym [LucidaSans-BoldItalic] [\s!name:LucidaSans-BoldItalic]
35    \stoptypescript
36
37    \starttypescript [\s!mono] [lucida]
38        \definefontsynonym [LucidaTypewriter]            [\s!name:LucidaTypewriter]
39        \definefontsynonym [LucidaTypewriterBold]        [\s!name:LucidaTypewriterBold]
40        \definefontsynonym [LucidaTypewriterOblique]     [\s!name:LucidaTypewriterOblique]
41        \definefontsynonym [LucidaTypewriterBoldOblique] [\s!name:LucidaTypewriterBoldOblique]
42    \stoptypescript
43
44    \starttypescript [\s!mono] [lucida]
45        \definefontsynonym [LucidaSans-Typewriter]            [\s!name:LucidaSans-Typewriter]
46        \definefontsynonym [LucidaSans-TypewriterBold]        [\s!name:LucidaSans-TypewriterBold]
47        \definefontsynonym [LucidaSans-TypewriterOblique]     [\s!name:LucidaSans-TypewriterOblique]
48        \definefontsynonym [LucidaSans-TypewriterBoldOblique] [\s!name:LucidaSans-TypewriterBoldOblique]
49    \stoptypescript
50
51    \starttypescript [calligraphy] [lucida]
52        \definefontsynonym [LucidaCalligraphy-Italic] [\s!name:LucidaCalligraphy-Italic]
53    \stoptypescript
54
55    \starttypescript [casual] [lucida]
56        \definefontsynonym [LucidaCasual]        [\s!name:LucidaCasual]
57        \definefontsynonym [LucidaCasual-Italic] [\s!name:LucidaCasual-Italic]
58    \stoptypescript
59
60    \starttypescript [handwriting] [lucida]
61        \definefontsynonym [LucidaHandwriting-Italic] [\s!name:LucidaHandwriting-Italic]
62    \stoptypescript
63
64    \starttypescript [fax] [lucida]
65        \definefontsynonym [LucidaFax]            [\s!name:LucidaFax]
66        \definefontsynonym [LucidaFax-Demi]       [\s!name:LucidaFax-Demi]
67        \definefontsynonym [LucidaFax-Italic]     [\s!name:LucidaFax-Italic]
68        \definefontsynonym [LucidaFax-DemiItalic] [\s!name:LucidaFax-DemiItalic]
69    \stoptypescript
70
71    \starttypescript [blackletter] [lucida]
72        \definefontsynonym [LucidaBlackletter] [\s!name:LucidaBlackletter]
73    \stoptypescript
74
75    \starttypescript [\s!math] [lucida]
76        \loadfontgoodies[lucida-typeone-math]
77        \definefontsynonym[\s!MathRoman][lucidamath@lucida-math]
78    \stoptypescript
79
80    \starttypescript [\s!serif] [lucida] [\s!name]
81        \definefontsynonym [\s!Serif]            [LucidaBright]
82        \definefontsynonym [\s!SerifBold]        [LucidaBright-Demi]
83        \definefontsynonym [\s!SerifItalic]      [LucidaBright-Italic]
84        \definefontsynonym [\s!SerifBoldItalic]  [LucidaBright-DemiItalic]
85        \definefontsynonym [\s!SerifSlanted]     [LucidaBright-Oblique]
86        \definefontsynonym [\s!SerifBoldSlanted] [LucidaBright-DemiItalic]
87        \definefontsynonym [SerifCaps]           [LucidaBrightSmallcaps]
88        \definefontsynonym [SerifBoldCaps]       [LucidaBrightSmallcaps-Demi]
89    \stoptypescript
90
91    % Lucida Bright Sans
92
93    \starttypescript [\s!sans] [lucida] [\s!name]
94        \definefontsynonym [\s!Sans]            [LucidaSans]
95        \definefontsynonym [\s!SansBold]        [LucidaSans-Demi]
96        \definefontsynonym [\s!SansItalic]      [LucidaSans-Italic]
97        \definefontsynonym [\s!SansBoldItalic]  [LucidaSans-DemiItalic]
98        \definefontsynonym [\s!SansSlanted]     [LucidaSans-Italic]
99        \definefontsynonym [\s!SansBoldSlanted] [LucidaSans-DemiItalic]
100        \definefontsynonym [SansCaps]           [LucidaSans]
101    \stoptypescript
102
103    % Lucida Bright Sans Typewriter
104
105    \starttypescript [\s!mono] [lucida] [\s!name]
106        \definefontsynonym [\s!Mono]            [LucidaSans-Typewriter]
107        \definefontsynonym [\s!MonoBold]        [LucidaSans-TypewriterBold]
108        \definefontsynonym [\s!MonoItalic]      [LucidaSans-TypewriterOblique]
109        \definefontsynonym [\s!MonoBoldItalic]  [LucidaSans-TypewriterBoldOblique]
110        \definefontsynonym [\s!MonoSlanted]     [LucidaSans-TypewriterOblique]
111        \definefontsynonym [\s!MonoBoldSlanted] [LucidaSans-TypewriterBoldOblique]
112        \definefontsynonym [MonoCaps]           [LucidaSans-Typewriter]
113    \stoptypescript
114
115    %  Lucida Calligraphy
116
117    \starttypescript [calligraphy] [lucida] [\s!name]
118        \definefontsynonym [Calligraphy] [LucidaCalligraphy-Italic]
119    \stoptypescript
120
121    % Lucida Handwriting
122
123    \starttypescript [handwriting] [lucida] [\s!name]
124        \definefontsynonym [Handwriting] [LucidaHandwriting-Italic]
125    \stoptypescript
126
127    \starttypescript [lucida]
128        \definetypeface [lucida] [\s!rm] [\s!serif]       [lucida] [\s!default] [\s!features=\s!default]
129        \definetypeface [lucida] [\s!ss] [\s!sans]        [lucida] [\s!default] [\s!features=\s!default]
130        \definetypeface [lucida] [\s!tt] [\s!mono]        [lucida] [\s!default] [\s!features=\s!none]
131        \definetypeface [lucida] [\s!hw] [\s!handwriting] [lucida] [\s!default] [\s!features=\s!default]
132        \definetypeface [lucida] [\s!cg] [\s!calligraphy] [lucida] [\s!default] [\s!features=\s!default]
133        \definetypeface [lucida] [\s!mm] [\s!math]        [lucida] [\s!default]
134    \stoptypescript
135
136\stoptypescriptcollection
137