let gray_get_pixel_unsafe (gray_channel) =
  (fun x y -> gray_channel.{x,y})

let gray_put_pixel_unsafe (gray_channel) v =
  (fun x y -> gray_channel.{x,y} <- v)