Как сделать изображение бледнее?

← →
Ш-К (2005-06-23 16:47) [0]

Любой алгоритм какой есть.

← →
имя (2005-06-23 17:07) [1]

Удалено модератором

← →
Anatoly Podgoretsky © (2005-06-23 17:07) [2]

Ну может быть умножить на коэффициент менее 1

← →
имя (2005-06-23 17:15) [3]

Удалено модератором

← →
Ш-К (2005-06-23 17:50) [4]

Ну хорошо, увеличение белого цвета при уменьшении контрасности.
А лучше увелечение задаваемого цвета. (серого)
Как сделать?

← →
Ш-К (2005-06-23 17:58) [5]

Вот так делаю - увеличивается котрастность:

procedure TForm1.Button1Click(Sender: TObject);
var
j: Integer;
I: Integer;
_Line: pByteArray;

function RoundEx(AVal: Byte): Byte;
var
_ii: Integer;
begin
_ii := Round(AVal * 1.7);
if _ii > 255 then
Result := 255
else
Result := _ii;
end;

begin
for I := 0 to Image1.Picture.Bitmap.Height - 1 do
begin
_Line := Image1.Picture.Bitmap.ScanLine[I];
for j := 0 to Image1.Picture.Bitmap.Width - 1 do
begin
_Line^[J * 3] := RoundEx(_Line^[J * 3 + 0]);
_Line^[J * 3 + 1] := RoundEx(_Line^[J * 3 + 1]);
_Line^[J * 3 + 2] := RoundEx(_Line^[J * 3 + 2]);
end;
end;
Image1.Refresh;
end;

Ш-К
серый цвет в RGB - это когда значения R, G, B, равны между собой.
если R, G, B отличаются друг от друга на малое значение, то получается серый цвет с оттенками.
Вам подсказали в [2], если при использовании [2] рисунок получается тёмным, то добавьте к каждому из R, G, B константу.

Как сделать изображение бледнее? Найти похожие ветки