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 72.0 ; pair zaaaf ; pair zaaag ; zaaag = zaaab rotated 144.0 ; pair zaaah ; pair zaaai ; zaaai = zaaab rotated 216.0 ; pair zaaaj ; pair zaaak ; zaaak = zaaab rotated 288.0 ; path paaal ; paaal:=zaaac -- zaaae -- zaaag -- zaaai -- zaaak -- cycle; draw paaal ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;