使用SDL-image加载OpenGL图像

Question

正如上面所说的:我如何使用SDL-image绑定到Haskell的图像加载工具来加载OpenGL纹理，就像你在C中经常做的那样。SDL-image支持多种图像格式，但只提供Surface数据类型。对于glTexImage2D，我似乎需要提供一些不同的东西，一种PixelData数据类型。

有没有办法不用C语言就能得到图像数据？我甚至会雇佣一些其他的库，只要它支持PNG、JPG和TGA。

Answer 1

为了使这与SDL alias & Haskell绑定一起工作，它使用surfaceGetPixels，它返回Pixels，这是Ptr PixelData的一个类型别名，PixelData是一个空的数据声明。之所以这样，是因为SDL表面像素格式和每像素的位数几乎可以是任何值。所以基本上，如果你有32bpp的格式，你会使用castPtr将指针转换为Ptr Word32。

下面是一个获取/放置像素的示例：

getPixel32 :: MonadIO m => Surface -> Int -> Int -> m Pixel
getPixel32 s x y = liftIO $ do
    ps <- surfaceGetPixels s
    assert (x >= 0 && x < surfaceGetWidth s && y >= 0 && y < surfaceGetHeight s) $
        Pixel `liftM` peekElemOff (castPtr ps :: Ptr Word32) offset
 where offset = y * (fromIntegral $ surfaceGetPitch s `div` 4) + x

setPixel32 :: MonadIO m => Surface -> Int -> Int -> Pixel -> m ()
setPixel32 s x y (Pixel pixel) = liftIO $ do
    ps <- surfaceGetPixels s
    assert (x >= 0 && x < surfaceGetWidth s && y >= 0 && y < surfaceGetHeight s) $
        pokeElemOff (castPtr ps :: Ptr Word32) offset pixel
 where offset = y * (fromIntegral $ surfaceGetPitch s `div` 4) + x

类似地，您可以将指针强制转换为特定的指针类型，并将其传递给glTexImage2D以上传纹理。

Answer 2

也许Codec.Image.DevIL能提供你想要的东西？我相信无论如何都应该是这样的。