let draw_cell c x y =
  if (c < 0) then 
    Graphics.set_color mcolor.(-c)
  else
    Graphics.set_color ucolor.(c);
  let r = gr_unit/2 in
    Graphics.draw_circle (x+r) (y+r) r