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;