input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) pair zaaab ; zaaab = dir 90.0 ; pair zaaac ; zaaac = 1cm * zaaab; pair zaaad ; zaaad = dir 0 ; pair zaaae ; zaaae = dir -150.0 ; pair zaaaf ; zaaaf = 1cm * zaaae; pair zaaag ; zaaag = dir 120.0 ; pair zaaah ; zaaah = dir -30.0 ; pair zaaai ; zaaai = 1cm * zaaah; pair zaaaj ; zaaaj = dir -120.0 ; path paaak ; paaak:=zaaac { zaaad } .. zaaaf { zaaag } .. zaaai { zaaaj } .. cycle ; draw paaak ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;