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 ;
 zaaad = zaaab rotated 60.0 ;
pair zaaae ;
 zaaae = zaaab rotated 120.0 ;
pair zaaaf ;
 zaaaf = zaaab rotated 180.0 ;
pair zaaag ;
 zaaag = zaaab rotated 240.0 ;
pair zaaah ;
 zaaah = zaaab rotated 300.0 ;
pair zaaai ;
 zaaai = zaaab rotated 360.0 ;
pair zaaaj ;
 zaaaj = 2cm * right;
pair zaaak ;
 zaaak = zaaaj rotated 0 ;
pair zaaal ;
 zaaal = zaaaj rotated 60.0 ;
pair zaaam ;
 zaaam = zaaaj rotated 120.0 ;
pair zaaan ;
 zaaan = zaaaj rotated 180.0 ;
pair zaaao ;
 zaaao = zaaaj rotated 240.0 ;
pair zaaap ;
 zaaap = zaaaj rotated 300.0 ;
pair zaaaq ;
 zaaaq = zaaaj rotated 360.0 ;
pen qaaar ;
 qaaar = pencircle scaled 4bp ;
draw zaaac   withpen qaaar   ;
 draw zaaad   withpen qaaar   ;
 draw zaaae   withpen qaaar   ;
 draw zaaaf   withpen qaaar   ;
 draw zaaag   withpen qaaar   ;
 draw zaaah   withpen qaaar   ;
 draw zaaai   withpen qaaar   ;
 draw zaaak   withpen qaaar   ;
 draw zaaal   withpen qaaar   ;
 draw zaaam   withpen qaaar   ;
 draw zaaan   withpen qaaar   ;
 draw zaaao   withpen qaaar   ;
 draw zaaap   withpen qaaar   ;
 draw zaaaq   withpen qaaar   ;
 path paaas ;
 paaas:=zaaac -- zaaad -- zaaal -- zaaak;
draw paaas     ;
 path paaat ;
 paaat:=zaaad -- zaaae -- zaaam -- zaaal;
draw paaat     ;
 path paaau ;
 paaau:=zaaae -- zaaaf -- zaaan -- zaaam;
draw paaau     ;
 path paaav ;
 paaav:=zaaaf -- zaaag -- zaaao -- zaaan;
draw paaav     ;
 path paaaw ;
 paaaw:=zaaag -- zaaah -- zaaap -- zaaao;
draw paaaw     ;
 path paaax ;
 paaax:=zaaah -- zaaai -- zaaaq -- zaaap;
draw paaax     ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;