input TEX; prologues := 1; %if scantokens(mpversion) < 1.200: % filenametemplate %else: % outputtemplate := %fi % "%j.eps"; beginfig(1) pair zaaab ; zaaab = ( 0 , 1cm ) ; path paaac ; paaac:=makepath pencircle ; path paaad ; paaad:=paaac scaled 1cm ; path paaae ; paaae:=paaad xscaled 1.0 yscaled 0.5 shifted zaaab ; path paaaf ; paaaf:=paaae rotated 120.0 ; path paaag ; paaag:=paaaf rotated 120.0 ; pair zaaah ; zaaah = ( -0.5cm , 1cm ) ; pair zaaai ; zaaai = zaaah xscaled -1.0 ; pair zaaaj ; zaaaj = zaaai rotated 120.0 ; pair zaaak ; zaaak = -1.0 * down; pair zaaal ; zaaal = zaaak rotated 120.0 ; path paaam ; paaam:=zaaah { down } .. zaaaj { zaaal } ; path paaan ; paaan:=paaam rotated 120.0 ; path paaao ; paaao:=paaan rotated 120.0 ; draw paaae ; draw paaaf ; draw paaag ; draw paaam ; draw paaan ; draw paaao ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;