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

beginfig(1)
transform Taaab ;
 pair zaaac ;
 zaaac = ( 0 , 0 ) ;
numeric xaaad ;
 xaaad = 2.0 * 1cm;
pair zaaae ;
 zaaae = ( xaaad , 0 ) ;
pair zaaaf ;
 zaaaf = zaaae rotated 90.0 ;
pair zaaag ;
 zaaag = zaaae + zaaaf;
path paaah ;
 paaah:=zaaac -- zaaae -- zaaag -- zaaaf -- cycle;
pair zaaai ;
 zaaai = zaaac transformed Taaab ;
pair zaaaj ;
 zaaaj = ( 0.0999908447265625 ) [ zaaac , zaaae ] ;
zaaai = zaaaj;
pair zaaak ;
 zaaak = zaaae transformed Taaab ;
pair zaaal ;
 zaaal = ( 0.0999908447265625 ) [ zaaae , zaaag ] ;
zaaak = zaaal;
pair zaaam ;
 zaaam = zaaag transformed Taaab ;
pair zaaan ;
 zaaan = ( 0.0999908447265625 ) [ zaaag , zaaaf ] ;
zaaam = zaaan;
color caaao ;
 caaao = 0.79998779296875 * white;
fill paaah  withcolor caaao    ;
 path paaap ;
 paaap:=paaah transformed Taaab ;
fill paaap  withcolor white    ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;