Source Browser ?

1%D \module
2%D   [      file=s-fonts-basics, % was s-fnt-01,
3%D        version=2006.10.10, % guess
4%D          title=\CONTEXT\ Style File,
5%D       subtitle=Listing Glyphs in Large Fonts,
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 module is just a check for \type {luatex-basics-prepare}.
15
16\startmodule[fonts-effects]
17
18\startluacode
19moduledata.fonts         = moduledata.fonts         or { }
20moduledata.fonts.effects = moduledata.fonts.effects or { }
21
22function moduledata.fonts.effects.showfonteffect()
23    local effect = fonts.hashes.properties[true].effect
24    if effect then
25        local context = context
26        local BC, NC, EQ, NR = context.BC, context.NC, context.EQ, context.NR
27        context.starttabulate { "||||||||" }
28            BC() context("id")      EQ() context(font.current())
29            BC() context("factor")  EQ() context(effect.factor)
30            BC() context("wdelta")  EQ() context(effect.wdelta)
31            NC() NR()
32            BC() context("effect")  EQ() context(effect.effect)
33            BC() context("hfactor") EQ() context(effect.hfactor)
34            BC() context("hdelta")  EQ() context(effect.hdelta)
35            NC() NR()
36            BC() context("width")   EQ() context(effect.width)
37            BC() context("vfactor") EQ() context(effect.vfactor)
38            BC() context("ddelta")  EQ() context(effect.ddelta)
39            NC() NR()
40        context.stoptabulate()
41    end
42end
43\stopluacode
44
45\installmodulecommandluasingle \showfonteffect {moduledata.fonts.effects.showfonteffect}
46
47\stopmodule
48
49\continueifinputfile{s-fonts-effects.mkiv}
50
51\usemodule[art-01]
52
53\starttext
54
    \definedfont[Serif*default,boldened] An example.
56
57    \showfonteffect
58
59\stopmodule
60