(** Interface texte du jeu. *)

let ushapes = [|' ';'R';'G';'B'|] 
(** Table des caractères des pièces non marquées. *)

let mshapes = [|' ';'r';'g';'b'|] 
(** Table des caractères des pièces marquées. *)

let print_shape i =
  if i < 0 then print_char mshapes.(-i)
  else print_char ushapes.(i)
(** Affichage d'une pièce. *)

let line () =
  for i = 1 to Glob.nb_col do print_string "+-" done;
  print_endline "+ "
(** Affichage d'une ligne de séparation. *)   
  
let display_gb () =
  line();
  for ilig = Glob.nb_lig downto 1 do 
    for icol = 1 to Glob.nb_col do 
      print_char '|';
      print_shape Glob.gb.(icol).(ilig)
    done;
    print_endline "|";
    line()
  done
(** Affichage de tableau de jeu. *)