haskell - Haskell 光泽度：将图片渲染为位图

Question

我想访问正在显示到窗口的像素数据，但我没有任何运气在光泽中找到这样的函数，也没有尝试在键盘事件回调中调用 OpenGL readPixels。看起来光泽将图片渲染到窗口而不暴露渲染的位图。

如果这在光泽度中很难做到，是否有其他具有实时高级位图操作（平移、旋转、透明度）的替代方法？

Answer 1

事实证明readPixels可以在这种情况下使用。我在挖掘#haskell 聊天日志时发现了这个片段：

-- save a screenshot to a handle as binary PPM
snapshotWith :: (BS.ByteString -> IO b) -> Position -> Size -> IO b
snapshotWith f p0 vp@(Size vw vh) = do
  let fi q = fromIntegral q
      p6 = "P6\n" ++ show vw ++ " " ++ show vh ++ " 255\n"
  allocaBytes (fi (vw*vh*3)) $ \ptr -> do
    readPixels p0 vp $ PixelData RGB UnsignedByte ptr
    px <- BSI.create (fi $ vw * vh * 3) $ \d -> forM_ [0..vh-1] $ \y ->
      BSI.memcpy
        (d`plusPtr`fi(y*vw*3))
        (ptr`plusPtr`fi ((vh-1-y)*vw*3))
        (fi(vw*3))
    f $ BS.pack (map (toEnum . fromEnum) p6) `BS.append` px

writeSnapshot :: FilePath -> Position -> Size -> IO ()
writeSnapshot f = snapshotWith (BS.writeFile f)

来自https://gitorious.org/maximus/mandulia/source/58695617c322b0b37ec72f9a0bd3eed8308bf700:src/Snapshot.hs

Answer 2

最近发布了一个具有适当目的的新包光泽导出：

将光泽图片导出为 PNG、位图、TGA、TIFF、Gif

Answer 3

我曾经遇到过同样的问题，找不到好的解决方案，所以我的回答可能不合适。我的解决方法是使用bmp包，BMP手动处理内容（通过ByteString操作），然后将其转换为带有bitmapOfBMP. 例如，这是一个将位图与颜色混合的函数：

recolor :: (Float, Float, Float) -> BMP -> BMP
recolor (rc, gc, bc) bmp@BMP {bmpRawImageData = raw} =
    bmp {bmpRawImageData = B.pack $ process $ B.unpack raw} where
    process (b:g:r:a:xs) = (mul b bc):(mul g gc):(mul r rc):a:process xs
    process xs = xs
    mul c cc = round $ cc * fromIntegral c

那时这对我来说已经足够了，所以我不再寻找更好的解决方案。如果你能找到一些东西，请分享。