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

beginfig(1)
picture Paaab ;
 Paaab:= nullpicture;
picture Paaac ;
 Paaac:= nullpicture;
Paaab := currentpicture;
 currentpicture := nullpicture;
 numeric xaaad ;
 xaaad = 2.0 * 3mm;
path paaae ;
 paaae:=makepath pencircle ;
path paaaf ;
 paaaf:=paaae scaled xaaad ;
pair zaaag ;
 zaaag = dir 150.0 ;
pair zaaah ;
 zaaah = 3mm * zaaag;
path paaai ;
 path paaaj ;
 paaaj:=paaae scaled 3mm ;
path paaak ;
 paaak:=paaaj shifted zaaah ;
pair zaaal ;
 zaaal = dir 30.0 ;
pair zaaam ;
 zaaam = 3mm * zaaal;
path paaan ;
 path paaao ;
 path paaap ;
 paaap:=paaaj shifted zaaam ;
color caaaq ;
 caaaq = 0.79998779296875 * white;
fill paaaf  withcolor caaaq    ;
 color caaar ;
 fill paaak  withcolor caaaq    ;
 color caaas ;
 fill paaap  withcolor caaaq    ;
 Paaac := currentpicture;
 currentpicture :=  Paaab ;
 transform Taaat ;
 pair zaaau ;
 zaaau = ( 0 , 0 ) ;
pair zaaav ;
 zaaav = ( 1.0 , 0 ) ;
pair zaaaw ;
 zaaaw = ( 0 , 1.0 ) ;
pair zaaax ;
 pair zaaay ;
 zaaay = ( 1.0 , 1.0 ) ;
pair zaaaz ;
 pair zaaba ;
 zaaba = zaaau transformed Taaat ;
zaaba = zaaau;
pair zaabb ;
 zaabb = zaaav transformed Taaat ;
zaabb = zaaay;
pair zaabc ;
 zaabc = zaaaw transformed Taaat ;
zaabc = zaaav;
picture Paabd ;
 Paabd:=Paaac transformed Taaat ;
draw Paabd     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;