Инверсия синей компоненты изображения

[Nice Plant]

Доброго времени суток.


Уважаемые знатоки! Требуется помощь в реализации данной задачи: "Инверсия синей компоненты изображения. Формат BMP"

Хотелось бы узнать способ/метод, как это реализовать.

Заранее спасибо.

[Человек_Борща]

Телепатия подсказывает что все синий пиксели должны иметь противоположный цвет. Если так, то цикл по пикселям и инверсируете цвета.

[Nice Plant]

Сообщение от Человек_Борща

Телепатия подсказывает что все синий пиксели должны иметь противоположный цвет. Если так, то цикл по пикселям и инверсируете цвета.

вот именно)) а какой цвет?))

[Аватар]

Вариант1. ColorToRGB. К каждой состовляющей NOT применить. RGBToColor
Вариант2. ColorToRGB. СolorRGBToHLS. Для HLS NOT нельзя, нужно из 240 вычетать. ColorHLSToRGB. RGBToColor

[raxp]

Либо XOR над полным Color, либо (255-компонент каждого из R-G-B). Это будет инверсия.

Вот только сочетаемые цвета тут не совсем могут получиться, но это уже цветовосприятие, а у каждого оно индивидуально.

[Nice Plant]

Сообщение от raxp

Либо XOR над полным Color, либо (255-компонент каждого из R-G-B). Это будет инверсия.

Вот только сочетаемые цвета тут не совсем могут получиться, но это уже цветовосприятие, а у каждого оно индивидуально.

т.е. если я применю XOR только для синей компоненты, то сделают инверсию исключительно этого канала?)

[BDA]

TColor - 4 байта:
0000 0000 0000 0000 0000 0000 0000 0000
Делаете XOR c:
0000 0000 1111 1111 0000 0000 0000 0000
Чтобы инвертировать синий.

[cyberdev]

Самый просто способ - использовать стандартные функции

function BInvert(C: TColor): Integer;
var
  R,G,B: Byte;
  CRGB: Integer;
begin
  CRGB := ColorToRGB(C);
  R := GetRValue(CRGB);
  G := GetGValue(CRGB);
  B := GetBValue(CRGB);
  B := 255 - B;
  Result := RGB(R, G, B);
end;