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

beginfig(1)
picture Paaab ;
 Paaab:= nullpicture;
transform Taaac ;
 numeric xaaad ;
 xaaad = 2.0 * 3mm;
path paaae ;
 paaae:=makepath pencircle ;
path paaaf ;
 paaaf:=paaae scaled xaaad ;
color caaag ;
 caaag = 0.79998779296875 * white;
addto Paaab contour paaaf  withcolor caaag    ;
 pair zaaah ;
 zaaah = dir 150.0 ;
pair zaaai ;
 zaaai = 3mm * zaaah;
path paaaj ;
 paaaj:=paaae scaled 3mm ;
path paaak ;
 paaak:=paaaj shifted zaaai ;
addto Paaab contour paaak  withcolor caaag    ;
 pair zaaal ;
 zaaal = dir 30.0 ;
pair zaaam ;
 zaaam = 3mm * zaaal;
path paaan ;
 paaan:=paaaj shifted zaaam ;
addto Paaab contour paaan  withcolor caaag    ;
 pair zaaao ;
 zaaao = ( 0 , 0 ) ;
pair zaaap ;
 zaaap = zaaao transformed Taaac ;
zaaap = zaaao;
pair zaaaq ;
 zaaaq = ( 1.0 , 0 ) ;
pair zaaar ;
 zaaar = zaaaq transformed Taaac ;
pair zaaas ;
 zaaas = ( 1.0 , 1.0 ) ;
zaaar = zaaas;
pair zaaat ;
 zaaat = ( 0 , 1.0 ) ;
pair zaaau ;
 zaaau = zaaat transformed Taaac ;
zaaau = zaaaq;
picture Paaav ;
 Paaav:=Paaab transformed Taaac ;
draw Paaav     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;