function A=btennis(a,b,c,d,PasDeT)
t=0:PasDeT:1;
theta=2*pi*t;
lambda=1+d*sin(2*theta);
mu=1-d*sin(2*theta);
x=lambda.*(a*cos(theta+pi/4)-b*cos(3*(theta+pi/4)));
y=mu.*(a*sin(theta+pi/4)+b*sin(3*(theta+pi/4)));
z=c*sin(2*theta);
A(1,:)=x;
A(2,:)=y;
A(3,:)=z;
A(4,:)=ones(size(A(1,:)));
