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

beginfig(1)
pair zaaab ;
 zaaab = ( 0 , 0 ) ;
pair zaaac ;
 zaaac = ( 1cm , 0 ) ;
pair zaaad ;
 zaaad = ( 0 , 1cm ) ;
path paaae ;
 paaae:=zaaab -- zaaac -- zaaad -- cycle;
draw paaae     ;
 path paaaf ;
 paaaf:=makepath pencircle ;
path paaag ;
 paaag:=paaaf scaled 4bp ;
path paaah ;
 paaah:=paaag shifted zaaab ;
fill paaah  withcolor white    ;
 path paaai ;
 path paaaj ;
 path paaak ;
 paaak:=paaag shifted zaaac ;
fill paaak  withcolor white    ;
 path paaal ;
 path paaam ;
 path paaan ;
 paaan:=paaag shifted zaaad ;
fill paaan  withcolor white    ;
 path paaao ;
 path paaap ;
 path paaaq ;
 draw paaah     ;
 path paaar ;
 path paaas ;
 path paaat ;
 draw paaak     ;
 path paaau ;
 path paaav ;
 path paaaw ;
 draw paaan     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;