% Billard

% représentation d'un billard
x=[0 35 35 0 0];
y=[0 0 17 17 0];
fill(x,y,'g','edgecolor','k','LineWidth',12)
hold on
t1=0:pi/20:pi/2;
t2=3*pi/2:pi/20:2*pi;
t3=pi:pi/20:3*pi/2;
t4=pi/2:pi/20:pi;
t5=0:pi/20:pi;
t6=pi:pi/20:2*pi;
plot(cos(t1),sin(t1),'k',cos(t2),sin(t2)+17,'k',...
cos(t3)+35,sin(t3)+17,'k',cos(t4)+35,sin(t4),'k',...
cos(t5)+18.5,sin(t5),'k',cos(t6)+18.5,sin(t6)+17,'k','LineWidth',12)
axis image
axis off
hold off
set(gcf,'Name','Billard','Numbertitle','off','resize','off')

while 1
  % Recherche de trajectoire
  choix = MENU('Choisissez un billard','Circulaire','Elliptique','En spirale','En étoile');
  switch choix
  case  1
      rond    % Billard circulaire
  case 2
      ellipse % Billard elliptique
  case 3
      spirale % Billard en spirale
  case 4
      etoile  % Billard en etoile
  end
  pointb % Determination des points P et Q initiaux
  trajt  % Caclul du point T de rebond
  trajtt % Cacul de la trajectoire avec le point TT
  trace  % Trace des resultats
end

