blob: a2ed96ed5e77c62c45fd324d294a23ac7377723a (
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
|
beginchar(oct"214",em#,6cap#/7,dth#); "Ligature: cT";
path p[];
save ww,hh,dd;
ww = w/5; hh = h/3; dd = d;
b := .2ww;
x0 = x2 = 2ww; x1 = 2.2ww;
x3 = 1.75ww; x4 = 2.5ww;
x5 = 3ww;
y0 = -.7dd; y1 = .2hh;
y2 = .1hh; y3 = .5hh;
y4 = hh; y5 = .9hh;
z6 = z1;
penpos0(b,0);
penpos1(b,0);
penpos2(b,90);
penpos3(.8b,0);
penpos4(b,-90);
penpos5(1.7b,-90);
penpos6(b,angle(z2-z1)-90);
penstroke z0e{up}..{up}z1e;
penstroke z6e{left}..z2e..{up}z3e..{right}z4e..z5e;
pickup pencircle scaled 1.7b;
drawdot z5;
endchar;
|