Tải kết cấu JuicyPixels trong Haskell OpenGL?

Question

Làm cách nào để tải kết cấu bằng thư viện Haskell, OpenGL và JuicyPixels?

tôi có thể có được như xa như thế này:

loadImage :: IO() 
loadImage = do image <- readPng "data/Picture.png" 
       case image of 
       (Left s) -> do print s 
           exitWith (ExitFailure 1) 
       (Right d) -> do case (ImageRGBA i) -> do etc... 

Làm thế nào để chuyển đổi này cho một người TextureObject? Tôi nghĩ rằng tôi cần phải thực hiện chuyển đổi giữa Vector Word8 và PixelData (để OpenGL nhận ra)

Answer 1

Bạn sử dụng chức năng texImage2D. Bạn sẽ gọi nó như thế này:

import Data.Vector.Storable (unsafeWith) 

import Graphics.Rendering.OpenGL.GL.Texturing.Specification (texImage2D, Level, Border, TextureSize2D(..)) 
import Graphics.Rendering.OpenGL.GL.PixelRectangles.ColorTable (Proxy(..), PixelInternalFormat(..)) 
import Graphics.Rendering.OpenGL.GL.PixelRectangles.Rasterization (PixelData(..)) 

-- ... 

(ImageRGBA8 (Image width height dat)) -> 
    -- Access the data vector pointer 
    unsafeWith dat $ \ptr -> 
    -- Generate the texture 
    texImage2D 
     -- No cube map 
     Nothing 
     -- No proxy 
     NoProxy 
     -- No mipmaps 
     0 
     -- Internal storage format: use R8G8B8A8 as internal storage 
     RGBA8 
     -- Size of the image 
     (TextureSize2D width height) 
     -- No borders 
     0 
     -- The pixel data: the vector contains Bytes, in RGBA order 
     (PixelData RGBA UnsignedByte ptr) 

Lưu ý rằng Juicy không luôn trả lại hình ảnh RGBA. Bạn phải xử lý mỗi sự biến đổi hình ảnh khác nhau:

ImageY8, ImageYA8, ImageRGB8, ImageRGBA8, ImageYCrCb8 

Ngoài ra, trước khi lệnh này, bạn phải có ràng buộc một đối tượng kết cấu để lưu trữ các dữ liệu kết cấu trong

import Data.ObjectName (genObjectNames) 
import Graphics.Rendering.OpenGL.GL.Texturing.Objects (textureBinding) 
import Graphics.Rendering.OpenGL.GL.Texturing.Specification (TextureTarget(..)) 

-- ... 

-- Generate 1 texture object 
[texObject] <- genObjectNames 1 

-- Make it the "currently bound 2D texture" 
textureBinding Texture2D $= Just texObject 

BTW, nhiều. các mục nhập đó được thêm tự động khi bạn nhập Graphics.Rendering.OpenGL; bạn không phải nhập từng điều riêng lẻ nếu bạn không muốn.