summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/XAP_poi/X056_psifiston.mf
blob: dd9db0283c27366e9177e24569891d9f452265cb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
beginchar(oct"056",.8em#,cap#,0dth#); "Psifiston";
picture UHFICTON;
 path p[];

 z0 = (0,.5w);
 z2 = (7w/16,6h/25);
 z3 = (15w/16,7h/10);
 z8 = (w/40,.55h);
 z6 = (6w/16,2.7h/10);
 z4 = (13w/16,7h/10);
 z5 = (5.7w/8,3h/5);

 p1 = flex(z0,z2,z3);
 p2 = flex(z5,z6,z8);
 p3 = z3..z4..z5;
 p4 = z8--z0;
 fill p1 & p3 & p2 & p4 & cycle;
 UHFICTON = currentpicture;
 endchar;