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
|
% 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 Italic lower case "e" precomposed glyphs:
% Inclusion:
% e' e` e? e~ e.
% e^ e^' e^` e^? e^~ e^.
begin_letter(e);
set_letter_dimens(e)(
8u#, x_height#, 0,
max(1/3x_height#*slant, x_height#*slant + .5(.2[hair#, stem#]) - u#),
0, 0
);
pickup fine.nib;
numeric heavy_hair;
heavy_hair = hround .2[hair, stem];
pos0(vair, -90);
pos1(heavy_hair, 0);
pos2(vair, 90);
pos3(curve, 180);
pos4(vair, 270);
pos5(hair, 320);
x0 = rt x3l;
rt x1r = hround(w - 1.5u + .5heavy_hair);
x2 = x4 = .5(w + u);
lft x3r = hround(1.5u - .5curve);
x5r = good.x(w - eps);
x6 = x5;
y0 = y3 = y6 = bar_height;
y1 = .5[y0, y2];
top y2r = h+oo;
bot y4r = -oo;
top y5l = vround .5bar_height;
path p;
p = z4{right} .. z5 .. z6;
filldraw stroke z0e{right} ... z1e{up} ... pulled_arc.e(2, 3)
& pulled_arc.e(3, 4) ... {direction 1 of p}z5e; % arc
math_fit( - .3x_height#*slant + .5curve# - u#, ic#);
penlabels(0, 1, 2, 3, 4, 5, 6);
set_letter_join(e, x2, .5w#);
% set_letter_join(e.dot_, .5w + .5u, .5w# + .5u#);
end_letter;
input vnecomp;
endinput;
|