하스켈에서 OpenGL을 사용하여 PNG 이미지를 렌더링하십시오.

Question

저는 하스켈을 처음 사용하고 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 이미지 렌더링 도와 드릴까요?

Answer 1

제안 : 당신이 대신 똑바로 체스 게임에 대한 원시 OpenGL에 다이빙에, 하스켈에 새로운 당신이 도움이 될 도서관에서 보았다 가지고 있기 때문에 당신이 OpenGL 쉽게? gloss을 권하고 gloss-game은 .png 파일을 게임에 사용할 준비가 된 파일로로드하려면 helper function이 있어야합니다. 행운을 빕니다! :-)

Answer 2

여기 제가 사용하는 방법입니다.

먼저 gl-capture 패키지를 사용하십시오. 그것은 오래되었지만 잘 작동합니다. 그것은 ppm 이미지를 생성합니다.

import   Graphics.Rendering.OpenGL.Capture (capturePPM) 

패키지를 적용하는 데 도움이 필요합니까? 키보드 콜백이 필요합니다. 필요한 경우 도움을 드릴 수 있습니다. 부탁드립니다.

이제 이미지가 ppm이되면 ImageMagick으로 변환하거나 하스켈 패키지로 변환하는 두 가지 옵션이 있습니다. 좋은 것이 있습니다 : 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으로 변환합니다.