RosettaCodeData/Task/Bitmap/OCaml/bitmap-7.ml
2024-10-16 18:07:41 -07:00

4 lines
153 B
OCaml

let get_dims ~img:(_, r_channel, _, _) =
let width = Bigarray.Array2.dim1 r_channel
and height = Bigarray.Array2.dim2 r_channel in
(width, height)