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 ) ;
pair zaaae ;
 pair zaaaf ;
 zaaaf = ( 0.5 ) [ zaaac , zaaad ] ;
pair zaaag ;
 zaaag = zaaae - zaaaf;
numeric xaaah ;
 pair zaaai ;
 zaaai = zaaac - zaaad;
pair zaaaj ;
 zaaaj = zaaai rotated 90.0 ;
pair zaaak ;
 zaaak = xaaah * zaaaj;
zaaag = zaaak;
pair zaaal ;
 zaaal = ( 0.5 ) [ zaaab , zaaac ] ;
pair zaaam ;
 zaaam = zaaae - zaaal;
numeric xaaan ;
 pair zaaao ;
 zaaao = zaaab - zaaac;
pair zaaap ;
 zaaap = zaaao rotated 90.0 ;
pair zaaaq ;
 zaaaq = xaaan * zaaap;
zaaam = zaaaq;
path paaar ;
 paaar:=zaaab -- zaaac -- zaaad -- cycle;
draw paaar     ;
 pen qaaas ;
 qaaas = pencircle scaled 4bp ;
draw zaaae   withpen qaaas   ;
 pair zaaat ;
 zaaat = zaaae - zaaab;
numeric xaaau ;
 xaaau = abs zaaat ;
numeric xaaav ;
 xaaav = 2.0 * xaaau;
path paaaw ;
 paaaw:=makepath pencircle ;
path paaax ;
 paaax:=paaaw scaled xaaav ;
path paaay ;
 paaay:=paaax shifted zaaae ;
draw paaay     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;