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;