beginchar(oct"004",.4em#,.5cap#,0dth#); "A Diatoniki Martiria"; 
picture EOT;
 path p[];

 z0 = (w/2,h/2);
 x1 = x2 = .5(w + Diam);
 y1 = .5(h + Diam);
 y2 = 0;

 pickup pencircle scaled .8pt;
 p1 = fullcircle scaled Diam shifted (z0);
 p2 = z1--z2;
 draw p1;
 draw p2;
 EOT = currentpicture;
 endchar;