% Dessin de la trajectoire T et TT
% Dessin du billard et des points
clf
hold on
axis('square')
axis([-m m -m m])
axis off
plot(x,y,'b')
plot(Q(1),Q(2),'ro')
plot(P(1),P(2),'r*')
plot(TT(1),TT(2),'c+')
% Dessin de la trajectoire de TT
plot([P(1) TT(1)],[P(2) TT(2)],'c:')
plot(x1,y1,'c:')
xlabel('Appuyez sur une touche pour continuer')
pause
% Dessin de la trajectoire de T
[mm,nn]=size(T);
for k=1:nn
  plot([P(1) T(1,k)],[P(2) T(2,k)],'c-')
  plot([T(1,k) Q(1)],[T(2,k) Q(2)],'c-')
end
% Calcul de l'habileté du joueur
W=abs(S)-abs(G);
W=asin(sin(W));
wl=length(W);
for i=1:wl
  if W(wl) < 0
    W(wl)=W(wl)+2*pi;
  end
end
w=min(min(abs(W)));
if (w<1/180*pi)
  title('Bravissimo')
elseif (w>1/180*pi) & (w<7/180*pi)
  title('Vous avez un bon coup d''oeil')
elseif (w>7/180*pi) & (w<30/180*pi)
  title('Ce n''est pas mal, mais il faut songer à vous améliorer')
elseif (w>30/180*pi) & (w<90/180*pi)
  title('Il faut songer sérieusement à faire des progrès')
elseif w>90/180*pi
  title('Vous devez le faire exprès')
end
xlabel('Appuyez sur une touche pour continuer')
pause
hold off
