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;
numeric xaaao ;
 pair zaaap ;
 zaaan = zaaam;
pair zaaaq ;
 zaaaq = zaaae - zaaad;
numeric xaaar ;
 pair zaaas ;
 zaaaq = zaaam;
pair zaaat ;
 zaaat = zaaag - zaaaf;
numeric xaaau ;
 pair zaaav ;
 zaaat = zaaam;
pair zaaaw ;
 zaaaw = zaaah - zaaag;
numeric xaaax ;
 pair zaaay ;
 zaaaw = zaaam;
pair zaaaz ;
 zaaaz = zaaai - zaaah;
numeric xaaba ;
 pair zaabb ;
 zaaaz = zaaam;
pair zaabc ;
 zaabc = zaaaj - zaaai;
numeric xaabd ;
 pair zaabe ;
 zaabc = zaaam;
pair zaabf ;
 zaabf = zaaab + zaaac + zaaad + zaaae;
pair zaabg ;
 zaabg = ( 0 , 0 ) ;
zaabf = zaabg;
pair zaabh ;
 zaabh = zaaaf + zaaag + zaaah + zaaai + zaaaj;
numeric xaabi ;
 xaabi = 4.0 * 2cm;
pair zaabj ;
 zaabj = ( xaabi , 0 ) ;
zaabh = zaabj;
pen qaabk ;
 qaabk = pencircle scaled 4bp ;
draw zaaab   withpen qaabk   ;
 pen qaabl ;
 draw zaaac   withpen qaabk   ;
 pen qaabm ;
 draw zaaad   withpen qaabk   ;
 pen qaabn ;
 draw zaaae   withpen qaabk   ;
 pen qaabo ;
 draw zaaaf   withpen qaabk   ;
 pen qaabp ;
 draw zaaag   withpen qaabk   ;
 pen qaabq ;
 draw zaaah   withpen qaabk   ;
 pen qaabr ;
 draw zaaai   withpen qaabk   ;
 pen qaabs ;
 draw zaaaj   withpen qaabk   ;
 path paabt ;
 paabt:=zaaab -- zaaaf;
draw paabt     ;
 path paabu ;
 paabu:=zaaab -- zaaag;
draw paabu     ;
 path paabv ;
 paabv:=zaaab -- zaaah;
draw paabv     ;
 path paabw ;
 paabw:=zaaab -- zaaai;
draw paabw     ;
 path paabx ;
 paabx:=zaaab -- zaaaj;
draw paabx     ;
 path paaby ;
 paaby:=zaaac -- zaaaf;
draw paaby     ;
 path paabz ;
 paabz:=zaaac -- zaaag;
draw paabz     ;
 path paaca ;
 paaca:=zaaac -- zaaah;
draw paaca     ;
 path paacb ;
 paacb:=zaaac -- zaaai;
draw paacb     ;
 path paacc ;
 paacc:=zaaac -- zaaaj;
draw paacc     ;
 path paacd ;
 paacd:=zaaad -- zaaaf;
draw paacd     ;
 path paace ;
 paace:=zaaad -- zaaag;
draw paace     ;
 path paacf ;
 paacf:=zaaad -- zaaah;
draw paacf     ;
 path paacg ;
 paacg:=zaaad -- zaaai;
draw paacg     ;
 path paach ;
 paach:=zaaad -- zaaaj;
draw paach     ;
 path paaci ;
 paaci:=zaaae -- zaaaf;
draw paaci     ;
 path paacj ;
 paacj:=zaaae -- zaaag;
draw paacj     ;
 path paack ;
 paack:=zaaae -- zaaah;
draw paack     ;
 path paacl ;
 paacl:=zaaae -- zaaai;
draw paacl     ;
 path paacm ;
 paacm:=zaaae -- zaaaj;
draw paacm     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;