Source Browser ?

1%D \module
2%D   [       file=type-imp-concrete,
3%D        version=2022.30.09, % a bit older
4%D          title=\CONTEXT\ Typescript Macros,
5%D       subtitle=\TEX Gyre Fonts,
6%D         author=Mikael Sundqvist,
7%D           date=\currentdate,
8%D      copyright={\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% lm is already preloaded so we can actually move this to lm
15
16\starttypescriptcollection[concrete]
17
18    %\definefontfeature[default-slanted-concrete][default][slant=.2]
19    %\definefontfeature[none-slanted-concrete]   [none]   [slant=.2]
20
21    \doifunknownfontfeature {concrete-math-bold} {\definefontfeature[concrete-math-bold][boldened]}
22    \doifunknownfontfeature {concrete-text-bold} {\definefontfeature[concrete-text-bold][boldened-10]}
23
24    \starttypescript [\s!serif] [concrete]
25        \definefontsynonym [\s!Serif]            [LMTypewriterVarWd-Regular]     [\s!features={\s!default,concrete-text-bold}]
26        \definefontsynonym [\s!SerifBold]        [LMTypewriterVarWd-Dark]        [\s!features={\s!default,concrete-text-bold}]
27        \definefontsynonym [\s!SerifItalic]      [LMTypewriterVarWd-Oblique]     [\s!features={\s!default,concrete-text-bold}]
28        \definefontsynonym [\s!SerifSlanted]     [LMTypewriterVarWd-Oblique]     [\s!features={\s!default,concrete-text-bold}]
29        \definefontsynonym [\s!SerifBoldItalic]  [LMTypewriterVarWd-DarkOblique] [\s!features={\s!default,concrete-text-bold}]
30        \definefontsynonym [\s!SerifBoldSlanted] [LMTypewriterVarWd-DarkOblique] [\s!features={\s!default,concrete-text-bold}]
31    \stoptypescript
32
33    \starttypescript [\s!sans] [concrete]
34        \definefontsynonym [\s!Sans]            [LMTypewriterVarWd-Regular]     [\s!features={\s!default,concrete-text-bold}]
35        \definefontsynonym [\s!SansItalic]      [LMTypewriterVarWd-Dark]        [\s!features={\s!default,concrete-text-bold}]
36        \definefontsynonym [\s!SansSlanted]     [LMTypewriterVarWd-Oblique]     [\s!features={\s!default,concrete-text-bold}]
37        \definefontsynonym [\s!SansBold]        [LMTypewriterVarWd-Oblique]     [\s!features={\s!default,concrete-text-bold}]
38        \definefontsynonym [\s!SansBoldItalic]  [LMTypewriterVarWd-DarkOblique] [\s!features={\s!default,concrete-text-bold}]
39        \definefontsynonym [\s!SansBoldSlanted] [LMTypewriterVarWd-DarkOblique] [\s!features={\s!default,concrete-text-bold}]
40    \stoptypescript
41
42    \starttypescript [\s!mono] [concrete]
43        \loadfontgoodies[lm]
44        \definefontsynonym [\s!Mono]            [LMTypewriter-Regular]     [\s!features={\s!none,concrete-text-bold}]
45        \definefontsynonym [\s!MonoBold]        [LMTypewriter-Dark]        [\s!features={\s!none,concrete-text-bold}]
46        \definefontsynonym [\s!MonoItalic]      [LMTypewriter-Italic]      [\s!features={\s!none,concrete-text-bold}]
47        \definefontsynonym [\s!MonoSlanted]     [LMTypewriter-Oblique]     [\s!features={\s!none,concrete-text-bold}]
48        \definefontsynonym [\s!MonoBoldItalic]  [LMTypewriter-DarkOblique] [\s!features={\s!none,concrete-text-bold}]
49        \definefontsynonym [\s!MonoBoldSlanted] [LMTypewriter-DarkOblique] [\s!features={\s!none,concrete-text-bold}]
50   \stoptypescript
51
52    \starttypescript [\s!math] [concrete]
53        \checkedmapfontsize[\typescripttwo][\s!script]      [.76]
54        \checkedmapfontsize[\typescripttwo][\s!scriptscript][.60]
55    \stoptypescript
56
57    \starttypescript [\s!math] [concrete] [\s!name]
58        \loadfontgoodies[concrete-math]
59        \definefontsynonym[\s!MathRoman]     [\s!file:Concrete-Math.otf] [\s!features={\s!math\mathsizesuffix,concrete:mathextra,mathextra},\s!goodies=concrete-math]
60        \definefontsynonym[\s!MathRomanBold] [\s!file:Concrete-Math.otf] [\s!features={\s!math\mathsizesuffix,concrete-math-bold,concrete:mathextra,mathextra},\s!goodies=concrete-math]
61    \stoptypescript
62
63    \starttypescript [\s!math] [concrete-nt] [\s!name]
64        \loadfontgoodies[concrete-math]
65        \definefontsynonym[\s!MathRoman]     [\s!file:Concrete-Math.otf] [\s!features={\s!math\mathsizesuffix,concrete:mathextra,mathextra}]
66        \definefontsynonym[\s!MathRomanBold] [\s!file:Concrete-Math.otf] [\s!features={\s!math\mathsizesuffix,concrete-math-bold,concrete:mathextra,mathextra}]
67    \stoptypescript
68
69    \starttypescript [concrete,concrete-nt]
70        \definetypeface [\typescriptone] [\s!rm] [\s!serif] [concrete]       [\s!default]
71        \definetypeface [\typescriptone] [\s!ss] [\s!sans]  [concrete]       [\s!default]
72        \definetypeface [\typescriptone] [\s!tt] [\s!mono]  [concrete]       [\s!default]
73        \definetypeface [\typescriptone] [\s!mm] [\s!math]  [\typescriptone] [\s!default]
74        \quittypescriptscanning
75    \stoptypescript
76
77\stoptypescriptcollection
78