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 90.0 ; path paaag ; paaag:=paaaf rotated 90.0 ; path paaah ; paaah:=paaag rotated 90.0 ; pair zaaai ; zaaai = ( -0.5cm , 1cm ) ; pair zaaaj ; zaaaj = zaaai xscaled -1.0 ; pair zaaak ; zaaak = zaaaj rotated 90.0 ; pair zaaal ; zaaal = -1.0 * down; pair zaaam ; zaaam = zaaal rotated 90.0 ; path paaan ; paaan:=zaaai { down } .. zaaak { zaaam } ; path paaao ; paaao:=paaan rotated 90.0 ; path paaap ; paaap:=paaao rotated 90.0 ; path paaaq ; paaaq:=paaap rotated 90.0 ; draw paaae ; draw paaaf ; draw paaag ; draw paaah ; draw paaan ; draw paaao ; draw paaap ; draw paaaq ; currentpicture := currentpicture shifted -llcorner currentpicture shifted (1cm,2cm); endfig; end;