如何正确翻转JuicyPixels保存的GLUT OpenGL截图？

你的错误分析 #

1. 索引越界问题
   你之前的flipVertically函数错误地计算了目标像素位置：没有按行处理翻转逻辑，而是直接用总像素数减去当前索引。比如600x600的图像总像素为360000，若你误将每个像素的RGB通道当成独立元素（总元素数变为1,080,000），计算出的索引（如1079997）会远超过实际像素vector的长度（360000），直接触发越界。即便没混淆通道，直接用总像素数-1-当前索引也会同时翻转行和列，逻辑本身就不正确。

2. 反转整个vector导致乱码
   把整个像素vector反转的操作，会彻底颠倒所有像素的顺序——原图像最后一行的最后一个像素会跑到第一行第一个位置，倒数第二个像素跑到第一行第二个位置，以此类推。这相当于同时做了垂直翻转+水平翻转+行内像素倒序，自然会出现乱码，只有局部像素巧合看起来正常。

正确的垂直翻转实现 #

JuicyPixels的图像像素按行优先存储（从顶部行到底部行），垂直翻转只需颠倒行的顺序即可，以下是两种可靠实现：

方法1：用generateImage重新生成图像 #

这是最直观且不易出错的方式，直接根据原图像的像素位置生成翻转后的图像：

import Codec.Picture

flipVertically :: Image PixelRGBA8 -> Image PixelRGBA8
flipVertically img = generateImage getPixel w h
  where
    w = imageWidth img
    h = imageHeight img
    -- 取原图像同一列、对称行的像素
    getPixel x y = pixelAt img x (h - 1 - y)

方法2：直接操作像素Vector #

若需要直接处理底层像素vector，可按行分割后反转行顺序，再拼接：

import Codec.Picture
import Data.Vector (Vector)
import qualified Data.Vector as V

flipVerticallyVec :: Image PixelRGBA8 -> Image PixelRGBA8
flipVerticallyVec img = img { imageData = flippedVec }
  where
    w = imageWidth img
    h = imageHeight img
    origVec = imageData img
    -- 按行分割原vector
    rows = [V.slice (y * w) w origVec | y <- [0 .. h - 1]]
    -- 反转行的顺序
    flippedRows = reverse rows
    -- 拼接成新的像素vector
    flippedVec = V.concat flippedRows

验证方式 #

将翻转后的图像保存为PNG，对比原OpenGL截取的图像：

savePngImage "flipped_snapshot.png" . ImageRGBA8 $ flipVertically yourSnapshotImage

内容的提问来源于stack exchange，提问作者JeanJouX