RGBイメージで赤と青を交換して明るさを保つ方法は？

Question

私は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 ]; 

は今、私はBGRでRGBを交換：私は私のイメージに赤い何かを持っていた場合

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

は、だから、今青だし、どのような青だったことは赤です。しかし、問題は明るさの変化で、新しい画像は元の画像より暗くなったり明るくなったりします。 出力画像を入力画像と同じ明るさ/暗色にするにはどうすればよいですか？

Answer 1

最初にRGBからHSLに変換することをお勧めします。
次に、colorwheel（別名色相、下記参照）を回して赤を青に変換し、RGBに戻します。
これは輝度を保持するはずです。

デルファイの単位は、VCL.GraphUtilです。

あなたが使用することができます。
procedure ColorRGBToHLS(clrRGB: TColorRef; var Hue, Luminance, Saturation: Word);と function ColorHLSToRGB(Hue, Luminance, Saturation: Word): TColorRef;
。

フエ

色相合理自明であり、赤、0から始まります。その価値が増すにつれて、それは虹の色を通ります。私は何GraphUtils出力をテストしていませんが、円は256度を持っている場合値は次のとおりです。

• レッド0
• オレンジ20
• イエロー40
• グリーン80
• シアン120
• ブルー160
• バイオレット180
• マゼンタ200
• ピンク220

これは、エンバカデロではなくHSLの非標準HLSを使用していますが、それが人生だと役に立たないです。