如何在 OAML 中读取位图？

Question

我想使用 OCAML 读取位图文件（从文件系统）并将像素（颜色）存储在具有位图维度的数组中，每个像素将占用数组中的一个单元格。

我找到了函数Graphics.dump_image image -> 颜色数组数组 但它不从文件中读取。

Answer 1

CAMLIMAGE 应该可以做到。 还有一个 debian 软件包 (libcamlimage-ocmal-dev)，以及通过 godi，如果你用它来管理你的 ocaml 包。

作为在 ocaml 中读取和操作图像的有用示例，我建议在 特征类。

正如 jonathan 所说，您还可以从 ocaml 调用 C 函数（但效果不太好），例如 ImageMagick。 尽管您将对图像数据进行大量操作以将图像带入 ocaml，但您始终可以为所有函数编写 c 来将图像作为抽象数据类型进行操作 - 这似乎与什么完全相反不过，您希望用 C 而不是 ocaml 编写大部分程序。

因为我最近想尝试一下 camimages（并且在安装时遇到了一些麻烦——我不得不修改两个来自编译错误的 ml 文件，尽管这些文件非常简单）。 这是一个快速程序，black_and_white.ml，以及如何编译它。 这应该可以让人们轻松地开始使用该包（特别是动态图像生成）：

   let () =
       let width  = int_of_string Sys.argv.(1)
       and length = int_of_string Sys.argv.(2)
       and name   = Sys.argv.(3)
       and black = {Color.Rgb.r = 0; g=0; b=0; }
       and white = {Color.Rgb.r = 255; g=255; b=255; } in
       let image = Rgb24.make width length black in
       for i = 0 to width-1 do
           for j = 0 to (length/2) - 1 do
               Rgb24.set image i j white;
           done;
       done;
       Png.save name [] (Images.Rgb24 image)

并编译，

ocamlopt.opt -I /usr/local/lib/ocaml/camlimages/ ci_core.cmxa graphics.cmxa ci_graphics.cmxa ci_png.cmxa black_and_white.ml -o black_and_white

并运行，

./black_and_white 20 20 test1.png

Answer 2

我不知道有什么现成的方法可以做到这一点。 您可以使用 open_in 打开文件，并使用 input_char 一次读取一个字节，吸入标头和数据并构建颜色数组对于简单格式（例如 BMP）来说，这种方式是可行的，但对于 JPG 或 PNG 之类的东西，自行解决可能会比您想要的工作更多。

Answer 3

您还可以使用 OCaml 的众多 SDL 绑定之一，特别是 SDL_image 绑定，它可以让您轻松加载各种图像，并提供以数组形式访问单个像素和原始数据的函数。

OCamlSDL 是一种流行的。

Answer 4

如果您不想使用 CAMLIMAGE，通常会使用原始 RGB 或 PNM/PPM（具有易于创建的标头格式，后跟 RGB 值）图像。 ImageMagick 允许您查看这些格式或将它们转换为更可用的格式。