summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/Alphabet/Ligs/X177_XP.mf
blob: 06b63d26b2856ef293a3123d826b5dc8a296c3aa (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
25
26
27
28
%wid# := 1mm#; hei# := 1mm#; dep# := 1mm#;
wid# := pt#; hei# := pt#; dep# := pt#;
define_pixels(wid,hei,dep);
c_s = wid;

beginchar(oct"177",12wid#,12hei#,3dep#); "XPICTOC";
path p[];
 x1 = x4 = w - x2 = c_s;
 x2 = x3;
 y1 = y2 = -h/12;
 y8 = round(2h/3);
 y3 = y4 = y8 - h/12; 
 x5 = x9 = x10 = w/2;
 y5 = round(11.45h/12); y9 = round(8.55h/12); y10 = -round(h/4);
 x6 = x8 = round(8.5w/12);
 top y6 = h; x7 = w; x11 = round(5.5w/12);
 y11 = y7 = .5[y6,y8];

 pickup pencircle scaled pt;
 p1 = superellipse(z11,z6,z7,z8,.77);
 draw p1;
 p2 = z5..z11..z9;
 undraw p2;
 p3 = z5--z9--z10;
 p4 = z4--z2;
 p5 = z1--z3;
 draw p3; draw p4; draw p5;
 endchar;