summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/vntex/vnr/vnlur.mf
blob: 10b02f81e95141c185fee87552c8146b26e95874 (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
% Copyright 2003-2005 Han The Thanh <hanthethanh@gmx.net>.
% This file is part of vntex.  License: LPPL, version 1.3 or newer,
% according to http://www.latex-project.org/lppl.txt

% Computer Modern Roman lower case "u" precomposed glyphs:
% Inclusion:
%               u'      u`      u?      u~      u.
%       u+      u+'     u+`     u+?     u+~     u+.

begin_letter(u);
    set_letter_dimens(u)(
        10u#, x_height#, 0,
        x_height#*slant - serif_fit# + .5stem# - 2u#,
        serif_fit# + stem_shift#, serif_fit# - stem_shift#
    );
    numeric light_vair;
    light_vair = vair if hefty: -vround 2vair_corr fi;
    if light_vair < fine.breadth: light_vair := fine.breadth;
    fi
    pickup tiny.nib;
    pos1(stem, 0);
    pos2(stem, 0);
    pos3(stem, 0);
    pos4(stem', 0);
    lft x1l = hround(2.5u - .5stem);
    x1 = x2;
    x3 = w - x1;
    x3r = x4r;
    if serifs: top y1 = h+min(oo, serif_drop);
        bot y4 = -min(oo, serif_drop);
    else: top y1 = h;
        bot y4 = 0;
    fi
    pos0(stem, 0);
    pos0'(stem', 0);
    x0 = x3;
    x0' = x4;
    y0 = y0';
    penpos2'(stem - fine, -180);
    z2' = z2;
    y3 = y1;
    y2 = .5bar_height;
    penpos5(max(eps, light_vair - fine), -90);
    penpos6(thin_join - fine, 0);
    y6 = y0 = 2/3bar_height;
    filldraw stroke z1e -- z2e;  % left stem
    filldraw stroke z3e .. z0e -- z0'e .. z4e;  % right stem
    pickup fine.nib;
    bot y5r=-oo;
    x5l = .5w - .25u;
    lft x6l = tiny.lft x0l;
    (x, y5r) = whatever[z5l, z6l];
    x5r := max(x, .5[x5, x2'r]);
    filldraw stroke {{interim superness := hein_super;
    pulled_arc.e(2', 5)}} & z5e{right} ... {up}z6e;  % arc
    if serifs: sloped_serif.l(1, 2, a, 1/3, jut, serif_drop); % upper left serif
        sloped_serif.l(3, 0, b, 1/3, jut, serif_drop); % upper right serif
        sloped_serif.r(4, 0', c, 1/3, jut, min(oo, serif_drop));
    fi % lower right serif
    penlabels(1, 2, 3, 4, 5, 7);
    labels(6);
    set_letter_join(u, x5, .5w#);
    set_letter_join(u.horn_, x5 + .3dot_size, .5w# + .3dot_size#);
    set_letter_join(u.dot_, x5 + .5u, .5w# + .5u#);
    set_horn_join(u, z3 -- z4, z3 -- z4);
end_letter;

input vnucomp;

endinput;