Source Browser ?

1
%D \module
2
%D   [      file=s-fonts-tables,
3
%D        version=2011.10.10,
4
%D          title=\CONTEXT\ Style File,
5
%D       subtitle=Basic Font Data Tables,
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
% todo: make a mtxrun --script font <name> option
15
16
\startmodule
[
fonts
-
tables
]
17
18
\registerctxluafile
{
s
-
fonts
-
tables
}{}
19
\definetabulate
[
Pair
]
      
[
|
T
|
cw
(
3
em
)
|
T
|
cw
(
3
em
)
|
Tw
(
1
0
em
)
|
Tw
(
1
0
em
)
|
cw
(
4
em
)
|
cw
(
4
em
)
|
]
\definetabulate
[
Single
]
    
[
|
T
|
cw
(
3
em
)
|
Tw
(
1
0
em
)
|
cw
(
4
em
)
|
cw
(
4
em
)
|
]
\definetabulate
[
SingleKern
][
|
T
|
cw
(
3
em
)
|
Trw
(
5
em
)
|
cw
(
4
em
)
|
cw
(
4
em
)
|
]
\definetabulate
[
PairKern
]
  
[
|
T
|
cw
(
3
em
)
|
T
|
cw
(
3
em
)
|
Trw
(
5
em
)
|
cw
(
4
em
)
|
cw
(
4
em
)
|
]
24
25
\definehead
26  
[
sequence
]
27  
[
subsubject
]
28  
[
style
=
\ttbf
]
29
30
\definecolor
31  
[
bbcolor
]
32  
[
t
=
.
5
,
a
=
1
,
s
=
.
5
]
33
34
\definefontfeature
35  
[
boundingbox
]
36  
[
boundingbox
=
{
background
,
bbcolor
}
]
37
38
\installmodulecommandluasingle
 
\showfontproperties
     
{
moduledata
.
fonts
.
tables
.
showproperties
}
39
\installmodulecommandluasingle
 
\showfontparameters
     
{
moduledata
.
fonts
.
tables
.
showparameters
}
40
\installmodulecommandluasingle
 
\showfontpositionings
   
{
moduledata
.
fonts
.
tables
.
showpositionings
}
41
\installmodulecommandluasingle
 
\showfontligatures
      
{
moduledata
.
fonts
.
tables
.
showligatures
}
42
\installmodulecommandluasingle
 
\showfontsubstitutions
  
{
moduledata
.
fonts
.
tables
.
showsubstitutions
}
43
\installmodulecommandluasingle
 
\showfontunicodevariants
{
moduledata
.
fonts
.
tables
.
showunicodevariants
}
44
45
\stopmodule
46
47
\continueifinputfile
{
s
-
fonts
-
tables
.
mkiv
}
48
49
\usemodule
[
art
-
0
1
]
50
51
\setupbodyfont
52  
[
cambria
]
53
54
\starttext
55    
\showfontproperties
[
name
=
cambria
]
56
\stoptext
57