beginchar(oct"007",.8em#,cap#,0dth#); "Ison"; path p[]; picture ICON, scICON; save ww,hh; ww = w/8; hh = h/5; x0 = 2.1ww; y0 = 2h/5; x2 = .1ww; y2 = y8 = h/5; y5 = .7h/5; x1 = x7 = x3 = 1.1ww; y3 = y4 = 0; y1 = 2.4h/5; x4 = 7.9ww; x5 = 7.6ww; y7 =.4h/5; x8 = .3ww; p1 = z0..z1 & flex(z1,z2,z3) & z3--z4 & z4--z5 & z5--z7 & flex(z7,z8,z0) & cycle; fill p1; ICON = currentpicture; p2 = p1 xscaled 1.4; clearit; fill p2; scICON = currentpicture; clearit; addto currentpicture also ICON; endchar;