如何将 JPEG 图像旋转 45°并将其保存回 Haskell 中的磁盘？

Question

如何将 JPEG 图像旋转 45° 并将其保存回磁盘？

Answer 1

据我所知，Haskell 还没有好的图像处理库。

更好的方法

您可以使用hsmagick（绑定到libmagick）来操作图像。

请参阅TomMD 的回答作为示例。

简单的方法

但是如果你想从 Haskell 做到这一点，这可以做到这一点（假设 ImageMagick 可用）：

import System.Cmd (system)
import System.Environment (getArgs)

main = do
  (original:rotated:_) <- getArgs
  system $ "convert -rotate \"-45\" \"" ++ original ++ "\" \"" ++ rotated ++ "\""

用法：

runghc rotate.hs original.jpg rotated45.jpg

困难的方法

或者你可以选择困难的方法，并实现 旋转算法。要在 Haskell 中读取和写入几乎所有图像格式，您可以使用 Codec.Image.DevIL< /a> 库。如果您这样做，将这段代码放在 Hackage 上真是太好了。

Answer 2

GD 库可以让你做到这一点，但是 Haskell 绑定 ( http://hackage.haskell.org/package /gd ）目前不包含适当的函数。人们还可以向维护者提出功能请求，或者简单地修补它并将其发送到上游。 Graphics.GD.Internal 模块（未导出）实际上已经有一个注释掉的绑定到适当的函数（ http://hackage.haskell.org/packages/archive/gd/3000.5.0/doc/html/src/Graphics-GD- Internal.html ），所以我想，完成这项工作应该非常简单（而且我确信，这项工作将受到赞赏）。

Answer 3

在 Hackage 上四处看看。我知道 Tim 开始致力于 libmagick 的绑定，但这并不足以阻止我放弃当我需要图像处理时，可以为 GIMP 生成 script-fu，但如果你只是做旋转等简单的事情，这对你来说就足够了：

liftM (rotateImage 45) (readImage file) >>= writeImage file2

我看到 Cale 也有一个 ImLib 看起来功能更完整：

loadImageImmediately file >>= contextSetImage >>
createRotatedImage 45 >>= contextSetImage >> saveImage file2

正如我所说，环顾四周并让我们知道！