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 ;
 zaaaf = ( -0.1999969482421875 ) [ zaaab , zaaac ] ;
pair zaaag ;
 zaaag = ( 1.1999969482421875 ) [ zaaab , zaaac ] ;
path paaah ;
 paaah:=zaaaf -- zaaag;
path paaai ;
 paaai:=paaah rotated 0 ;
draw paaai     ;
 path paaaj ;
 paaaj:=paaah rotated 72.0 ;
draw paaaj     ;
 path paaak ;
 paaak:=paaah rotated 144.0 ;
draw paaak     ;
 path paaal ;
 paaal:=paaah rotated 216.0 ;
draw paaal     ;
 path paaam ;
 paaam:=paaah rotated 288.0 ;
draw paaam     ;
 path paaan ;
 paaan:=paaah rotated 360.0 ;
draw paaan     ;
 pair zaaao ;
 zaaao = zaaae rotated 144.0 ;
path paaap ;
 paaap:=zaaad --- zaaae .. zaaao { right }  ;
pair zaaaq ;
 zaaaq = point 0 of paaap ;
pair zaaar ;
 zaaar = direction 0 of paaap ;
pair zaaas ;
 zaaas = unitvector zaaar ;
pair zaaat ;
 zaaat = 4mm * zaaas;
pair zaaau ;
 zaaau = zaaaq - zaaat;
path paaav ;
 paaav:=zaaau -- zaaaq ;
pair zaaaw ;
 zaaaw = point 2.0 of paaap ;
pair zaaax ;
 zaaax = direction 2.0 of paaap ;
pair zaaay ;
 zaaay = unitvector zaaax ;
pair zaaaz ;
 zaaaz = 4mm * zaaay;
pair zaaba ;
 zaaba = zaaaw + zaaaz;
path paabb ;
 paabb:=zaaaw -- zaaba ;
path paabc ;
 paabc:=paaav & paaap & paabb;
path paabd ;
 paabd:=paabc rotated 72.0 ;
pair zaabe ;
 zaabe = paabc intersectionpoint paabd ;
path paabf ;
 paabf:=makepath pencircle ;
path paabg ;
 paabg:=paabf scaled -2mm ;
path paabh ;
 paabh:=paabg shifted zaabe ;
path paabi ;
 paabi:=paabc cutbefore paabh ;
path paabj ;
 paabj:=paabf scaled 2mm ;
path paabk ;
 paabk:=paabj shifted zaabe ;
path paabl ;
 paabl:=paabc cutafter paabk ;
path paabm ;
 paabm:=paabi rotated 0 ;
draw paabm     ;
 path paabn ;
 paabn:=paabl rotated 0 ;
draw paabn     ;
 pair zaabo ;
 zaabo = zaaab rotated 0 ;
draw zaabo     ;
 pen qaabp ;
 qaabp = pencircle scaled 4bp ;
draw zaabo   withpen qaabp   ;
 pair zaabq ;
 zaabq = zaaad rotated 0 ;
draw zaabq   withpen qaabp   ;
 pair zaabr ;
 zaabr = zaaae rotated 0 ;
draw zaabr   withpen qaabp   ;
 path paabs ;
 paabs:=paabi rotated 72.0 ;
draw paabs     ;
 path paabt ;
 paabt:=paabl rotated 72.0 ;
draw paabt     ;
 draw zaaac     ;
 draw zaaac   withpen qaabp   ;
 pair zaabu ;
 zaabu = zaaad rotated 72.0 ;
draw zaabu   withpen qaabp   ;
 pair zaabv ;
 zaabv = zaaae rotated 72.0 ;
draw zaabv   withpen qaabp   ;
 path paabw ;
 paabw:=paabi rotated 144.0 ;
draw paabw     ;
 path paabx ;
 paabx:=paabl rotated 144.0 ;
draw paabx     ;
 pair zaaby ;
 zaaby = zaaab rotated 144.0 ;
draw zaaby     ;
 draw zaaby   withpen qaabp   ;
 pair zaabz ;
 zaabz = zaaad rotated 144.0 ;
draw zaabz   withpen qaabp   ;
 draw zaaao   withpen qaabp   ;
 path paaca ;
 paaca:=paabi rotated 216.0 ;
draw paaca     ;
 path paacb ;
 paacb:=paabl rotated 216.0 ;
draw paacb     ;
 pair zaacc ;
 zaacc = zaaab rotated 216.0 ;
draw zaacc     ;
 draw zaacc   withpen qaabp   ;
 pair zaacd ;
 zaacd = zaaad rotated 216.0 ;
draw zaacd   withpen qaabp   ;
 pair zaace ;
 zaace = zaaae rotated 216.0 ;
draw zaace   withpen qaabp   ;
 path paacf ;
 paacf:=paabi rotated 288.0 ;
draw paacf     ;
 path paacg ;
 paacg:=paabl rotated 288.0 ;
draw paacg     ;
 pair zaach ;
 zaach = zaaab rotated 288.0 ;
draw zaach     ;
 draw zaach   withpen qaabp   ;
 pair zaaci ;
 zaaci = zaaad rotated 288.0 ;
draw zaaci   withpen qaabp   ;
 pair zaacj ;
 zaacj = zaaae rotated 288.0 ;
draw zaacj   withpen qaabp   ;
 path paack ;
 paack:=paabi rotated 360.0 ;
draw paack     ;
 path paacl ;
 paacl:=paabl rotated 360.0 ;
draw paacl     ;
 pair zaacm ;
 zaacm = zaaab rotated 360.0 ;
draw zaacm     ;
 draw zaacm   withpen qaabp   ;
 pair zaacn ;
 zaacn = zaaad rotated 360.0 ;
draw zaacn   withpen qaabp   ;
 pair zaaco ;
 zaaco = zaaae rotated 360.0 ;
draw zaaco   withpen qaabp   ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;