beginchar(oct"037",.4em#,.5cap#,0dth#); "Diargon"; picture DIAPGON; path p[]; y1 = 7h/10; y2 = y3 = .5h; x1 = x2 = .5w; y4 = 3h/10; x3 = x4 = 4w/5; p1 = z1--z2 & z2--z3 & z3--z4; pickup pencircle scaled .8pt; draw p1; DIAPGON = currentpicture; endchar;