summaryrefslogtreecommitdiff
path: root/fonts/byzfonts/XAP_pos/x005_ipsili.mf
blob: 49367c3fc62a90ecf00f25e966c4f728641cb0b6 (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
beginchar(oct"005",.8em#,cap#,0); "Ipsili";
  picture YPSHLH, scYPSHLH;
  transform t[];
  path p[];
  save xt,yt;
  xt = 8em/110;
  yt = cap/17;

  x0 = .5xt; x0 = w - x6; y0 = .3yt; y1 = 3yt; y2 = 2y1; y3 = 3y1; 
  y4 = 4y1; x1 = 3.3xt; x2 = 5.5xt; x3 = 7xt; x4 = 7.9xt; x5 = 8xt;
  y5 = 14yt; y6 = 15yt; y10= 3yt; y7 = 4y10; y8 = 3y10; y9 = 2y10;
  x10= 4xt; x9 = 6.8xt; x8 = 8.7xt; x7 = 9.8xt; x11= 1.7xt; y11= .8yt;
  z12 = (5xt,-xt); z13 = (4.9xt,-.6xt);

  p1 = flex(z0,z3,z5)--z6 & flex(z6,z9,z11) & z11---z13..z12---z0
  & cycle;
  fill p1;
  YPSHLH = currentpicture;
  t1 = identity scaled .5;
  p2 = p1 transformed t1;
  clearit;
  fill p2;
  scYPSHLH = currentpicture;
  clearit;
  addto currentpicture also YPSHLH;
endchar;