type-lua.mkiv /size: 4478 b    last modification: 2020-07-01 14:35
1
%D \module
2
%D [ file=type-lua,
3
%D version=2009.11.27,
4
%D title=\CONTEXT\ Typescript Macros,
5
%D subtitle=\MKIV\ goodies,
6
%D author=Hans Hagen \& Wolfgang Schuster,
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
[
luatex
]
15 16
\starttypescript
[
specserif
]
[
\s!all
]
[
\s!name
]
17
\definefontsynonym
[
\s!Serif
]
[
spec
:
\cleanfontname
\typescripttwo
-
\s!normal
-
\s!normal
]
[
\s!features
=
\s!default
]
18
\definefontsynonym
[
\s!SerifItalic
]
[
spec
:
\cleanfontname
\typescripttwo
-
\s!normal
-
\s!italic
]
[
\s!features
=
\s!default
]
19
\definefontsynonym
[
\s!SerifSlanted
]
[
spec
:
\cleanfontname
\typescripttwo
-
\s!normal
-
\s!italic
]
[
\s!features
=
\s!default
]
20
\definefontsynonym
[
\s!SerifBold
]
[
spec
:
\cleanfontname
\typescripttwo
-
\s!bold
-
\s!normal
]
[
\s!features
=
\s!default
]
21
\definefontsynonym
[
\s!SerifBoldItalic
]
[
spec
:
\cleanfontname
\typescripttwo
-
\s!bold
-
\s!italic
]
[
\s!features
=
\s!default
]
22
\definefontsynonym
[
\s!SerifBoldSlanted
]
[
spec
:
\cleanfontname
\typescripttwo
-
\s!bold
-
\s!italic
]
[
\s!features
=
\s!default
]
23
\definefontsynonym
[
\s!SerifCaps
]
[
spec
:
\cleanfontname
\typescripttwo
-
\s!normal
-
\s!normal
]
[
\s!features
=
\s!smallcaps
]
24
\stoptypescript
25 26
\starttypescript
[
specsans
]
[
\s!all
]
[
\s!name
]
27
\definefontsynonym
[
\s!Sans
]
[
\s!spec
:
\cleanfontname
\typescripttwo
-
\s!normal
-
\s!normal
]
[
\s!features
=
\s!default
]
28
\definefontsynonym
[
\s!SansItalic
]
[
\s!spec
:
\cleanfontname
\typescripttwo
-
\s!normal
-
\s!italic
]
[
\s!features
=
\s!default
]
29
\definefontsynonym
[
\s!SansSlanted
]
[
\s!spec
:
\cleanfontname
\typescripttwo
-
\s!normal
-
\s!italic
]
[
\s!features
=
\s!default
]
30
\definefontsynonym
[
\s!SansBold
]
[
\s!spec
:
\cleanfontname
\typescripttwo
-
\s!bold
-
\s!normal
]
[
\s!features
=
\s!default
]
31
\definefontsynonym
[
\s!SansBoldItalic
]
[
\s!spec
:
\cleanfontname
\typescripttwo
-
\s!bold
-
\s!italic
]
[
\s!features
=
\s!default
]
32
\definefontsynonym
[
\s!SansBoldSlanted
]
[
\s!spec
:
\cleanfontname
\typescripttwo
-
\s!bold
-
\s!italic
]
[
\s!features
=
\s!default
]
33
\definefontsynonym
[
\s!SansCaps
]
[
\s!spec
:
\cleanfontname
\typescripttwo
-
\s!normal
-
\s!normal
]
[
\s!features
=
\s!smallcaps
]
34
\stoptypescript
35 36
\starttypescript
[
specmono
]
[
\s!all
]
[
\s!name
]
37
\definefontsynonym
[
\s!Mono
]
[
\s!spec
:
\cleanfontname
\typescripttwo
-
\s!normal
-
\s!normal
]
[
\s!features
=
\s!default
]
38
\definefontsynonym
[
\s!MonoItalic
]
[
\s!spec
:
\cleanfontname
\typescripttwo
-
\s!normal
-
\s!italic
]
[
\s!features
=
\s!default
]
39
\definefontsynonym
[
\s!MonoSlanted
]
[
\s!spec
:
\cleanfontname
\typescripttwo
-
\s!normal
-
\s!italic
]
[
\s!features
=
\s!default
]
40
\definefontsynonym
[
\s!MonoBold
]
[
\s!spec
:
\cleanfontname
\typescripttwo
-
\s!bold
-
\s!normal
]
[
\s!features
=
\s!default
]
41
\definefontsynonym
[
\s!MonoBoldItalic
]
[
\s!spec
:
\cleanfontname
\typescripttwo
-
\s!bold
-
\s!italic
]
[
\s!features
=
\s!default
]
42
\definefontsynonym
[
\s!MonoBoldSlanted
]
[
\s!spec
:
\cleanfontname
\typescripttwo
-
\s!bold
-
\s!italic
]
[
\s!features
=
\s!default
]
43
\definefontsynonym
[
\s!MonoCaps
]
[
\s!spec
:
\cleanfontname
\typescripttwo
-
\s!normal
-
\s!normal
]
[
\s!features
=
\s!smallcaps
]
44
\stoptypescript
45 46
% we could combine these in the normal serif settings
47 48
\starttypescript
[
specserif
]
[
\s!default
]
[
\s!size
]
49
\definebodyfont
50
[
4
pt
,
5
pt
,
6
pt
,
7
pt
,
8
pt
,
9
pt
,
1
0
pt
,
1
1
pt
,
1
2
pt
,
1
4
.
4
pt
,
1
7
.
3
pt
]
51
[
\s!rm
]
[
\s!default
]
52
\stoptypescript
53 54
\starttypescript
[
specsans
]
[
\s!default
]
[
\s!size
]
55
\definebodyfont
56
[
4
pt
,
5
pt
,
6
pt
,
7
pt
,
8
pt
,
9
pt
,
1
0
pt
,
1
1
pt
,
1
2
pt
,
1
4
.
4
pt
,
1
7
.
3
pt
]
57
[
\s!ss
]
[
\s!default
]
58
\stoptypescript
59 60
\starttypescript
[
specmono
]
[
\s!default
]
[
\s!size
]
61
\definebodyfont
62
[
4
pt
,
5
pt
,
6
pt
,
7
pt
,
8
pt
,
9
pt
,
1
0
pt
,
1
1
pt
,
1
2
pt
,
1
4
.
4
pt
,
1
7
.
3
pt
]
63
[
\s!tt
]
[
\s!default
]
64
\stoptypescript
65 66
\starttypescript
[
specserif
]
[
\s!dtp
]
[
\s!size
]
67
\definebodyfont
68
[
5
pt
,
6
pt
,
7
pt
,
8
pt
,
9
pt
,
1
0
pt
,
1
1
pt
,
1
2
pt
,
1
3
pt
,
1
4
pt
,
1
6
pt
,
1
8
pt
,
2
2
pt
,
2
8
pt
]
69
[
\s!rm
]
[
\s!default
]
70
\stoptypescript
71 72
\starttypescript
[
specsans
]
[
\s!dtp
]
[
\s!size
]
73
\definebodyfont
74
[
5
pt
,
6
pt
,
7
pt
,
8
pt
,
9
pt
,
1
0
pt
,
1
1
pt
,
1
2
pt
,
1
3
pt
,
1
4
pt
,
1
6
pt
,
1
8
pt
,
2
2
pt
,
2
8
pt
]
75
[
\s!ss
]
[
\s!default
]
76
\stoptypescript
77 78
\starttypescript
[
specmono
]
[
\s!dtp
]
[
\s!size
]
79
\definebodyfont
80
[
5
pt
,
6
pt
,
7
pt
,
8
pt
,
9
pt
,
1
0
pt
,
1
1
pt
,
1
2
pt
,
1
3
pt
,
1
4
pt
,
1
6
pt
,
1
8
pt
,
2
2
pt
,
2
8
pt
]
81
[
\s!tt
]
[
\s!default
]
82
\stoptypescript
83 84
\stoptypescriptcollection
85 86
\endinput
87