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 ; pair zaabc ; zaabc = 0.79998779296875 * zaaas; pair zaabd ; zaabd = 0.79998779296875 * zaaat; pair zaabe ; zaabe = 0.79998779296875 * zaaau; pair zaabf ; zaabf = 0.79998779296875 * zaaav; path paabg ; paabg:=zaaab -- zaaac; draw paabg ; pair zaabh ; zaabh = point 1.0 of paabg ; pair zaabi ; zaabi = direction 1.0 of paabg ; pair zaabj ; zaabj = unitvector zaabi ; pair zaabk ; zaabk = 4mm * zaabj; pair zaabl ; zaabl = zaabh + zaabk; path paabm ; paabm:=zaabh -- zaabl; draw paabm ; pair zaabn ; zaabn = point 0 of paabg ; pair zaabo ; zaabo = direction 0 of paabg ; pair zaabp ; zaabp = unitvector zaabo ; pair zaabq ; zaabq = 4mm * zaabp; pair zaabr ; zaabr = zaabn - zaabq; path paabs ; paabs:=zaabn -- zaabr; draw paabs ; path paabt ; paabt:=zaaac -- zaaad; draw paabt ; pair zaabu ; zaabu = point 1.0 of paabt ; pair zaabv ; zaabv = direction 1.0 of paabt ; pair zaabw ; zaabw = unitvector zaabv ; pair zaabx ; zaabx = 4mm * zaabw; pair zaaby ; zaaby = zaabu + zaabx; path paabz ; paabz:=zaabu -- zaaby; draw paabz ; pair zaaca ; zaaca = point 0 of paabt ; pair zaacb ; zaacb = direction 0 of paabt ; pair zaacc ; zaacc = unitvector zaacb ; pair zaacd ; zaacd = 4mm * zaacc; pair zaace ; zaace = zaaca - zaacd; path paacf ; paacf:=zaaca -- zaace; draw paacf ; path paacg ; paacg:=zaaad -- zaaae; draw paacg ; pair zaach ; zaach = point 1.0 of paacg ; pair zaaci ; zaaci = direction 1.0 of paacg ; pair zaacj ; zaacj = unitvector zaaci ; pair zaack ; zaack = 4mm * zaacj; pair zaacl ; zaacl = zaach + zaack; path paacm ; paacm:=zaach -- zaacl; draw paacm ; pair zaacn ; zaacn = point 0 of paacg ; pair zaaco ; zaaco = direction 0 of paacg ; pair zaacp ; zaacp = unitvector zaaco ; pair zaacq ; zaacq = 4mm * zaacp; pair zaacr ; zaacr = zaacn - zaacq; path paacs ; paacs:=zaacn -- zaacr; draw paacs ; path paact ; paact:=zaaae -- zaaaf; draw paact ; pair zaacu ; zaacu = point 1.0 of paact ; pair zaacv ; zaacv = direction 1.0 of paact ; pair zaacw ; zaacw = unitvector zaacv ; pair zaacx ; zaacx = 4mm * zaacw; pair zaacy ; zaacy = zaacu + zaacx; path paacz ; paacz:=zaacu -- zaacy; draw paacz ; pair zaada ; zaada = point 0 of paact ; pair zaadb ; zaadb = direction 0 of paact ; pair zaadc ; zaadc = unitvector zaadb ; pair zaadd ; zaadd = 4mm * zaadc; pair zaade ; zaade = zaada - zaadd; path paadf ; paadf:=zaada -- zaade; draw paadf ; path paadg ; paadg:=zaaaf -- zaaag; draw paadg ; pair zaadh ; zaadh = point 1.0 of paadg ; pair zaadi ; zaadi = direction 1.0 of paadg ; pair zaadj ; zaadj = unitvector zaadi ; pair zaadk ; zaadk = 4mm * zaadj; pair zaadl ; zaadl = zaadh + zaadk; path paadm ; paadm:=zaadh -- zaadl; draw paadm ; pair zaadn ; zaadn = point 0 of paadg ; pair zaado ; zaado = direction 0 of paadg ; pair zaadp ; zaadp = unitvector zaado ; pair zaadq ; zaadq = 4mm * zaadp; pair zaadr ; zaadr = zaadn - zaadq; path paads ; paads:=zaadn -- zaadr; draw paads ; path paadt ; paadt:=zaaag -- zaaah; draw paadt ; pair zaadu ; zaadu = point 1.0 of paadt ; pair zaadv ; zaadv = direction 1.0 of paadt ; pair zaadw ; zaadw = unitvector zaadv ; pair zaadx ; zaadx = 4mm * zaadw; pair zaady ; zaady = zaadu + zaadx; path paadz ; paadz:=zaadu -- zaady; draw paadz ; pair zaaea ; zaaea = point 0 of paadt ; pair zaaeb ; zaaeb = direction 0 of paadt ; pair zaaec ; zaaec = unitvector zaaeb ; pair zaaed ; zaaed = 4mm * zaaec; pair zaaee ; zaaee = zaaea - zaaed; path paaef ; paaef:=zaaea -- zaaee; draw paaef ; path paaeg ; paaeg:=zaaah -- zaaai; draw paaeg ; pair zaaeh ; zaaeh = point 1.0 of paaeg ; pair zaaei ; zaaei = direction 1.0 of paaeg ; pair zaaej ; zaaej = unitvector zaaei ; pair zaaek ; zaaek = 4mm * zaaej; pair zaael ; zaael = zaaeh + zaaek; path paaem ; paaem:=zaaeh -- zaael; draw paaem ; pair zaaen ; zaaen = point 0 of paaeg ; pair zaaeo ; zaaeo = direction 0 of paaeg ; pair zaaep ; zaaep = unitvector zaaeo ; pair zaaeq ; zaaeq = 4mm * zaaep; pair zaaer ; zaaer = zaaen - zaaeq; path paaes ; paaes:=zaaen -- zaaer; draw paaes ; path paaet ; paaet:=zaaai -- zaaaj; draw paaet ; pair zaaeu ; zaaeu = point 1.0 of paaet ; pair zaaev ; zaaev = direction 1.0 of paaet ; pair zaaew ; zaaew = unitvector zaaev ; pair zaaex ; zaaex = 4mm * zaaew; pair zaaey ; zaaey = zaaeu + zaaex; path paaez ; paaez:=zaaeu -- zaaey; draw paaez ; pair zaafa ; zaafa = point 0 of paaet ; pair zaafb ; zaafb = direction 0 of paaet ; pair zaafc ; zaafc = unitvector zaafb ; pair zaafd ; zaafd = 4mm * zaafc; pair zaafe ; zaafe = zaafa - zaafd; path paaff ; paaff:=zaafa -- zaafe; draw paaff ; path paafg ; paafg:=zaaaj -- zaaak; draw paafg ; pair zaafh ; zaafh = point 1.0 of paafg ; pair zaafi ; zaafi = direction 1.0 of paafg ; pair zaafj ; zaafj = unitvector zaafi ; pair zaafk ; zaafk = 4mm * zaafj; pair zaafl ; zaafl = zaafh + zaafk; path paafm ; paafm:=zaafh -- zaafl; draw paafm ; pair zaafn ; zaafn = point 0 of paafg ; pair zaafo ; zaafo = direction 0 of paafg ; pair zaafp ; zaafp = unitvector zaafo ; pair zaafq ; zaafq = 4mm * zaafp; pair zaafr ; zaafr = zaafn - zaafq; path paafs ; paafs:=zaafn -- zaafr; draw paafs ; path paaft ; paaft:=zaaak -- zaaal; draw paaft ; pair zaafu ; zaafu = point 1.0 of paaft ; pair zaafv ; zaafv = direction 1.0 of paaft ; pair zaafw ; zaafw = unitvector zaafv ; pair zaafx ; zaafx = 4mm * zaafw; pair zaafy ; zaafy = zaafu + zaafx; path paafz ; paafz:=zaafu -- zaafy; draw paafz ; pair zaaga ; zaaga = point 0 of paaft ; pair zaagb ; zaagb = direction 0 of paaft ; pair zaagc ; zaagc = unitvector zaagb ; pair zaagd ; zaagd = 4mm * zaagc; pair zaage ; zaage = zaaga - zaagd; path paagf ; paagf:=zaaga -- zaage; draw paagf ; pair zaagg ; zaagg = dir 0 ; path paagh ; paagh:=zaaam --- zaaaw .. zaaay { zaagg } ; draw paagh ; pair zaagi ; zaagi = point 2.0 of paagh ; pair zaagj ; zaagj = direction 2.0 of paagh ; pair zaagk ; zaagk = unitvector zaagj ; pair zaagl ; zaagl = 4mm * zaagk; pair zaagm ; zaagm = zaagi + zaagl; path paagn ; paagn:=zaagi -- zaagm; draw paagn ; pair zaago ; zaago = point 0 of paagh ; pair zaagp ; zaagp = direction 0 of paagh ; pair zaagq ; zaagq = unitvector zaagp ; pair zaagr ; zaagr = 4mm * zaagq; pair zaags ; zaags = zaago - zaagr; path paagt ; paagt:=zaago -- zaags; draw paagt ; pair zaagu ; zaagu = dir 72.0 ; path paagv ; paagv:=zaaan --- zaaax .. zaaaz { zaagu } ; draw paagv ; pair zaagw ; zaagw = point 2.0 of paagv ; pair zaagx ; zaagx = direction 2.0 of paagv ; pair zaagy ; zaagy = unitvector zaagx ; pair zaagz ; zaagz = 4mm * zaagy; pair zaaha ; zaaha = zaagw + zaagz; path paahb ; paahb:=zaagw -- zaaha; draw paahb ; pair zaahc ; zaahc = point 0 of paagv ; pair zaahd ; zaahd = direction 0 of paagv ; pair zaahe ; zaahe = unitvector zaahd ; pair zaahf ; zaahf = 4mm * zaahe; pair zaahg ; zaahg = zaahc - zaahf; path paahh ; paahh:=zaahc -- zaahg; draw paahh ; pair zaahi ; zaahi = dir 144.0 ; path paahj ; paahj:=zaaao --- zaaay .. zaaba { zaahi } ; draw paahj ; pair zaahk ; zaahk = point 2.0 of paahj ; pair zaahl ; zaahl = direction 2.0 of paahj ; pair zaahm ; zaahm = unitvector zaahl ; pair zaahn ; zaahn = 4mm * zaahm; pair zaaho ; zaaho = zaahk + zaahn; path paahp ; paahp:=zaahk -- zaaho; draw paahp ; pair zaahq ; zaahq = point 0 of paahj ; pair zaahr ; zaahr = direction 0 of paahj ; pair zaahs ; zaahs = unitvector zaahr ; pair zaaht ; zaaht = 4mm * zaahs; pair zaahu ; zaahu = zaahq - zaaht; path paahv ; paahv:=zaahq -- zaahu; draw paahv ; pair zaahw ; zaahw = dir 216.0 ; path paahx ; paahx:=zaaap --- zaaaz .. zaaaw { zaahw } ; draw paahx ; pair zaahy ; zaahy = point 2.0 of paahx ; pair zaahz ; zaahz = direction 2.0 of paahx ; pair zaaia ; zaaia = unitvector zaahz ; pair zaaib ; zaaib = 4mm * zaaia; pair zaaic ; zaaic = zaahy + zaaib; path paaid ; paaid:=zaahy -- zaaic; draw paaid ; pair zaaie ; zaaie = point 0 of paahx ; pair zaaif ; zaaif = direction 0 of paahx ; pair zaaig ; zaaig = unitvector zaaif ; pair zaaih ; zaaih = 4mm * zaaig; pair zaaii ; zaaii = zaaie - zaaih; path paaij ; paaij:=zaaie -- zaaii; draw paaij ; pair zaaik ; zaaik = dir 288.0 ; path paail ; paail:=zaaaq --- zaaba .. zaabc { zaaik } ; draw paail ; pair zaaim ; zaaim = point 2.0 of paail ; pair zaain ; zaain = direction 2.0 of paail ; pair zaaio ; zaaio = unitvector zaain ; pair zaaip ; zaaip = 4mm * zaaio; pair zaaiq ; zaaiq = zaaim + zaaip; path paair ; paair:=zaaim -- zaaiq; draw paair ; pair zaais ; zaais = point 0 of paail ; pair zaait ; zaait = direction 0 of paail ; pair zaaiu ; zaaiu = unitvector zaait ; pair zaaiv ; zaaiv = 4mm * zaaiu; pair zaaiw ; zaaiw = zaais - zaaiv; path paaix ; paaix:=zaais -- zaaiw; draw paaix ; path paaiy ; paaiy:=subpath ( 1.0 , 1.399993896484375 ) of paagh ; pen qaaiz ; qaaiz = pencircle scaled 4bp ; draw paaiy withcolor white withpen qaaiz ; path paaja ; paaja:=subpath ( 0 , 1.5 ) of paagh ; draw paaja ; path paajb ; paajb:=subpath ( 1.0 , 1.399993896484375 ) of paagv ; pen qaajc ; draw paajb withcolor white withpen qaaiz ; path paajd ; paajd:=subpath ( 0 , 1.5 ) of paagv ; draw paajd ; path paaje ; paaje:=subpath ( 1.0 , 1.399993896484375 ) of paahj ; pen qaajf ; draw paaje withcolor white withpen qaaiz ; path paajg ; paajg:=subpath ( 0 , 1.5 ) of paahj ; draw paajg ; path paajh ; paajh:=subpath ( 1.0 , 1.399993896484375 ) of paahx ; pen qaaji ; draw paajh withcolor white withpen qaaiz ; path paajj ; paajj:=subpath ( 0 , 1.5 ) of paahx ; draw paajj ; path paajk ; paajk:=subpath ( 1.0 , 1.399993896484375 ) of paail ; pen qaajl ; draw paajk withcolor white withpen qaaiz ; path paajm ; paajm:=subpath ( 0 , 1.5 ) of paail ; draw paajm ; pen qaajn ; draw zaaab withpen qaaiz ; pen qaajo ; draw zaaam withpen qaaiz ; pen qaajp ; draw zaaaw withpen qaaiz ; pen qaajq ; draw zaaac withpen qaaiz ; pen qaajr ; draw zaaan withpen qaaiz ; pen qaajs ; draw zaaax withpen qaaiz ; pen qaajt ; draw zaaad withpen qaaiz ; pen qaaju ; draw zaaao withpen qaaiz ; pen qaajv ; draw zaaay withpen qaaiz ; pen qaajw ; draw zaaae withpen qaaiz ; pen qaajx ; draw zaaap withpen qaaiz ; pen qaajy ; draw zaaaz withpen qaaiz ; pen qaajz ; draw zaaaf withpen qaaiz ; pen qaaka ; draw zaaaq withpen qaaiz ; pen qaakb ; draw zaaba withpen qaaiz ; pen qaakc ; draw zaaag withpen qaaiz ; pen qaakd ; draw zaaam withpen qaaiz ; pen qaake ; draw zaaaw withpen qaaiz ; pen qaakf ; draw zaaah withpen qaaiz ; pen qaakg ; draw zaaas withpen qaaiz ; pen qaakh ; draw zaabc withpen qaaiz ; pen qaaki ; draw zaaai withpen qaaiz ; pen qaakj ; draw zaaat withpen qaaiz ; pen qaakk ; draw zaabd withpen qaaiz ; pen qaakl ; draw zaaaj withpen qaaiz ; pen qaakm ; draw zaaau withpen qaaiz ; pen qaakn ; draw zaabe withpen qaaiz ; pen qaako ; draw zaaak withpen qaaiz ; pen qaakp ; draw zaaav withpen qaaiz ; pen qaakq ; draw zaabf withpen qaaiz ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;