beginchar(oct"005",.4em#,.5cap#,0dth#); "B Diatoniki Martiria"; picture ENQ; path p[]; z0 = (w/2,h/2); x1 = x2 = x4 = .5(w + Diam); y1 = .5(h + Diam); y2 = 0; y3 = y4 = .9h; x3 = .5(w - Diam); pickup pencircle scaled .8pt; p1 = fullcircle scaled Diam shifted (z0); p2 = z1--z2; draw p1; draw p2; filldraw fullcircle scaled .05w shifted (z3); filldraw fullcircle scaled .05w shifted (z4); ENQ = currentpicture; endchar;