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;