beginchar(oct"000",.8em#,5cap#/7,.5dth#); "Xamili"; picture XAMHLH, scXAMHLH; path p[]; save ww,hh,dd; ww = w/8; hh = h/5; dd = d; x3 = 2ww; y0 = 3.4hh; y1 = 3.6hh; x0 = 1.5ww; x2 = 1.3ww; y2 = .5hh; x4 = 3ww; x5 = x6 = 8ww - x1 = 7.5ww; y3 = y5 = y4 = -.2dd; y7 = y6 = 0; x7 = 2.5ww; y8 = y9 = .5hh; y10 = y11 = -.5dd; x8 = 4.5ww; x9 = 5.5ww; x10 = 4.7ww; x11 = 5.7ww; p0 = z0--z1{down}..z2{z4-z1}..{curl 0}z3--z5--z6--z7{z1-z5}..{up}z0 ..cycle; p1 = z8--z9--z11--z10--z8..cycle; fill p0; fill p1; XAMHLH = currentpicture; clearit; p2 = p1 scaled 1.4; p3 = p0 scaled 1.4; fill p3; fill p2; scXAMHLH = currentpicture; clearit; addto currentpicture also XAMHLH; endchar;