summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/XAP_poi/X053_antikenoma.mf
blob: e291c21f654ff1ed74ff9a261a881527e19d5b6f (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
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;