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 ;
 pair zaaag ;
 pair zaaah ;
 pair zaaai ;
 zaaai = zaaae - zaaab;
numeric xaaaj ;
 pair zaaak ;
 zaaak = zaaac - zaaad;
pair zaaal ;
 zaaal = xaaaj * zaaak;
pair zaaam ;
 zaaam = zaaal rotated 90.0 ;
zaaai = zaaam;
numeric xaaan ;
 pair zaaao ;
 zaaao = ( xaaan ) [ zaaac , zaaad ] ;
zaaae = zaaao;
pair zaaap ;
 zaaap = zaaaf - zaaac;
numeric xaaaq ;
 pair zaaar ;
 zaaar = zaaab - zaaad;
pair zaaas ;
 zaaas = xaaaq * zaaar;
pair zaaat ;
 zaaat = zaaas rotated 90.0 ;
zaaap = zaaat;
numeric xaaau ;
 pair zaaav ;
 zaaav = ( xaaau ) [ zaaab , zaaad ] ;
zaaaf = zaaav;
pair zaaaw ;
 zaaaw = zaaag - zaaad;
numeric xaaax ;
 pair zaaay ;
 zaaay = zaaac - zaaab;
pair zaaaz ;
 zaaaz = xaaax * zaaay;
pair zaaba ;
 zaaba = zaaaz rotated 90.0 ;
zaaaw = zaaba;
numeric xaabb ;
 pair zaabc ;
 zaabc = ( xaabb ) [ zaaac , zaaab ] ;
zaaag = zaabc;
numeric xaabd ;
 pair zaabe ;
 zaabe = ( xaabd ) [ zaaab , zaaae ] ;
zaaah = zaabe;
numeric xaabf ;
 pair zaabg ;
 zaabg = ( xaabf ) [ zaaac , zaaaf ] ;
zaaah = zaabg;
path paabh ;
 paabh:=zaaab -- zaaac -- zaaad -- cycle;
path paabi ;
 paabi:=zaaab -- zaaae;
path paabj ;
 paabj:=zaaac -- zaaaf;
path paabk ;
 paabk:=zaaad -- zaaag;
draw paabh     ;
 draw paabi     ;
 draw paabj     ;
 draw paabk     ;
 pen qaabl ;
 qaabl = pencircle scaled 4bp ;
draw zaaah   withpen qaabl   ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;