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 ) ;
numeric xaaae ;
 pair zaaaf ;
 zaaaf = ( 1cm , xaaac ) ;
path paaag ;
 paaag:=zaaad .. tension 1.1999969482421875 .. zaaaf { down }  ;
path paaah ;
 paaah:=paaag rotated 90.0 ;
path paaai ;
 paaai:=paaah rotated 90.0 ;
path paaaj ;
 paaaj:=paaai rotated 90.0 ;
pair zaaak ;
 zaaak = paaag intersectiontimes paaaj ;
pair zaaal ;
 zaaal = paaah intersectiontimes paaag ;
pair zaaam ;
 zaaam = paaai intersectiontimes paaah ;
pair zaaan ;
 zaaan = paaaj intersectiontimes paaai ;
numeric xaaao ;
 xaaao = xpart zaaak ;
numeric xaaap ;
 xaaap = xpart zaaal ;
numeric xaaaq ;
 xaaaq = xpart zaaam ;
numeric xaaar ;
 xaaar = xpart zaaan ;
numeric xaaas ;
 xaaas = ypart zaaak ;
numeric xaaat ;
 xaaat = ypart zaaal ;
numeric xaaau ;
 xaaau = ypart zaaam ;
numeric xaaav ;
 xaaav = ypart zaaan ;
path paaaw ;
 paaaw:=subpath ( xaaao , xaaat ) of paaag ;
path paaax ;
 paaax:=subpath ( xaaap , xaaau ) of paaah ;
path paaay ;
 paaay:=subpath ( xaaaq , xaaav ) of paaai ;
path paaaz ;
 paaaz:=subpath ( xaaar , xaaas ) of paaaj ;
path paaba ;
 paaba:=paaaw .. paaax .. paaay .. paaaz .. cycle;
color caabb ;
 caabb = 0.79998779296875 * white;
fill paaba  withcolor caabb    ;
 draw paaag     ;
 draw paaah     ;
 draw paaai     ;
 draw paaaj     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;