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;
zaaak = zaaaj;
pair zaaal ;
 zaaal = zaaaf - zaaae;
zaaal = zaaaj;
pair zaaam ;
 zaaam = zaaag - zaaaf;
zaaam = zaaaj;
pair zaaan ;
 zaaan = zaaab + zaaac + zaaad;
pair zaaao ;
 zaaao = ( 0 , 0 ) ;
zaaan = zaaao;
pair zaaap ;
 zaaap = zaaae + zaaaf + zaaag;
numeric xaaaq ;
 xaaaq = 4.0 * 1cm;
pair zaaar ;
 zaaar = ( 0 , xaaaq ) ;
zaaap = zaaar;
pen qaaas ;
 qaaas = pencircle scaled 4bp ;
draw zaaab   withpen qaaas   ;
 draw zaaac   withpen qaaas   ;
 draw zaaad   withpen qaaas   ;
 draw zaaae   withpen qaaas   ;
 draw zaaaf   withpen qaaas   ;
 draw zaaag   withpen qaaas   ;
 path paaat ;
 paaat:=zaaab -- zaaae;
draw paaat     ;
 path paaau ;
 paaau:=zaaab -- zaaaf;
draw paaau     ;
 path paaav ;
 paaav:=zaaab -- zaaag;
draw paaav     ;
 path paaaw ;
 paaaw:=zaaac -- zaaae;
draw paaaw     ;
 path paaax ;
 paaax:=zaaac -- zaaaf;
draw paaax     ;
 path paaay ;
 paaay:=zaaac -- zaaag;
draw paaay     ;
 path paaaz ;
 paaaz:=zaaad -- zaaae;
draw paaaz     ;
 path paaba ;
 paaba:=zaaad -- zaaaf;
draw paaba     ;
 path paabb ;
 paabb:=zaaad -- zaaag;
draw paabb     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;