delphi – 如何在RGB图像中交换红色和蓝色并保持亮度？

2023年11月7日 516次阅读

我正在读一个24位位图：

var P: PByteArray;
...
for y:=0 to Bmp.Height-1 do begin
    P := Bmp.ScanLine[y];
    for x:=0 to Bmp.Width-1 do begin
      R := P[3*x+2];
      G := P[3*x+1];
      B := P[3*x  ];

现在我将RGB与BGR交换：

      P[3*x+2] := B;
      P[3*x+1] := G;
      P[3*x  ] := R;

因此,如果我的图像上有红色,那么它现在是蓝色的,蓝色是红色的.但问题是亮度变化,新图像比源图像更暗或更亮.
如何使输出图像像输入图像一样亮/暗？

最佳答案 我建议你先从RGB转换为
HSL.

然后转动
colorwheel(又名Hue,见下文)将红色转换为蓝色并转换回RGB.

这应该保持亮度.

德尔福有一个单位可以做到这一点：VCL.GraphUtil.

您可以使用：
procedure ColorRGBToHLS(clrRGB: TColorRef; var Hue, Luminance, Saturation: Word);和
 function ColorHLSToRGB(Hue, Luminance, Saturation: Word): TColorRef;.

色调

Hue相当不言自明,从0开始为红色.随着它的价值增加,它会穿过彩虹的颜色.我还没有测试过GraphUtils输出的内容,但是如果一个圆有256度,则值为：

>红色0
>橙20
>黄40
>绿80
>青色120
>蓝160
>紫罗兰180
>洋红色200
>粉红色220

Embarcadero使用非标准HLS而不是HSL是没有用的,但这就是生命.

点赞