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
|
beginchar(oct"205",em#,6cap#/7,dth#); "Ligature: KATA";
path p[];
save ww,hh,dd;
ww = w/5; hh = h/3; dd = d;
b := .2ww;
x0 = x2 = .9ww;
y0 = 1.1hh;
x3 = 2ww; x1 = 1.2ww;
y2 = 0;
x4 = 1.7ww; y4 = .3hh;
y5 = 0; x5 = 2.8ww;
x6 = 2.5ww; y6 = -.3dd;
x7 = 3.9ww; y7 = .2hh;
y13 = .1hh; y15 = 1.4hh;
y1 = y3 = y10 = y11 = y12 = 1.3hh;
x15 = 4.1ww; x12 = 3.9ww;
x10 = 2.3ww; x13 = x11 = .5[x10,x12];
x16 = 4.3ww; y16 = 1.1hh;
z14 = (.7[x3,x10],y16);
z17 = (.5[x6,x7],y6);
p0 = z0..z1{down}..{down}z2{up}..{up}z3{z4-z3}..z4..{z5-z4}z5;
penpos10(b,250);
penpos14(b,290);
penpos12(b,250);
penpos11(b,180);
penpos13(b,270);
penpos15(b,270);
penpos16(b,270);
penpos4(b,180);
penpos5(b,angle(z5-z4)-90);
penpos6(b,angle(z7-z6)+90);
penpos7(b,angle(z7-z17)+90);
pickup pencircle scaled b;
draw z5--z6;
penstroke z6e..controls z17..z7e;
draw z15..z16;
penstroke z10e--z12e;
penstroke z14e--z10e;
penstroke z11e{down}..{right}z13e;
drawdot z7;
drawdot z13;
drawdot z14;
draw p0;
endchar;
|