summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/XAP_pos/x004_kentima.mf
blob: 11f51a048cc0b43499a7998107409f895352070a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
beginchar(oct"004",.3em#,4cap#/7,.5dth#); "Kentima";
 path p[];
 picture KENTHMA, YPORROH;
 save ww,hh,dd;
 ww = w/3; hh = h/4; dd = d;

 y0 = y1 = hh;
 y2 = y3 = -.125dd;
 x0 = .25ww; x1 = x3 = 1.5ww; x2 = 2.75ww;
 z5 = z2 reflectedabout (z1,z3);
 z6 = z0 reflectedabout (z1,z3);
 p1 = z0--z1--z2--z3--cycle;
 p2 = z1--z6--z3--z5--cycle;
 fill p1;
 KENTHMA = currentpicture;
 clearit;
 fill p2;
 YPORROH= currentpicture;
 clearit;
 addto currentpicture also KENTHMA;
 endchar;