let redraw_gb gb = 
  Graphics.set_color Graphics.background;
  Graphics.fill_rect gb_x0 gb_y0 gb_width gb_height;
  draw_gb gb