let get_voisin_grille grille (x,y)=
let lg = List.length grille in
match x with
 | 0 -> match y with
           | 0 ->[recup_voisin_droite grille x y;recup_voisin_bas grille x y; recup_voisin_diag_bas_droite grille x y]
           |lg -> [recup_voisin_gauche grille x y;recup_voisin_bas grille x y;recup_voisin_diag_bas_gauche grille x y]
           | _ -> [recup_voisin_gauche grille x y;recup_voisin_droite grille x y;recup_voisin_bas grille x y;recup_voisin_diag_bas_gauche grille x y; recup_voisin_diag_bas_droite grille x y ]
 | lg->  match y with
           | 0 ->[recup_voisin_droite grille x y;recup_voisin_bas grille x y;recup_voisin_haut grille x y;recup_voisin_diag_bas_droite grille x y;recup_voisin_diag_haut_droite grille x y]
           | lg -> [recup_voisin_gauche grille x y;recup_voisin_haut grille x y;recup_voisin_diag_haut_gauche grille x y]
           | _ -> [recup_voisin_gauche grille x y;recup_voisin_droite grille x y;recup_voisin_haut grille x y;recup_voisin_diag_haut_gauche grille x y; recup_voisin_diag_haut_droite grille x y ]
 | _ ->[recup_voisin_gauche grille x y;recup_voisin_droite grille x y;recup_voisin_bas grille x y;recup_voisin_haut grille x y ;recup_voisin_diag_bas_gauche grille x y; recup_voisin_diag_bas_droite grille x y ;recup_voisin_diag_haut_gauche grille x y ;recup_voisin_diag_haut_droite grille x y]