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

beginfig(1)
numeric xaaab ;
 xaaab = -1.0 * 1cm;
numeric xaaac ;
 xaaac = -0.1999969482421875 * 1cm;
pair zaaad ;
 zaaad = ( xaaab , xaaac ) ;
pair zaaae ;
 zaaae = ( 1cm , xaaac ) ;
path paaaf ;
 paaaf:=zaaad .. tension 1.1999969482421875 .. zaaae { down }  ;
path paaag ;
 paaag:=paaaf rotated 90.0 ;
path paaah ;
 paaah:=paaag rotated 90.0 ;
path paaai ;
 paaai:=paaah rotated 90.0 ;
pair zaaaj ;
 zaaaj = paaaf intersectiontimes paaai ;
pair zaaak ;
 zaaak = paaag intersectiontimes paaaf ;
pair zaaal ;
 zaaal = paaah intersectiontimes paaag ;
pair zaaam ;
 zaaam = paaai intersectiontimes paaah ;
numeric xaaan ;
 xaaan = xpart zaaaj ;
numeric xaaao ;
 xaaao = xpart zaaak ;
numeric xaaap ;
 xaaap = xpart zaaal ;
numeric xaaaq ;
 xaaaq = xpart zaaam ;
numeric xaaar ;
 xaaar = ypart zaaaj ;
numeric xaaas ;
 xaaas = ypart zaaak ;
numeric xaaat ;
 xaaat = ypart zaaal ;
numeric xaaau ;
 xaaau = ypart zaaam ;
path paaav ;
 paaav:=subpath ( xaaan , xaaas ) of paaaf ;
path paaaw ;
 paaaw:=subpath ( xaaao , xaaat ) of paaag ;
path paaax ;
 paaax:=subpath ( xaaap , xaaau ) of paaah ;
path paaay ;
 paaay:=subpath ( xaaaq , xaaar ) of paaai ;
path paaaz ;
 paaaz:=paaav .. paaaw .. paaax .. paaay .. cycle;
color caaba ;
 caaba = 0.79998779296875 * white;
fill paaaz  withcolor caaba    ;
 draw paaaf     ;
 draw paaag     ;
 draw paaah     ;
 draw paaai     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;