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 ; paaaf:=paaac shifted zaaae ; draw paaac dashed evenly ; draw paaaf dashed evenly ; pair zaaag ; zaaag = paaac intersectiontimes paaaf ; pair zaaah ; zaaah = paaaf intersectiontimes paaac ; numeric xaaai ; xaaai = xpart zaaag ; numeric xaaaj ; xaaaj = xpart zaaah ; numeric xaaak ; xaaak = ypart zaaag ; numeric xaaal ; xaaal = ypart zaaah ; path paaam ; paaam:=subpath ( xaaai , xaaal ) of paaac ; path paaan ; paaan:=subpath ( xaaaj , xaaak ) of paaaf ; path paaao ; paaao:=paaam .. paaan .. cycle; pen qaaap ; qaaap = pencircle scaled 1bp ; draw paaao withpen qaaap ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;