1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
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;