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