Simplification

TP_SHOOTEMUP/BIBLIOTHEQUE_SOURCE/Interface.ml

@@ -71,7 +71,9 @@ let get_size_of_ennemi e =
   match e with
   | Projectile -> (54,26)                                            (* FIXME *)
   | Vaisseau -> (46,46)
-let get_size_of_tir    t = (8,8)                                     (* FIXME *)
+
+let size_of_tir  = (8,8)                                     (* FIXME *)
+
 let size_of_vaisseau = (96,30)
 
 (** {2 Affichage } Fonctions d'affichage. *)
@@ -88,7 +90,7 @@ let affiche_ennemi   s e p =
   in  Dessin.draw_image dessin (floatpos p)            
 
 
-let affiche_tir_joueur s t p = Dessin.draw_image_symH s.missile (floatpos p) (* FIXME *)
+let affiche_tir_joueur s p = Dessin.draw_image_symH s.missile (floatpos p) (* FIXME *)
 
 
 let flip s = 

TP_SHOOTEMUP/BIBLIOTHEQUE_SOURCE/Interface.mli

@@ -31,17 +31,17 @@ val hauteur_fenetre : int
 (** {2 Sprites} Types de données décrivant les différents sprites. *)
 
 type ennemi = Projectile | Vaisseau 
-type tir_joueur = Missile | Laser of int
+
 
 val get_size_of_ennemi : ennemi -> int * int
-val get_size_of_tir    : tir_joueur -> int * int
+val size_of_tir : int * int
 val size_of_vaisseau   : int * int
 
 (** {2 Affichage } Fonctions d'affichage. *)
 
 val affiche_vaisseau    : screen -> joueur     -> position -> unit
 val affiche_ennemi      : screen -> ennemi     -> position -> unit
-val affiche_tir_joueur  : screen -> tir_joueur -> position -> unit
+val affiche_tir_joueur  : screen -> position -> unit
 
 val flip : screen -> unit
 

TP_SHOOTEMUP/ETUDIANT/Squelette.ml

@@ -57,7 +57,7 @@ let affiche_jeu fen etat =
     let _ = affiche_vaisseau fen B (etat.pos_j2, etat.pos_j2) in 
     let _ = affiche_ennemi fen Vaisseau   (400,130) in
     let _ = affiche_ennemi fen Projectile (320,150) in
-    let _ = affiche_tir_joueur fen Missile (20,150) in 
+    let _ = affiche_tir_joueur fen (20,150) in 
     flip fen
   end ;;