Скачать: CL | DM;

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

← →
Ш-К   (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;

---

← →
uny ©   (2005-06-23 20:15) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.056 c