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

beginfig(1)
pair zaaab ;
 zaaab = 2cm * up;
pair zaaac ;
 zaaac = zaaab rotated 72.0 ;
pair zaaad ;
 zaaad = ( 0.5 ) [ zaaab , zaaac ] ;
pair zaaae ;
 zaaae = 0.79998779296875 * zaaad;
pair zaaaf ;
 pair zaaag ;
 zaaag = ( -0.1999969482421875 ) [ zaaab , zaaac ] ;
pair zaaah ;
 pair zaaai ;
 zaaai = ( 1.1999969482421875 ) [ zaaab , zaaac ] ;
path paaaj ;
 paaaj:=zaaag -- zaaai;
path paaak ;
 paaak:=paaaj rotated 0 ;
draw paaak     ;
 path paaal ;
 paaal:=paaaj rotated 72.0 ;
draw paaal     ;
 path paaam ;
 paaam:=paaaj rotated 144.0 ;
draw paaam     ;
 path paaan ;
 paaan:=paaaj rotated 216.0 ;
draw paaan     ;
 path paaao ;
 paaao:=paaaj rotated 288.0 ;
draw paaao     ;
 path paaap ;
 paaap:=paaaj rotated 360.0 ;
draw paaap     ;
 pair zaaaq ;
 zaaaq = zaaae rotated 144.0 ;
path paaar ;
 paaar:=zaaad --- zaaae .. zaaaq { right }  ;
pair zaaas ;
 zaaas = point 0 of paaar ;
pair zaaat ;
 zaaat = direction 0 of paaar ;
pair zaaau ;
 zaaau = unitvector zaaat ;
pair zaaav ;
 zaaav = 4mm * zaaau;
pair zaaaw ;
 zaaaw = zaaas - zaaav;
pair zaaax ;
 path paaay ;
 paaay:=zaaaw -- zaaas ;
pair zaaaz ;
 zaaaz = point 2.0 of paaar ;
pair zaaba ;
 pair zaabb ;
 zaabb = direction 2.0 of paaar ;
pair zaabc ;
 zaabc = unitvector zaabb ;
pair zaabd ;
 zaabd = 4mm * zaabc;
pair zaabe ;
 zaabe = zaaaz + zaabd;
path paabf ;
 paabf:=zaaaz -- zaabe ;
path paabg ;
 paabg:=paaay & paaar & paabf;
path paabh ;
 paabh:=paabg rotated 72.0 ;
pair zaabi ;
 zaabi = paabg intersectionpoint paabh ;
path paabj ;
 paabj:=makepath pencircle ;
path paabk ;
 paabk:=paabj scaled -2mm ;
path paabl ;
 paabl:=paabk shifted zaabi ;
path paabm ;
 paabm:=paabg cutbefore paabl ;
path paabn ;
 path paabo ;
 paabo:=paabj scaled 2mm ;
path paabp ;
 paabp:=paabo shifted zaabi ;
path paabq ;
 paabq:=paabg cutafter paabp ;
path paabr ;
 paabr:=paabm rotated 0 ;
draw paabr     ;
 path paabs ;
 paabs:=paabq rotated 0 ;
draw paabs     ;
 pair zaabt ;
 zaabt = zaaab rotated 0 ;
draw zaabt     ;
 pair zaabu ;
 pen qaabv ;
 qaabv = pencircle scaled 4bp ;
draw zaabt   withpen qaabv   ;
 pair zaabw ;
 zaabw = zaaad rotated 0 ;
pen qaabx ;
 draw zaabw   withpen qaabv   ;
 pair zaaby ;
 zaaby = zaaae rotated 0 ;
pen qaabz ;
 draw zaaby   withpen qaabv   ;
 path paaca ;
 paaca:=paabm rotated 72.0 ;
draw paaca     ;
 path paacb ;
 paacb:=paabq rotated 72.0 ;
draw paacb     ;
 pair zaacc ;
 draw zaaac     ;
 pair zaacd ;
 pen qaace ;
 draw zaaac   withpen qaabv   ;
 pair zaacf ;
 zaacf = zaaad rotated 72.0 ;
pen qaacg ;
 draw zaacf   withpen qaabv   ;
 pair zaach ;
 zaach = zaaae rotated 72.0 ;
pen qaaci ;
 draw zaach   withpen qaabv   ;
 path paacj ;
 paacj:=paabm rotated 144.0 ;
draw paacj     ;
 path paack ;
 paack:=paabq rotated 144.0 ;
draw paack     ;
 pair zaacl ;
 zaacl = zaaab rotated 144.0 ;
draw zaacl     ;
 pair zaacm ;
 pen qaacn ;
 draw zaacl   withpen qaabv   ;
 pair zaaco ;
 zaaco = zaaad rotated 144.0 ;
pen qaacp ;
 draw zaaco   withpen qaabv   ;
 pair zaacq ;
 pen qaacr ;
 draw zaaaq   withpen qaabv   ;
 path paacs ;
 paacs:=paabm rotated 216.0 ;
draw paacs     ;
 path paact ;
 paact:=paabq rotated 216.0 ;
draw paact     ;
 pair zaacu ;
 zaacu = zaaab rotated 216.0 ;
draw zaacu     ;
 pair zaacv ;
 pen qaacw ;
 draw zaacu   withpen qaabv   ;
 pair zaacx ;
 zaacx = zaaad rotated 216.0 ;
pen qaacy ;
 draw zaacx   withpen qaabv   ;
 pair zaacz ;
 zaacz = zaaae rotated 216.0 ;
pen qaada ;
 draw zaacz   withpen qaabv   ;
 path paadb ;
 paadb:=paabm rotated 288.0 ;
draw paadb     ;
 path paadc ;
 paadc:=paabq rotated 288.0 ;
draw paadc     ;
 pair zaadd ;
 zaadd = zaaab rotated 288.0 ;
draw zaadd     ;
 pair zaade ;
 pen qaadf ;
 draw zaadd   withpen qaabv   ;
 pair zaadg ;
 zaadg = zaaad rotated 288.0 ;
pen qaadh ;
 draw zaadg   withpen qaabv   ;
 pair zaadi ;
 zaadi = zaaae rotated 288.0 ;
pen qaadj ;
 draw zaadi   withpen qaabv   ;
 path paadk ;
 paadk:=paabm rotated 360.0 ;
draw paadk     ;
 path paadl ;
 paadl:=paabq rotated 360.0 ;
draw paadl     ;
 pair zaadm ;
 zaadm = zaaab rotated 360.0 ;
draw zaadm     ;
 pair zaadn ;
 pen qaado ;
 draw zaadm   withpen qaabv   ;
 pair zaadp ;
 zaadp = zaaad rotated 360.0 ;
pen qaadq ;
 draw zaadp   withpen qaabv   ;
 pair zaadr ;
 zaadr = zaaae rotated 360.0 ;
pen qaads ;
 draw zaadr   withpen qaabv   ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;