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     ;
 pen qaaaw ;
 draw zaaac   withpen qaaan   ;
 picture Paaax ;
 Paaax:=btex $C$  etex ;
pair zaaay ;
 zaaay = ( 0 , 1.0 ) ;
pair zaaaz ;
 zaaaz = 3bp * zaaay;
picture Paaba ;
 Paaba:=Paaax shifted zaaad ;
pair zaabb ;
 zaabb = llcorner Paaax ;
pair zaabc ;
 zaabc = lrcorner Paaax ;
pair zaabd ;
 zaabd = ( 0.5 ) [ zaabb , zaabc ] ;
pair zaabe ;
 zaabe = -1.0 * zaabd;
picture Paabf ;
 Paabf:=Paaba shifted zaabe ;
picture Paabg ;
 Paabg:=Paabf shifted zaaaz ;
draw Paabg     ;
 pen qaabh ;
 draw zaaad   withpen qaaan   ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;