beginchar(oct"004",.3em#,4cap#/7,.5dth#); "Kentima"; path p[]; picture KENTHMA, YPORROH; save ww,hh,dd; ww = w/3; hh = h/4; dd = d; y0 = y1 = hh; y2 = y3 = -.125dd; x0 = .25ww; x1 = x3 = 1.5ww; x2 = 2.75ww; z5 = z2 reflectedabout (z1,z3); z6 = z0 reflectedabout (z1,z3); p1 = z0--z1--z2--z3--cycle; p2 = z1--z6--z3--z5--cycle; fill p1; KENTHMA = currentpicture; clearit; fill p2; YPORROH= currentpicture; clearit; addto currentpicture also KENTHMA; endchar;