Главная страница
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.057 c
3-1128230792
YurikGL
2005-10-02 09:26
2005.11.13
Динамическое формирование текста Exception в ХП


14-1130082264
n0name
2005-10-23 19:44
2005.11.13
Размер EXE.


11-1111460155
stals
2005-03-22 05:55
2005.11.13
Еще один халявный вопрос :)


14-1129167538
pazitron_brain
2005-10-13 05:38
2005.11.13
Секрет увеличения производительности Windows.


6-1122136315
kami
2005-07-23 20:31
2005.11.13
Переслать несколько больших файлов Client/Serv Socket