input TEX;
prologues := 1;
%if scantokens(mpversion) < 1.200:
%   filenametemplate
%else:
%   outputtemplate :=
%fi
% "%j.eps";

beginfig(1)
path paaab ;
 paaab:=makepath pencircle ;
path paaac ;
 paaac:=paaab scaled 1cm ;
numeric xaaad ;
 xaaad = 0.5 * 1cm;
pair zaaae ;
 zaaae = ( 0 , xaaad ) ;
path paaaf ;
 path paaag ;
 path paaah ;
 paaah:=paaac shifted zaaae ;
draw paaac    dashed evenly  ;
 draw paaah    dashed evenly  ;
 pair zaaai ;
 zaaai = paaac intersectiontimes paaah ;
pair zaaaj ;
 zaaaj = paaah intersectiontimes paaac ;
numeric xaaak ;
 xaaak = xpart zaaai ;
numeric xaaal ;
 xaaal = xpart zaaaj ;
numeric xaaam ;
 xaaam = ypart zaaai ;
numeric xaaan ;
 xaaan = ypart zaaaj ;
path paaao ;
 paaao:=subpath ( xaaak , xaaan ) of paaac ;
path paaap ;
 paaap:=subpath ( xaaal , xaaam ) of paaah ;
path paaaq ;
 paaaq:=paaao .. paaap .. cycle;
pen qaaar ;
 qaaar = pencircle scaled 1bp ;
draw paaaq   withpen qaaar   ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;