summaryrefslogtreecommitdiff
path: root/doc/context/sources/general/fonts/fonts/fonts-environment.tex
blob: c884d97e5d3e16bb47b810b62a8495edfd3ad4c4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
\startenvironment fonts-environment

    % we need to do this beforehand

    \blockligatures[fi,fl,ff]

    \startbuffer[extraminus]
    \startluacode
        fonts.helpers.addextraprivate("smallminus", function(tfmdata)
            local hchar = tfmdata.characters[0x002D]
            local mchar = tfmdata.characters[0x2212]
            if hchar and mchar then
                return {
                    width    = hchar.width,
                    height   = mchar.height,
                    commands = {
                        { "down", hchar.height - mchar.height },
                        { "char", 0x002D },
                    }
                }
            end
        end)
        fonts.helpers.addextraprivate("highminus", function(tfmdata)
            local hchar = tfmdata.characters[0x002D]
            local mchar = tfmdata.characters[0x2212]
            local xchar = tfmdata.characters[0x0058]
            if hchar and mchar and xchar then
                return {
                    width    = hchar.width,
                    height   = mchar.height,
                    commands = {
                        { "down", - xchar.height + mchar.height },
                        { "char", 0x002D },
                    }
                }
            end
        end)
    \stopluacode
    \stopbuffer

    \getbuffer[extraminus]

    % so far for preloading

    \environment manuals-explaining-environment
    \environment manuals-explaining-cover

    \enabledirectives[visualizers.fraction=2]

    \usemodule [s] [fonts-tables]
    \usemodule [s] [fonts-missing]
    \usemodule [s] [fonts-vectors]
    \usemodule [s] [fonts-features]
    \usemodule [s] [math-extensibles]

    \definefontfeature[demo-onum][kern=yes,onum=yes]
    %definefontfeature[demo-lnum][kern=yes,lnum=yes]
    \definefontfeature[demo-tnum][kern=yes,tnum=yes]
    \definefontfeature[demo-pnum][kern=yes,pnum=yes]
    \definefontfeature[demo-zero][zero=yes]
    \definefontfeature[demo-none][]

    \definefont[DemoOnumLM][file:lmroman10-regular*demo-onum at 42pt]
    %definefont[DemoLnumLM][file:lmroman10-regular*demo-lnum at 42pt]
    \definefont[DemoTnumLM][file:lmroman10-regular*demo-tnum at 42pt]
    \definefont[DemoPnumLM][file:lmroman10-regular*demo-pnum at 42pt]

    \definefont[DemoZeroLM][file:lmroman10-regular*demo-zero at 42pt]
    \definefont[DemoNoneLM][file:lmroman10-regular*demo-none at 42pt]

    \definefont[DemoZeroLT][file:lmtypewriter10-regular*demo-zero at 42pt]
    \definefont[DemoNoneLT][file:lmtypewriter10-regular*demo-none at 42pt]

\stopenvironment