input TEX;
prologues := 1;
%if scantokens(mpversion) < 1.200:
%   filenametemplate
%else:
%   outputtemplate :=
%fi
% "%j.eps";

beginfig(1)
pair zaaab ;
 pair zaaac ;
 pair zaaad ;
 pair zaaae ;
 pair zaaaf ;
 pair zaaag ;
 pair zaaah ;
 zaaah = zaaac - zaaab;
numeric xaaai ;
 xaaai = 0.5 * 1cm;
pair zaaaj ;
 zaaaj = ( xaaai , 0 ) ;
zaaah = zaaaj;
pair zaaak ;
 zaaak = zaaad - zaaac;
numeric xaaal ;
 pair zaaam ;
 zaaak = zaaaj;
pair zaaan ;
 zaaan = zaaaf - zaaae;
numeric xaaao ;
 pair zaaap ;
 zaaan = zaaaj;
pair zaaaq ;
 zaaaq = zaaag - zaaaf;
numeric xaaar ;
 pair zaaas ;
 zaaaq = zaaaj;
pair zaaat ;
 zaaat = zaaab + zaaac + zaaad;
pair zaaau ;
 zaaau = ( 0 , 0 ) ;
zaaat = zaaau;
pair zaaav ;
 zaaav = zaaae + zaaaf + zaaag;
numeric xaaaw ;
 xaaaw = 4.0 * 1cm;
pair zaaax ;
 zaaax = ( 0 , xaaaw ) ;
zaaav = zaaax;
pen qaaay ;
 qaaay = pencircle scaled 4bp ;
draw zaaab   withpen qaaay   ;
 pen qaaaz ;
 draw zaaac   withpen qaaay   ;
 pen qaaba ;
 draw zaaad   withpen qaaay   ;
 pen qaabb ;
 draw zaaae   withpen qaaay   ;
 pen qaabc ;
 draw zaaaf   withpen qaaay   ;
 pen qaabd ;
 draw zaaag   withpen qaaay   ;
 path paabe ;
 paabe:=zaaab -- zaaae;
draw paabe     ;
 path paabf ;
 paabf:=zaaab -- zaaaf;
draw paabf     ;
 path paabg ;
 paabg:=zaaab -- zaaag;
draw paabg     ;
 path paabh ;
 paabh:=zaaac -- zaaae;
draw paabh     ;
 path paabi ;
 paabi:=zaaac -- zaaaf;
draw paabi     ;
 path paabj ;
 paabj:=zaaac -- zaaag;
draw paabj     ;
 path paabk ;
 paabk:=zaaad -- zaaae;
draw paabk     ;
 path paabl ;
 paabl:=zaaad -- zaaaf;
draw paabl     ;
 path paabm ;
 paabm:=zaaad -- zaaag;
draw paabm     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;