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 = ( 3cm , 0 ) ;
pair zaaad ;
 zaaad = ( 1cm , 2cm ) ;
path paaae ;
 paaae:=zaaab -- zaaac -- zaaad -- cycle;
draw paaae     ;
 pair zaaaf ;
 zaaaf = zaaad - zaaab;
numeric xaaag ;
 xaaag = angle zaaaf ;
pair zaaah ;
 zaaah = zaaac - zaaab;
numeric xaaai ;
 xaaai = angle zaaah ;
numeric xaaaj ;
 xaaaj = xaaag - xaaai;
string saaak ;
 saaak = decimal xaaaj ;
picture Paaal ;
 Paaal:=TEX  saaak  ;
pair zaaam ;
 zaaam = ( -0.6999969482421875 , -0.6999969482421875 ) ;
pair zaaan ;
 zaaan = 3bp * zaaam;
picture Paaao ;
 Paaao:=Paaal shifted zaaab ;
pair zaaap ;
 zaaap = urcorner Paaal ;
pair zaaaq ;
 zaaaq = -1.0 * zaaap;
picture Paaar ;
 Paaar:=Paaao shifted zaaaq ;
picture Paaas ;
 Paaas:=Paaar shifted zaaan ;
draw Paaas     ;
 pair zaaat ;
 zaaat = zaaab - zaaac;
numeric xaaau ;
 xaaau = angle zaaat ;
pair zaaav ;
 zaaav = zaaad - zaaac;
numeric xaaaw ;
 xaaaw = angle zaaav ;
numeric xaaax ;
 xaaax = xaaau - xaaaw;
string saaay ;
 saaay = decimal xaaax ;
picture Paaaz ;
 Paaaz:=TEX  saaay  ;
pair zaaba ;
 zaaba = ( 0.6999969482421875 , -0.6999969482421875 ) ;
pair zaabb ;
 zaabb = 3bp * zaaba;
picture Paabc ;
 Paabc:=Paaaz shifted zaaac ;
pair zaabd ;
 zaabd = ulcorner Paaaz ;
pair zaabe ;
 zaabe = -1.0 * zaabd;
picture Paabf ;
 Paabf:=Paabc shifted zaabe ;
picture Paabg ;
 Paabg:=Paabf shifted zaabb ;
draw Paabg     ;
 pair zaabh ;
 zaabh = zaaac - zaaad;
numeric xaabi ;
 xaabi = angle zaabh ;
pair zaabj ;
 zaabj = zaaab - zaaad;
numeric xaabk ;
 xaabk = angle zaabj ;
numeric xaabl ;
 xaabl = xaabi - xaabk;
string saabm ;
 saabm = decimal xaabl ;
picture Paabn ;
 Paabn:=TEX  saabm  ;
pair zaabo ;
 zaabo = ( 0.6999969482421875 , 0.6999969482421875 ) ;
pair zaabp ;
 zaabp = 3bp * zaabo;
picture Paabq ;
 Paabq:=Paabn shifted zaaad ;
pair zaabr ;
 zaabr = llcorner Paabn ;
pair zaabs ;
 zaabs = -1.0 * zaabr;
picture Paabt ;
 Paabt:=Paabq shifted zaabs ;
picture Paabu ;
 Paabu:=Paabt shifted zaabp ;
draw Paabu     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;