summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/Alphabet/Caps/Z.mf
blob: 0de1c854460520e4fcd70d4f839f707b44da0aba (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
29
30
31
32
33
34
35
36
37
38
39
beginchar("Z",em#,5cap#/7,0); "Zeta";
path p[];
 save ww,hh,dd;

 ww = w/10; hh = h/5;
 b := ww;

 x0 = 2ww;
 x5 = 2.5ww;
 x2 = x4 = x7 = 8ww;
 x3 = 4ww;
 y7 = 0;
 y0 = 9hh;
 y2 = 8hh;
 y5 = 2hh;
 y3 = 5.2hh;
 y4 = 5hh;
 z6 = (x5,.5hh);
 z8 = (x4,.5[y4,y5]);
 z9 = (x0,.5[y0,y5]);
 z10 = (.5[x0,x2],y0);

penpos7(2b,0);
penpos5(b,90);
penstroke z7e{up}..{left}z5e;
p1 = z5{left}..{z2-z5}z2{left}..{up}z0;

 pickup pencircle scaled b;
 draw p1;
 pickup pencircle scaled .4pt;
 draw z6{right}..{z8-z6}z8..{z9-z8}z9..{z10-z9}z10;
 draw fullcircle scaled .5b shifted (z10);
 draw fullcircle scaled .5b shifted (z8);
 draw fullcircle scaled .5b shifted (z9);
 draw fullcircle scaled .5b shifted (z6);
 draw fullcircle scaled .5b shifted (z4);
 fill fullcircle scaled 2b shifted (z3);

endchar;