Source Browser ?

1%D \module
2%D   [      file=s-fonts-vectors, % was s-fnt-51,
3%D        version=2012.11.27,
4%D          title=\CONTEXT\ Style File,
5%D       subtitle=Protrusion and Expansion,
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%D This code is used in the \MKIV\ fonts manual.
15
16\startmodule[fonts-vectors]
17
18\registerctxluafile{s-fonts-vectors}{}
19
20\installmodulecommandluasingle \showprotrusionclass  {moduledata.fonts.protrusions.showclass}
21\installmodulecommandluasingle \showprotrusionvector {moduledata.fonts.protrusions.showvector}
22\installmodulecommandluasingle \showexpansionclass   {moduledata.fonts.expansions.showclass}
23\installmodulecommandluasingle \showexpansionvector  {moduledata.fonts.expansions.showvector}
24
25\stopmodule
26
27\continueifinputfile{s-fonts-vectors.mkiv}
28
29\usemodule[art-01]
30
31\starttext
32
33    \startsubject[title=protrusion]
34
35        \startsubsubject[title=class]
36            \showprotrusionclass
37        \stopsubsubject
38
39        \startsubsubject[title=vector pure]
40            \showprotrusionvector[name=pure]
41        \stopsubsubject
42
43        \startsubsubject[title=vector punctuation]
44            \showprotrusionvector[name=punctuation]
45        \stopsubsubject
46
47        \startsubsubject[title=vector alpha]
48            \showprotrusionvector[name=alpha]
49        \stopsubsubject
50
51        \startsubsubject[title=vector quality]
52            \showprotrusionvector[name=quality]
53        \stopsubsubject
54
55    \stopsubject
56
57    \page
58
59    \startsubject[title=expansion]
60
61        \startsubsubject[title=class]
62            \showprotrusionclass
63        \stopsubsubject
64
65        \startsubsubject[title=vector quality]
66            \showprotrusionvector[name=quality]
67        \stopsubsubject
68
69    \stopsubject
70
71\stoptext
72
73