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

beginfig(1)
pair zaaab ;
 zaaab = 1cm * right;
pair zaaac ;
 zaaac = zaaab rotated 0 ;
pair zaaad ;
 pair zaaae ;
 zaaae = zaaab rotated 60.0 ;
pair zaaaf ;
 pair zaaag ;
 zaaag = zaaab rotated 120.0 ;
pair zaaah ;
 pair zaaai ;
 zaaai = zaaab rotated 180.0 ;
pair zaaaj ;
 pair zaaak ;
 zaaak = zaaab rotated 240.0 ;
pair zaaal ;
 pair zaaam ;
 zaaam = zaaab rotated 300.0 ;
pair zaaan ;
 pair zaaao ;
 zaaao = zaaab rotated 360.0 ;
pair zaaap ;
 zaaap = 2cm * right;
pair zaaaq ;
 zaaaq = zaaap rotated 0 ;
pair zaaar ;
 pair zaaas ;
 zaaas = zaaap rotated 60.0 ;
pair zaaat ;
 pair zaaau ;
 zaaau = zaaap rotated 120.0 ;
pair zaaav ;
 pair zaaaw ;
 zaaaw = zaaap rotated 180.0 ;
pair zaaax ;
 pair zaaay ;
 zaaay = zaaap rotated 240.0 ;
pair zaaaz ;
 pair zaaba ;
 zaaba = zaaap rotated 300.0 ;
pair zaabb ;
 pair zaabc ;
 zaabc = zaaap rotated 360.0 ;
pen qaabd ;
 qaabd = pencircle scaled 4bp ;
draw zaaac   withpen qaabd   ;
 pen qaabe ;
 draw zaaae   withpen qaabd   ;
 pen qaabf ;
 draw zaaag   withpen qaabd   ;
 pen qaabg ;
 draw zaaai   withpen qaabd   ;
 pen qaabh ;
 draw zaaak   withpen qaabd   ;
 pen qaabi ;
 draw zaaam   withpen qaabd   ;
 pen qaabj ;
 draw zaaao   withpen qaabd   ;
 pen qaabk ;
 draw zaaaq   withpen qaabd   ;
 pen qaabl ;
 draw zaaas   withpen qaabd   ;
 pen qaabm ;
 draw zaaau   withpen qaabd   ;
 pen qaabn ;
 draw zaaaw   withpen qaabd   ;
 pen qaabo ;
 draw zaaay   withpen qaabd   ;
 pen qaabp ;
 draw zaaba   withpen qaabd   ;
 pen qaabq ;
 draw zaabc   withpen qaabd   ;
 path paabr ;
 paabr:=zaaac -- zaaae -- zaaas -- zaaaq;
draw paabr     ;
 path paabs ;
 paabs:=zaaae -- zaaag -- zaaau -- zaaas;
draw paabs     ;
 path paabt ;
 paabt:=zaaag -- zaaai -- zaaaw -- zaaau;
draw paabt     ;
 path paabu ;
 paabu:=zaaai -- zaaak -- zaaay -- zaaaw;
draw paabu     ;
 path paabv ;
 paabv:=zaaak -- zaaam -- zaaba -- zaaay;
draw paabv     ;
 path paabw ;
 paabw:=zaaam -- zaaao -- zaabc -- zaaba;
draw paabw     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;