ハスケルでOpenGLを使用してPNG画像をレンダリングする

Question

私はハスケルを初めて使い、OpenGL（Graphics.UI.GLUTを使用）を使用してUI用にチェスゲームを構築しています。私はチェスのための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画像をレンダリング助けることができますか？

Answer 1

提案：あなたはHaskellのに新しく追加されたので、代わりにダイビングのストレートあなたのチェスゲームの生OpenGLに、あなたはOpenGLを簡単にする助けることができるライブラリを見てきましたか？ glossをお勧めします。gloss-gameには、.pngファイルをゲームに使用できるようにロードするために、helper functionがあります。がんばろう！ :-)

Answer 2

ここで私が使用している方法です。

最初に、パッケージgl-captureを使用してください。それは古いですが、うまくいきます。それはppmイメージを生成します。

import   Graphics.Rendering.OpenGL.Capture (capturePPM) 

パッケージの適用には手助けが必要ですか？キーボードコールバックが必要です。私は必要に応じて助けることができます、お願いしてください。

今度はppmイメージを持っていれば、ImageMagickで変換するか、またはHaskellパッケージを使ってイメージを変換するという2つの選択肢があります。良いものがあります：と呼ばれています。私が使用しているモジュールは次のとおりです。

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で変換します。