let get width height array x y =
(*   assert (0 <= x && x < width  &&  0 <= y && y < height); *)
    array.(to_1d width height x y)