1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
beginchar(oct"053",.8em#,cap#,0dth#); "Antikenoma";
picture ANTIKENWMA;
path p[];
z0 = (0,.5h);
z1 = (7w/8,.5h);
z2 = (6.5w/8,1.8h/5);
z3 = (5.3w/8,1.5h/5);
z4 = (.5[x0,x1],.55h);
p1 = z0..z4..z1;
z5 = point 1.5 of p1;
z6 = point 1.75 of p1;
z7 = (.7[x5,x6],.4[y6,y2]);
p2 = z1{z1-z4}..z2{z3-z2}..z3;
p4 = reverse subpath (0,2) of p2;
p5 = reverse subpath (1,2) of p1;
p3 = z4{z1-z4}..{z2-z5}z7{z2-z6}..{z3-z7}z3..p4..p5..cycle;
pickup pencircle scaled .4pt;
draw p1;
draw p2;
fill p3;
ANTIKENWMA = currentpicture;
endchar;
|
