let draw_gb gb =
  let x = ref gb_x0 
  and y = ref gb_y0 in
  for ilig = 1 to Glob.nb_lig do 
    for icol = 1 to Glob.nb_col do 
      draw_cell gb.(icol).(ilig) !x !y;
      gr_incr x
    done;
    x := gb_x0;
    gr_incr y
  done