input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) pair zaaab ; zaaab = ( 1cm , 0 ) ; 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 ; path paaag ; paaag:=zaaab -- zaaac -- zaaad -- zaaae -- zaaaf -- cycle; transform Taaah ; pair zaaai ; zaaai = zaaab transformed Taaah ; pair zaaaj ; zaaaj = ( 0.1999969482421875 ) [ zaaab , zaaac ] ; zaaai = zaaaj; pair zaaak ; zaaak = zaaac transformed Taaah ; pair zaaal ; zaaal = ( 0.1999969482421875 ) [ zaaac , zaaad ] ; zaaak = zaaal; pair zaaam ; zaaam = zaaad transformed Taaah ; pair zaaan ; zaaan = ( 0.1999969482421875 ) [ zaaad , zaaae ] ; zaaam = zaaan; draw paaag ; path paaao ; paaao:=paaag transformed Taaah ; draw paaao ; path paaap ; paaap:=paaao transformed Taaah ; draw paaap ; path paaaq ; paaaq:=paaap transformed Taaah ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;