summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/Alphabet/Caps/I.mf
blob: 8467dc8b36a986851e2f261bf352b81894a1627e (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
beginchar("I",em#,5cap#/7,0dth#); "Iota";
path p[];
 save ww,hh,dd;

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

 x8 = x7 = x6 = x5 = x2 = x3 = x4 = x0 = x1 = 5ww;
 y0 = 10hh - y1 = 0 = y9 = y11;
 y2 = .25[y0,y1];
 y3 = .5[y0,y1];
 y4 = .75[y0,y1] = y10 = y12;
 y5 = .5[y1,y4];
 y6 = .5[y3,y4];
 y7 = .5[y3,y2];
 y8 = .5[y0,y2];
 x9 = 2.5ww = x12; 
 x10 = 7.5ww = x11; 

 penpos0(2b,0);
 penpos1(2b,0);
 penpos8(.6b,0);
 penpos7(.6b,0);
 penpos6(.6b,0);
 penpos5(.6b,0);
 penpos2(1.7b,0);
 penpos3(1.7b,0);
 penpos4(1.7b,0);

 penstroke z1e..z5e..z4e..z6e..z3e..z7e..z2e..z8e..z0e;
 pickup pencircle scaled .4pt;
 draw z9{up}..z7..{up}z10;
 draw z11{up}..z7..{up}z12;
 draw fullcircle scaled .5b shifted (z10);
 draw fullcircle scaled .5b shifted (z12);

 endchar;