beginchar(oct"002",.8em#,5cap#/7,0dth#); "Oligon"; path p[]; picture OLIGON, scOLIGON; save ww,hh; ww = w/8; hh = h/5; y0 = y1 = 0; y2 = y3 = hh; x0 = .4ww; x1 = 7.9ww; x2 = 7.6ww; x3 = .1ww; p0 = z0--z1..z2--z3..cycle; fill p0; OLIGON = currentpicture; clearit; p1 = p0 xscaled 1.4; fill p1; scOLIGON = currentpicture; clearit; addto currentpicture also OLIGON; endchar;