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 $A$  etex ;
pair zaaag ;
 zaaag = ( -0.6999969482421875 , -0.6999969482421875 ) ;
pair zaaah ;
 zaaah = 3bp * zaaag;
picture Paaai ;
 Paaai:=Paaaf shifted zaaab ;
pair zaaaj ;
 zaaaj = urcorner Paaaf ;
pair zaaak ;
 zaaak = -1.0 * zaaaj;
picture Paaal ;
 Paaal:=Paaai shifted zaaak ;
picture Paaam ;
 Paaam:=Paaal shifted zaaah ;
draw Paaam     ;
 pen qaaan ;
 qaaan = pencircle scaled 3bp ;
draw zaaab   withpen qaaan   ;
 picture Paaao ;
 Paaao:=btex $B$  etex ;
pair zaaap ;
 zaaap = ( 0.6999969482421875 , -0.6999969482421875 ) ;
pair zaaaq ;
 zaaaq = 3bp * zaaap;
picture Paaar ;
 Paaar:=Paaao shifted zaaac ;
pair zaaas ;
 zaaas = ulcorner Paaao ;
pair zaaat ;
 zaaat = -1.0 * zaaas;
picture Paaau ;
 Paaau:=Paaar shifted zaaat ;
picture Paaav ;
 Paaav:=Paaau shifted zaaaq ;
draw Paaav     ;
 draw zaaac   withpen qaaan   ;
 picture Paaaw ;
 Paaaw:=btex $C$  etex ;
pair zaaax ;
 zaaax = ( 0 , 1.0 ) ;
pair zaaay ;
 zaaay = 3bp * zaaax;
picture Paaaz ;
 Paaaz:=Paaaw shifted zaaad ;
pair zaaba ;
 zaaba = llcorner Paaaw ;
pair zaabb ;
 zaabb = lrcorner Paaaw ;
pair zaabc ;
 zaabc = ( 0.5 ) [ zaaba , zaabb ] ;
pair zaabd ;
 zaabd = -1.0 * zaabc;
picture Paabe ;
 Paabe:=Paaaz shifted zaabd ;
picture Paabf ;
 Paabf:=Paabe shifted zaaay ;
draw Paabf     ;
 draw zaaad   withpen qaaan   ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;