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