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 = zaaae - zaaab;
numeric xaaag ;
 pair zaaah ;
 zaaah = zaaac - zaaad;
pair zaaai ;
 zaaai = xaaag * zaaah;
pair zaaaj ;
 zaaaj = zaaai rotated 90.0 ;
zaaaf = zaaaj;
pair zaaak ;
 zaaak = zaaae - zaaac;
numeric xaaal ;
 pair zaaam ;
 zaaam = zaaab - zaaad;
pair zaaan ;
 zaaan = xaaal * zaaam;
pair zaaao ;
 zaaao = zaaan rotated 90.0 ;
zaaak = zaaao;
path paaap ;
 paaap:=zaaab -- zaaac -- zaaad -- cycle;
draw paaap     ;
 pen qaaaq ;
 qaaaq = pencircle scaled 4bp ;
draw zaaae   withpen qaaaq   ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;