beginchar(oct"010",.4em#,.5cap#,0dth#); "Zigos"; picture BS; path p[]; Diam = .4w; z0 = (w/2,h/2); x1 = w - x2 = .5curve_sidebar; y1 = .1h; y2 = .9h; z3 = .35[z0,z1]; z4 = .35[z0,z2]; z5 = .5[z1,z3]; pickup pencircle scaled .8pt; p0 = fullcircle scaled .4w shifted (z0); p1 = z1--z2; p2 = z3--z4; p3 = z1--z3; p4 = p3 rotatedabout(z5,90); draw p0; draw p1; undraw p2; draw p4; BS = currentpicture; endchar;