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 = zaaac rotated 72.0 ;
pair zaaae ;
 zaaae = zaaad rotated 72.0 ;
pair zaaaf ;
 zaaaf = zaaae rotated 72.0 ;
pair zaaag ;
 zaaag = zaaaf rotated 72.0 ;
pair zaaah ;
 zaaah = zaaag rotated 72.0 ;
pair zaaai ;
 zaaai = zaaah rotated 72.0 ;
pair zaaaj ;
 zaaaj = zaaai rotated 72.0 ;
pair zaaak ;
 zaaak = zaaaj rotated 72.0 ;
pair zaaal ;
 zaaal = zaaak rotated 72.0 ;
pair zaaam ;
 zaaam = ( 0.5 ) [ zaaab , zaaac ] ;
pair zaaan ;
 zaaan = ( 0.5 ) [ zaaac , zaaad ] ;
pair zaaao ;
 zaaao = ( 0.5 ) [ zaaad , zaaae ] ;
pair zaaap ;
 zaaap = ( 0.5 ) [ zaaae , zaaaf ] ;
pair zaaaq ;
 zaaaq = ( 0.5 ) [ zaaaf , zaaag ] ;
pair zaaar ;
 zaaar = ( 0.5 ) [ zaaag , zaaah ] ;
pair zaaas ;
 zaaas = ( 0.5 ) [ zaaah , zaaai ] ;
pair zaaat ;
 zaaat = ( 0.5 ) [ zaaai , zaaaj ] ;
pair zaaau ;
 zaaau = ( 0.5 ) [ zaaaj , zaaak ] ;
pair zaaav ;
 zaaav = ( 0.5 ) [ zaaak , zaaal ] ;
pair zaaaw ;
 zaaaw = 0.79998779296875 * zaaam;
pair zaaax ;
 zaaax = 0.79998779296875 * zaaan;
pair zaaay ;
 zaaay = 0.79998779296875 * zaaao;
pair zaaaz ;
 zaaaz = 0.79998779296875 * zaaap;
pair zaaba ;
 zaaba = 0.79998779296875 * zaaaq;
pair zaabb ;
 zaabb = 0.79998779296875 * zaaas;
pair zaabc ;
 zaabc = 0.79998779296875 * zaaat;
pair zaabd ;
 zaabd = 0.79998779296875 * zaaau;
pair zaabe ;
 zaabe = 0.79998779296875 * zaaav;
path paabf ;
 paabf:=zaaab -- zaaac;
draw paabf     ;
 pair zaabg ;
 zaabg = point 1.0 of paabf ;
pair zaabh ;
 zaabh = direction 1.0 of paabf ;
pair zaabi ;
 zaabi = unitvector zaabh ;
pair zaabj ;
 zaabj = 4mm * zaabi;
pair zaabk ;
 zaabk = zaabg + zaabj;
path paabl ;
 paabl:=zaabg -- zaabk;
draw paabl     ;
 pair zaabm ;
 zaabm = point 0 of paabf ;
pair zaabn ;
 zaabn = direction 0 of paabf ;
pair zaabo ;
 zaabo = unitvector zaabn ;
pair zaabp ;
 zaabp = 4mm * zaabo;
pair zaabq ;
 zaabq = zaabm - zaabp;
path paabr ;
 paabr:=zaabm -- zaabq;
draw paabr     ;
 path paabs ;
 paabs:=zaaac -- zaaad;
draw paabs     ;
 pair zaabt ;
 zaabt = point 1.0 of paabs ;
pair zaabu ;
 zaabu = direction 1.0 of paabs ;
pair zaabv ;
 zaabv = unitvector zaabu ;
pair zaabw ;
 zaabw = 4mm * zaabv;
pair zaabx ;
 zaabx = zaabt + zaabw;
path paaby ;
 paaby:=zaabt -- zaabx;
draw paaby     ;
 pair zaabz ;
 zaabz = point 0 of paabs ;
pair zaaca ;
 zaaca = direction 0 of paabs ;
pair zaacb ;
 zaacb = unitvector zaaca ;
pair zaacc ;
 zaacc = 4mm * zaacb;
pair zaacd ;
 zaacd = zaabz - zaacc;
path paace ;
 paace:=zaabz -- zaacd;
draw paace     ;
 path paacf ;
 paacf:=zaaad -- zaaae;
draw paacf     ;
 pair zaacg ;
 zaacg = point 1.0 of paacf ;
pair zaach ;
 zaach = direction 1.0 of paacf ;
pair zaaci ;
 zaaci = unitvector zaach ;
pair zaacj ;
 zaacj = 4mm * zaaci;
pair zaack ;
 zaack = zaacg + zaacj;
path paacl ;
 paacl:=zaacg -- zaack;
draw paacl     ;
 pair zaacm ;
 zaacm = point 0 of paacf ;
pair zaacn ;
 zaacn = direction 0 of paacf ;
pair zaaco ;
 zaaco = unitvector zaacn ;
pair zaacp ;
 zaacp = 4mm * zaaco;
pair zaacq ;
 zaacq = zaacm - zaacp;
path paacr ;
 paacr:=zaacm -- zaacq;
draw paacr     ;
 path paacs ;
 paacs:=zaaae -- zaaaf;
draw paacs     ;
 pair zaact ;
 zaact = point 1.0 of paacs ;
pair zaacu ;
 zaacu = direction 1.0 of paacs ;
pair zaacv ;
 zaacv = unitvector zaacu ;
pair zaacw ;
 zaacw = 4mm * zaacv;
pair zaacx ;
 zaacx = zaact + zaacw;
path paacy ;
 paacy:=zaact -- zaacx;
draw paacy     ;
 pair zaacz ;
 zaacz = point 0 of paacs ;
pair zaada ;
 zaada = direction 0 of paacs ;
pair zaadb ;
 zaadb = unitvector zaada ;
pair zaadc ;
 zaadc = 4mm * zaadb;
pair zaadd ;
 zaadd = zaacz - zaadc;
path paade ;
 paade:=zaacz -- zaadd;
draw paade     ;
 path paadf ;
 paadf:=zaaaf -- zaaag;
draw paadf     ;
 pair zaadg ;
 zaadg = point 1.0 of paadf ;
pair zaadh ;
 zaadh = direction 1.0 of paadf ;
pair zaadi ;
 zaadi = unitvector zaadh ;
pair zaadj ;
 zaadj = 4mm * zaadi;
pair zaadk ;
 zaadk = zaadg + zaadj;
path paadl ;
 paadl:=zaadg -- zaadk;
draw paadl     ;
 pair zaadm ;
 zaadm = point 0 of paadf ;
pair zaadn ;
 zaadn = direction 0 of paadf ;
pair zaado ;
 zaado = unitvector zaadn ;
pair zaadp ;
 zaadp = 4mm * zaado;
pair zaadq ;
 zaadq = zaadm - zaadp;
path paadr ;
 paadr:=zaadm -- zaadq;
draw paadr     ;
 path paads ;
 paads:=zaaag -- zaaah;
draw paads     ;
 pair zaadt ;
 zaadt = point 1.0 of paads ;
pair zaadu ;
 zaadu = direction 1.0 of paads ;
pair zaadv ;
 zaadv = unitvector zaadu ;
pair zaadw ;
 zaadw = 4mm * zaadv;
pair zaadx ;
 zaadx = zaadt + zaadw;
path paady ;
 paady:=zaadt -- zaadx;
draw paady     ;
 pair zaadz ;
 zaadz = point 0 of paads ;
pair zaaea ;
 zaaea = direction 0 of paads ;
pair zaaeb ;
 zaaeb = unitvector zaaea ;
pair zaaec ;
 zaaec = 4mm * zaaeb;
pair zaaed ;
 zaaed = zaadz - zaaec;
path paaee ;
 paaee:=zaadz -- zaaed;
draw paaee     ;
 path paaef ;
 paaef:=zaaah -- zaaai;
draw paaef     ;
 pair zaaeg ;
 zaaeg = point 1.0 of paaef ;
pair zaaeh ;
 zaaeh = direction 1.0 of paaef ;
pair zaaei ;
 zaaei = unitvector zaaeh ;
pair zaaej ;
 zaaej = 4mm * zaaei;
pair zaaek ;
 zaaek = zaaeg + zaaej;
path paael ;
 paael:=zaaeg -- zaaek;
draw paael     ;
 pair zaaem ;
 zaaem = point 0 of paaef ;
pair zaaen ;
 zaaen = direction 0 of paaef ;
pair zaaeo ;
 zaaeo = unitvector zaaen ;
pair zaaep ;
 zaaep = 4mm * zaaeo;
pair zaaeq ;
 zaaeq = zaaem - zaaep;
path paaer ;
 paaer:=zaaem -- zaaeq;
draw paaer     ;
 path paaes ;
 paaes:=zaaai -- zaaaj;
draw paaes     ;
 pair zaaet ;
 zaaet = point 1.0 of paaes ;
pair zaaeu ;
 zaaeu = direction 1.0 of paaes ;
pair zaaev ;
 zaaev = unitvector zaaeu ;
pair zaaew ;
 zaaew = 4mm * zaaev;
pair zaaex ;
 zaaex = zaaet + zaaew;
path paaey ;
 paaey:=zaaet -- zaaex;
draw paaey     ;
 pair zaaez ;
 zaaez = point 0 of paaes ;
pair zaafa ;
 zaafa = direction 0 of paaes ;
pair zaafb ;
 zaafb = unitvector zaafa ;
pair zaafc ;
 zaafc = 4mm * zaafb;
pair zaafd ;
 zaafd = zaaez - zaafc;
path paafe ;
 paafe:=zaaez -- zaafd;
draw paafe     ;
 path paaff ;
 paaff:=zaaaj -- zaaak;
draw paaff     ;
 pair zaafg ;
 zaafg = point 1.0 of paaff ;
pair zaafh ;
 zaafh = direction 1.0 of paaff ;
pair zaafi ;
 zaafi = unitvector zaafh ;
pair zaafj ;
 zaafj = 4mm * zaafi;
pair zaafk ;
 zaafk = zaafg + zaafj;
path paafl ;
 paafl:=zaafg -- zaafk;
draw paafl     ;
 pair zaafm ;
 zaafm = point 0 of paaff ;
pair zaafn ;
 zaafn = direction 0 of paaff ;
pair zaafo ;
 zaafo = unitvector zaafn ;
pair zaafp ;
 zaafp = 4mm * zaafo;
pair zaafq ;
 zaafq = zaafm - zaafp;
path paafr ;
 paafr:=zaafm -- zaafq;
draw paafr     ;
 path paafs ;
 paafs:=zaaak -- zaaal;
draw paafs     ;
 pair zaaft ;
 zaaft = point 1.0 of paafs ;
pair zaafu ;
 zaafu = direction 1.0 of paafs ;
pair zaafv ;
 zaafv = unitvector zaafu ;
pair zaafw ;
 zaafw = 4mm * zaafv;
pair zaafx ;
 zaafx = zaaft + zaafw;
path paafy ;
 paafy:=zaaft -- zaafx;
draw paafy     ;
 pair zaafz ;
 zaafz = point 0 of paafs ;
pair zaaga ;
 zaaga = direction 0 of paafs ;
pair zaagb ;
 zaagb = unitvector zaaga ;
pair zaagc ;
 zaagc = 4mm * zaagb;
pair zaagd ;
 zaagd = zaafz - zaagc;
path paage ;
 paage:=zaafz -- zaagd;
draw paage     ;
 pair zaagf ;
 zaagf = dir 0 ;
path paagg ;
 paagg:=zaaam --- zaaaw .. zaaay { zaagf }  ;
draw paagg     ;
 pair zaagh ;
 zaagh = point 2.0 of paagg ;
pair zaagi ;
 zaagi = direction 2.0 of paagg ;
pair zaagj ;
 zaagj = unitvector zaagi ;
pair zaagk ;
 zaagk = 4mm * zaagj;
pair zaagl ;
 zaagl = zaagh + zaagk;
path paagm ;
 paagm:=zaagh -- zaagl;
draw paagm     ;
 pair zaagn ;
 zaagn = point 0 of paagg ;
pair zaago ;
 zaago = direction 0 of paagg ;
pair zaagp ;
 zaagp = unitvector zaago ;
pair zaagq ;
 zaagq = 4mm * zaagp;
pair zaagr ;
 zaagr = zaagn - zaagq;
path paags ;
 paags:=zaagn -- zaagr;
draw paags     ;
 pair zaagt ;
 zaagt = dir 72.0 ;
path paagu ;
 paagu:=zaaan --- zaaax .. zaaaz { zaagt }  ;
draw paagu     ;
 pair zaagv ;
 zaagv = point 2.0 of paagu ;
pair zaagw ;
 zaagw = direction 2.0 of paagu ;
pair zaagx ;
 zaagx = unitvector zaagw ;
pair zaagy ;
 zaagy = 4mm * zaagx;
pair zaagz ;
 zaagz = zaagv + zaagy;
path paaha ;
 paaha:=zaagv -- zaagz;
draw paaha     ;
 pair zaahb ;
 zaahb = point 0 of paagu ;
pair zaahc ;
 zaahc = direction 0 of paagu ;
pair zaahd ;
 zaahd = unitvector zaahc ;
pair zaahe ;
 zaahe = 4mm * zaahd;
pair zaahf ;
 zaahf = zaahb - zaahe;
path paahg ;
 paahg:=zaahb -- zaahf;
draw paahg     ;
 pair zaahh ;
 zaahh = dir 144.0 ;
path paahi ;
 paahi:=zaaao --- zaaay .. zaaba { zaahh }  ;
draw paahi     ;
 pair zaahj ;
 zaahj = point 2.0 of paahi ;
pair zaahk ;
 zaahk = direction 2.0 of paahi ;
pair zaahl ;
 zaahl = unitvector zaahk ;
pair zaahm ;
 zaahm = 4mm * zaahl;
pair zaahn ;
 zaahn = zaahj + zaahm;
path paaho ;
 paaho:=zaahj -- zaahn;
draw paaho     ;
 pair zaahp ;
 zaahp = point 0 of paahi ;
pair zaahq ;
 zaahq = direction 0 of paahi ;
pair zaahr ;
 zaahr = unitvector zaahq ;
pair zaahs ;
 zaahs = 4mm * zaahr;
pair zaaht ;
 zaaht = zaahp - zaahs;
path paahu ;
 paahu:=zaahp -- zaaht;
draw paahu     ;
 pair zaahv ;
 zaahv = dir 216.0 ;
path paahw ;
 paahw:=zaaap --- zaaaz .. zaaaw { zaahv }  ;
draw paahw     ;
 pair zaahx ;
 zaahx = point 2.0 of paahw ;
pair zaahy ;
 zaahy = direction 2.0 of paahw ;
pair zaahz ;
 zaahz = unitvector zaahy ;
pair zaaia ;
 zaaia = 4mm * zaahz;
pair zaaib ;
 zaaib = zaahx + zaaia;
path paaic ;
 paaic:=zaahx -- zaaib;
draw paaic     ;
 pair zaaid ;
 zaaid = point 0 of paahw ;
pair zaaie ;
 zaaie = direction 0 of paahw ;
pair zaaif ;
 zaaif = unitvector zaaie ;
pair zaaig ;
 zaaig = 4mm * zaaif;
pair zaaih ;
 zaaih = zaaid - zaaig;
path paaii ;
 paaii:=zaaid -- zaaih;
draw paaii     ;
 pair zaaij ;
 zaaij = dir 288.0 ;
path paaik ;
 paaik:=zaaaq --- zaaba .. zaabb { zaaij }  ;
draw paaik     ;
 pair zaail ;
 zaail = point 2.0 of paaik ;
pair zaaim ;
 zaaim = direction 2.0 of paaik ;
pair zaain ;
 zaain = unitvector zaaim ;
pair zaaio ;
 zaaio = 4mm * zaain;
pair zaaip ;
 zaaip = zaail + zaaio;
path paaiq ;
 paaiq:=zaail -- zaaip;
draw paaiq     ;
 pair zaair ;
 zaair = point 0 of paaik ;
pair zaais ;
 zaais = direction 0 of paaik ;
pair zaait ;
 zaait = unitvector zaais ;
pair zaaiu ;
 zaaiu = 4mm * zaait;
pair zaaiv ;
 zaaiv = zaair - zaaiu;
path paaiw ;
 paaiw:=zaair -- zaaiv;
draw paaiw     ;
 path paaix ;
 paaix:=subpath ( 1.0 , 1.399993896484375 ) of paagg ;
pen qaaiy ;
 qaaiy = pencircle scaled 4bp ;
draw paaix  withcolor white  withpen qaaiy   ;
 path paaiz ;
 paaiz:=subpath ( 0 , 1.5 ) of paagg ;
draw paaiz     ;
 path paaja ;
 paaja:=subpath ( 1.0 , 1.399993896484375 ) of paagu ;
draw paaja  withcolor white  withpen qaaiy   ;
 path paajb ;
 paajb:=subpath ( 0 , 1.5 ) of paagu ;
draw paajb     ;
 path paajc ;
 paajc:=subpath ( 1.0 , 1.399993896484375 ) of paahi ;
draw paajc  withcolor white  withpen qaaiy   ;
 path paajd ;
 paajd:=subpath ( 0 , 1.5 ) of paahi ;
draw paajd     ;
 path paaje ;
 paaje:=subpath ( 1.0 , 1.399993896484375 ) of paahw ;
draw paaje  withcolor white  withpen qaaiy   ;
 path paajf ;
 paajf:=subpath ( 0 , 1.5 ) of paahw ;
draw paajf     ;
 path paajg ;
 paajg:=subpath ( 1.0 , 1.399993896484375 ) of paaik ;
draw paajg  withcolor white  withpen qaaiy   ;
 path paajh ;
 paajh:=subpath ( 0 , 1.5 ) of paaik ;
draw paajh     ;
 draw zaaab   withpen qaaiy   ;
 draw zaaam   withpen qaaiy   ;
 draw zaaaw   withpen qaaiy   ;
 draw zaaac   withpen qaaiy   ;
 draw zaaan   withpen qaaiy   ;
 draw zaaax   withpen qaaiy   ;
 draw zaaad   withpen qaaiy   ;
 draw zaaao   withpen qaaiy   ;
 draw zaaay   withpen qaaiy   ;
 draw zaaae   withpen qaaiy   ;
 draw zaaap   withpen qaaiy   ;
 draw zaaaz   withpen qaaiy   ;
 draw zaaaf   withpen qaaiy   ;
 draw zaaaq   withpen qaaiy   ;
 draw zaaba   withpen qaaiy   ;
 draw zaaag   withpen qaaiy   ;
 draw zaaam   withpen qaaiy   ;
 draw zaaaw   withpen qaaiy   ;
 draw zaaah   withpen qaaiy   ;
 draw zaaas   withpen qaaiy   ;
 draw zaabb   withpen qaaiy   ;
 draw zaaai   withpen qaaiy   ;
 draw zaaat   withpen qaaiy   ;
 draw zaabc   withpen qaaiy   ;
 draw zaaaj   withpen qaaiy   ;
 draw zaaau   withpen qaaiy   ;
 draw zaabd   withpen qaaiy   ;
 draw zaaak   withpen qaaiy   ;
 draw zaaav   withpen qaaiy   ;
 draw zaabe   withpen qaaiy   ;
 currentpicture := currentpicture shifted 
                      -llcorner currentpicture shifted (1cm,2cm);
    endfig;
     end;