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     ;
 picture Paaaf ;
 Paaaf:=btex $1$  etex ;
pair zaaag ;
 zaaag = ( 0.5 ) [ zaaab , zaaac ] ;
pair zaaah ;
 zaaah = ( 0 , -1.0 ) ;
pair zaaai ;
 zaaai = 3bp * zaaah;
picture Paaaj ;
 Paaaj:=Paaaf shifted zaaag ;
pair zaaak ;
 zaaak = ulcorner Paaaf ;
pair zaaal ;
 zaaal = urcorner Paaaf ;
pair zaaam ;
 zaaam = ( 0.5 ) [ zaaak , zaaal ] ;
pair zaaan ;
 zaaan = -1.0 * zaaam;
picture Paaao ;
 Paaao:=Paaaj shifted zaaan ;
picture Paaap ;
 Paaap:=Paaao shifted zaaai ;
draw Paaap     ;
 pair zaaaq ;
 zaaaq = ( 0.5 ) [ zaaab , zaaad ] ;
pair zaaar ;
 zaaar = ( -1.0 , 0 ) ;
pair zaaas ;
 zaaas = 3bp * zaaar;
picture Paaat ;
 Paaat:=Paaaf shifted zaaaq ;
pair zaaau ;
 zaaau = lrcorner Paaaf ;
pair zaaav ;
 zaaav = ( 0.5 ) [ zaaau , zaaal ] ;
pair zaaaw ;
 zaaaw = -1.0 * zaaav;
picture Paaax ;
 Paaax:=Paaat shifted zaaaw ;
picture Paaay ;
 Paaay:=Paaax shifted zaaas ;
draw Paaay     ;
 picture Paaaz ;
 Paaaz:=btex $\sqrt 2$  etex ;
pair zaaba ;
 zaaba = ( 0.5 ) [ zaaac , zaaad ] ;
pair zaabb ;
 zaabb = ( 0.6999969482421875 , 0.6999969482421875 ) ;
pair zaabc ;
 zaabc = 3bp * zaabb;
picture Paabd ;
 Paabd:=Paaaz shifted zaaba ;
pair zaabe ;
 zaabe = llcorner Paaaz ;
pair zaabf ;
 zaabf = -1.0 * zaabe;
picture Paabg ;
 Paabg:=Paabd shifted zaabf ;
picture Paabh ;
 Paabh:=Paabg shifted zaabc ;
draw Paabh     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;