summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/XAP_fth/BS_zugos.mf
blob: bf6e809dd9ab821b4cbbbaa38d6fc74a03182450 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
beginchar(oct"010",.4em#,.5cap#,0dth#); "Zigos";
picture BS;
 path p[];

 Diam = .4w;
 z0 = (w/2,h/2);
 x1 = w - x2 = .5curve_sidebar;
 y1 = .1h; y2 = .9h;
 z3 = .35[z0,z1];
 z4 = .35[z0,z2];
 z5 = .5[z1,z3];
 pickup pencircle scaled .8pt;
 p0 = fullcircle scaled .4w shifted (z0);
 p1 = z1--z2;
 p2 = z3--z4;
 p3 = z1--z3;
 p4 = p3 rotatedabout(z5,90);
 draw p0;
 draw p1;
 undraw p2;
 draw p4;
 BS = currentpicture; 
 endchar;