input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) pair zaaab ; zaaab = 1cm * up; pair zaaac ; zaaac = zaaab rotated 0 ; pair zaaad ; pair zaaae ; zaaae = zaaab rotated 51.428558349609375 ; pair zaaaf ; pair zaaag ; zaaag = zaaab rotated 102.85713195800781 ; pair zaaah ; pair zaaai ; zaaai = zaaab rotated 154.28570556640625 ; pair zaaaj ; pair zaaak ; zaaak = zaaab rotated 205.7142791748047 ; pair zaaal ; pair zaaam ; zaaam = zaaab rotated 257.1428527832031 ; pair zaaan ; pair zaaao ; zaaao = zaaab rotated 308.57142639160156 ; path paaap ; paaap:=zaaac -- zaaae -- zaaag -- zaaai -- zaaak -- zaaam -- zaaao -- cycle; draw paaap ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;