Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.11.13;
Скачать: 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 вся ветка

Текущий архив: 2005.11.13;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.037 c
6-1120208556
Dust
2005-07-01 13:02
2005.11.13
TCPDUMP или чтонить ещё


2-1130181245
Gala_l
2005-10-24 23:14
2005.11.13
Component TIdMessage


14-1129842962
Ломброзо
2005-10-21 01:16
2005.11.13
Нордическая музыка


3-1128085178
alpine
2005-09-30 16:59
2005.11.13
Как сделать выборку по полю SUM(SUMMA) ?


2-1129566424
yura32
2005-10-17 20:27
2005.11.13
IdHTTPServer1