input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) pair zaaab ; zaaab = 0.5cm * down; pair zaaac ; zaaac = zaaab rotated 0 ; pair zaaad ; zaaad = zaaab rotated 72.0 ; pair zaaae ; zaaae = zaaab rotated 144.0 ; pair zaaaf ; zaaaf = zaaab rotated 216.0 ; pair zaaag ; zaaag = zaaab rotated 288.0 ; pair zaaah ; zaaah = ( 0.5 ) [ zaaac , zaaad ] ; pair zaaai ; zaaai = 3.0 * zaaah; pair zaaaj ; zaaaj = ( 0.5 ) [ zaaad , zaaae ] ; pair zaaak ; zaaak = 3.0 * zaaaj; pair zaaal ; zaaal = ( 0.5 ) [ zaaae , zaaaf ] ; pair zaaam ; zaaam = 3.0 * zaaal; pair zaaan ; zaaan = ( 0.5 ) [ zaaaf , zaaag ] ; pair zaaao ; zaaao = 3.0 * zaaan; pair zaaap ; zaaap = ( 0.5 ) [ zaaag , zaaac ] ; pair zaaaq ; zaaaq = 3.0 * zaaap; pair zaaar ; zaaar = zaaai + zaaak + zaaad; pair zaaas ; zaaas = 0.3333282470703125 * zaaar; pair zaaat ; zaaat = zaaak + zaaam + zaaae; pair zaaau ; zaaau = 0.3333282470703125 * zaaat; pair zaaav ; zaaav = zaaam + zaaao + zaaaf; pair zaaaw ; zaaaw = 0.3333282470703125 * zaaav; pair zaaax ; zaaax = zaaao + zaaaq + zaaag; pair zaaay ; zaaay = 0.3333282470703125 * zaaax; pair zaaaz ; zaaaz = zaaaq + zaaai + zaaac; pair zaaba ; zaaba = 0.3333282470703125 * zaaaz; pair zaabb ; zaabb = 1.5 * zaaai; pair zaabc ; zaabc = 1.5 * zaaak; pair zaabd ; zaabd = 1.5 * zaaam; pair zaabe ; zaabe = 1.5 * zaaao; pair zaabf ; zaabf = 1.5 * zaaaq; path paabg ; paabg:=zaaac -- zaaad; draw paabg ; path paabh ; paabh:=zaaad -- zaaas; draw paabh ; path paabi ; paabi:=zaaai -- zaaas; draw paabi ; path paabj ; paabj:=zaaas -- zaaak; draw paabj ; path paabk ; paabk:=zaaai -- zaabb; draw paabk ; path paabl ; paabl:=zaabb -- zaabc; draw paabl ; path paabm ; paabm:=zaaad -- zaaae; draw paabm ; path paabn ; paabn:=zaaae -- zaaau; draw paabn ; path paabo ; paabo:=zaaak -- zaaau; draw paabo ; path paabp ; paabp:=zaaau -- zaaam; draw paabp ; path paabq ; paabq:=zaaak -- zaabc; draw paabq ; path paabr ; paabr:=zaabc -- zaabd; draw paabr ; path paabs ; paabs:=zaaae -- zaaaf; draw paabs ; path paabt ; paabt:=zaaaf -- zaaaw; draw paabt ; path paabu ; paabu:=zaaam -- zaaaw; draw paabu ; path paabv ; paabv:=zaaaw -- zaaao; draw paabv ; path paabw ; paabw:=zaaam -- zaabd; draw paabw ; path paabx ; paabx:=zaabd -- zaabe; draw paabx ; path paaby ; paaby:=zaaaf -- zaaag; draw paaby ; path paabz ; paabz:=zaaag -- zaaay; draw paabz ; path paaca ; paaca:=zaaao -- zaaay; draw paaca ; path paacb ; paacb:=zaaay -- zaaaq; draw paacb ; path paacc ; paacc:=zaaao -- zaabe; draw paacc ; path paacd ; paacd:=zaabe -- zaabf; draw paacd ; path paace ; paace:=zaaag -- zaaac; draw paace ; path paacf ; paacf:=zaaac -- zaaba; draw paacf ; path paacg ; paacg:=zaaaq -- zaaba; draw paacg ; path paach ; paach:=zaaba -- zaaai; draw paach ; path paaci ; paaci:=zaaaq -- zaabf; draw paaci ; path paacj ; paacj:=zaabf -- zaabb; draw paacj ; path paack ; paack:=zaaae -- zaaaf -- zaaag -- zaaac -- zaaad -- zaaas -- zaaai -- zaaba -- zaaaq -- zaaay -- zaaao -- zaaaw -- zaaam -- zaabd -- zaabe -- zaabf -- zaabb -- zaabc -- zaaak -- zaaau -- cycle; pen qaacl ; qaacl = pencircle scaled 2bp ; draw paack withpen qaacl ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;