verbatimtex \input{preheader} \begin{document} etex;

defaultfont := "cmr12"; defaultscale := 12pt /fontsize defaultfont;

prologues := 0;

beginfig(1);

  numeric u,R; u:=5mm; R:=4u;

  path cyrc;
  cyrc= (R,0u){dir 90}..{dir 180}(0u,R){dir 180}..{dir -90}(-R,0u){dir
  -90}..{dir 0}(0u,-R){dir 0}..{dir 90}cycle;

  draw cyrc withpen pencircle scaled 0.4u;

  path cyrc_sh;

  cyrc_sh= cyrc shifted (2u,0u);

  draw cyrc_sh withpen pencircle scaled 0.4u;

  

endfig;
end.