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     ;
 picture Paaaq ;
 pair zaaar ;
 zaaar = ( 0.5 ) [ zaaab , zaaad ] ;
pair zaaas ;
 zaaas = ( -1.0 , 0 ) ;
pair zaaat ;
 zaaat = 3bp * zaaas;
picture Paaau ;
 Paaau:=Paaaf shifted zaaar ;
pair zaaav ;
 zaaav = lrcorner Paaaf ;
pair zaaaw ;
 pair zaaax ;
 zaaax = ( 0.5 ) [ zaaav , zaaal ] ;
pair zaaay ;
 zaaay = -1.0 * zaaax;
picture Paaaz ;
 Paaaz:=Paaau shifted zaaay ;
picture Paaba ;
 Paaba:=Paaaz shifted zaaat ;
draw Paaba     ;
 picture Paabb ;
 Paabb:=btex $\sqrt 2$  etex ;
pair zaabc ;
 zaabc = ( 0.5 ) [ zaaac , zaaad ] ;
pair zaabd ;
 zaabd = ( 0.6999969482421875 , 0.6999969482421875 ) ;
pair zaabe ;
 zaabe = 3bp * zaabd;
picture Paabf ;
 Paabf:=Paabb shifted zaabc ;
pair zaabg ;
 zaabg = llcorner Paabb ;
pair zaabh ;
 zaabh = -1.0 * zaabg;
picture Paabi ;
 Paabi:=Paabf shifted zaabh ;
picture Paabj ;
 Paabj:=Paabi shifted zaabe ;
draw Paabj     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;