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 ;
 pair zaaai ;
 pair zaaaj ;
 pair zaaak ;
 zaaak = zaaac - zaaab;
numeric xaaal ;
 xaaal = 0.1999969482421875 * 2cm;
pair zaaam ;
 zaaam = ( 0 , xaaal ) ;
zaaak = zaaam;
pair zaaan ;
 zaaan = zaaad - zaaac;
zaaan = zaaam;
pair zaaao ;
 zaaao = zaaae - zaaad;
zaaao = zaaam;
pair zaaap ;
 zaaap = zaaag - zaaaf;
zaaap = zaaam;
pair zaaaq ;
 zaaaq = zaaah - zaaag;
zaaaq = zaaam;
pair zaaar ;
 zaaar = zaaai - zaaah;
zaaar = zaaam;
pair zaaas ;
 zaaas = zaaaj - zaaai;
zaaas = zaaam;
pair zaaat ;
 zaaat = zaaab + zaaac + zaaad + zaaae;
pair zaaau ;
 zaaau = ( 0 , 0 ) ;
zaaat = zaaau;
pair zaaav ;
 zaaav = zaaaf + zaaag + zaaah + zaaai + zaaaj;
numeric xaaaw ;
 xaaaw = 4.0 * 2cm;
pair zaaax ;
 zaaax = ( xaaaw , 0 ) ;
zaaav = zaaax;
pen qaaay ;
 qaaay = pencircle scaled 4bp ;
draw zaaab   withpen qaaay   ;
 draw zaaac   withpen qaaay   ;
 draw zaaad   withpen qaaay   ;
 draw zaaae   withpen qaaay   ;
 draw zaaaf   withpen qaaay   ;
 draw zaaag   withpen qaaay   ;
 draw zaaah   withpen qaaay   ;
 draw zaaai   withpen qaaay   ;
 draw zaaaj   withpen qaaay   ;
 path paaaz ;
 paaaz:=zaaab -- zaaaf;
draw paaaz     ;
 path paaba ;
 paaba:=zaaab -- zaaag;
draw paaba     ;
 path paabb ;
 paabb:=zaaab -- zaaah;
draw paabb     ;
 path paabc ;
 paabc:=zaaab -- zaaai;
draw paabc     ;
 path paabd ;
 paabd:=zaaab -- zaaaj;
draw paabd     ;
 path paabe ;
 paabe:=zaaac -- zaaaf;
draw paabe     ;
 path paabf ;
 paabf:=zaaac -- zaaag;
draw paabf     ;
 path paabg ;
 paabg:=zaaac -- zaaah;
draw paabg     ;
 path paabh ;
 paabh:=zaaac -- zaaai;
draw paabh     ;
 path paabi ;
 paabi:=zaaac -- zaaaj;
draw paabi     ;
 path paabj ;
 paabj:=zaaad -- zaaaf;
draw paabj     ;
 path paabk ;
 paabk:=zaaad -- zaaag;
draw paabk     ;
 path paabl ;
 paabl:=zaaad -- zaaah;
draw paabl     ;
 path paabm ;
 paabm:=zaaad -- zaaai;
draw paabm     ;
 path paabn ;
 paabn:=zaaad -- zaaaj;
draw paabn     ;
 path paabo ;
 paabo:=zaaae -- zaaaf;
draw paabo     ;
 path paabp ;
 paabp:=zaaae -- zaaag;
draw paabp     ;
 path paabq ;
 paabq:=zaaae -- zaaah;
draw paabq     ;
 path paabr ;
 paabr:=zaaae -- zaaai;
draw paabr     ;
 path paabs ;
 paabs:=zaaae -- zaaaj;
draw paabs     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;