在 Haskell 中使用 OpenGL 渲染 PNG 图像答案

【问题标题】：Render PNG images using OpenGL in Haskell在 Haskell 中使用 OpenGL 渲染 PNG 图像
【发布时间】：2017-04-07 10:21:55
【问题描述】：

我是 Haskell 的新手，我正在为 UI 使用 OpenGL（使用 Graphics.UI.GLUT）构建一个国际象棋游戏。我正在尝试为棋子渲染 PNG 图像。

我读到图像可以转换为 TextureObject 然后渲染，但找不到任何有用的资源来知道如何做到这一点。

这就是我生成棋盘的代码

drawSquare :: BoardSquare -> IO ()
drawSquare ((x,y,z),(r,g,b)) = preservingMatrix $ do
    color $ Color3 r g b
    translate $ Vector3 x y z
    drawCube -- this will draw a square of appropriate size

-- Display Callback
display :: IORef GameState -> DisplayCallback
display gameState = do
    gstate <- get gameState
    clear [ColorBuffer]
    forM_ (getBoardPoints gstate) $ drawSquare -- drawing all 64 squares here
    flush

谁能帮我在给定文件路径的窗口的任何给定x 和y 坐标处渲染PNG 图像？

【问题讨论】：

也许不是针对您的问题，但是您是否看过 nehe 教程（Haskell 端口：hackage.haskell.org/package/nehe-tuts，C 中的原件可以在：nehe.gamedev.net 找到）？我不知道，但也许这会有所帮助......
您希望它专门在 OpenGL 中，还是只想在屏幕上显示 2D 图形？如果是后者，SDL2 是一个非常简单的替代方案，并且有很好的 haskell 绑定。
具有键盘动作和游戏玩法的总棋盘已在 OpenGL 中准备就绪。任何可以与 OpenGL 一起渲染 PNG 图像的东西都应该没问题，不需要在 OpenGL 中。

标签： haskell opengl png glut

【解决方案1】：

建议：由于您是 Haskell 的新手，因此您没有为您的国际象棋游戏直接投入原始的 OpenGL，您是否查看了可以帮助您简化 OpenGL 的库？我会推荐gloss，看起来gloss-game 有一个helper function 可以将.png 文件加载到准备用于您的游戏的内存中。祝你好运！ :-)

【讨论】：

是的，光泽会更简单。但是我首先偶然发现了 OpenGL，并且除了图像渲染部分之外，整个游戏都已经准备好了，我现在无法迁移到它（或者更像，我不想）。是否可以在 OpenGL 中使用该辅助函数？
我自己对 OpenGL Haskell 绑定并不是很熟悉，这就是为什么我推荐像光泽这样的东西。经过一番谷歌搜索，看起来您需要加载 2D 纹理的函数是：texImage2D。这是非常低的级别（您必须将指针传递给图像在内存中的保存位置）。 Here 是我在网上找到的一个要点，用于从 .bmp 加载纹理。 JuicyPixels 可能能够帮助您从 .png 文件中获取位图。祝你好运！ :-)
感谢您提供的资源 :) 希望这对其他人也有帮助。无论如何，我们决定通过给出顶点来绘制图形，这样我们就不会遇到屏幕闪烁的任何问题。

【解决方案2】：

这是我使用的方式。

首先，使用包gl-capture。它很旧，但效果很好。它生成ppm 图像。

import           Graphics.Rendering.OpenGL.Capture (capturePPM)

您需要帮助来申请该软件包吗？你需要一个键盘回调。如有需要，我可以提供帮助，请尽管问。

现在，一旦你有一个ppm 图像，你有两个选择：用 ImageMagick 转换它，或者使用 Haskell 包来转换它。有一个很好的：它叫做hip。这是我使用的模块：

module Utils.ConvertPPM
  where
import           Control.Monad    (when)
import           Graphics.Image
import           System.Directory (removeFile)

convert :: FilePath -> FilePath -> Bool -> IO ()
convert input output remove = do
  ppm <- readImageRGBA VU input
  writeImage output ppm
  when remove $ removeFile input

如果您需要更多帮助，请不要犹豫。

这是我使用的键盘回调类型：

keyboard :: IORef GLfloat -> IORef GLfloat -> IORef GLfloat -> IORef GLint
         -> KeyboardCallback
keyboard rot1 rot2 rot3 capture c _ =
  case c of
    'r' -> rot1 $~! subtract 1
    't' -> rot1 $~! (+1)
    'f' -> rot2 $~! subtract 1
    'g' -> rot2 $~! (+1)
    'v' -> rot3 $~! subtract 1
    'b' -> rot3 $~! (+1)
    'c' -> do
      i <- get capture
      let ppm = printf "pic%04d.ppm" i
          png = printf "pic%04d.png" i
      (>>=) capturePPM (B.writeFile ppm)
      convert ppm png True
      capture $~! (+1)
    'q' -> leaveMainLoop
    _   -> return ()

然后按“c”来捕捉图像。请注意，从 ppm 到 png 的转换很慢。特别是如果你打算做一些动画。对于动画，我宁愿只使用ppm，然后使用 ImageMagick 进行转换。

【讨论】：