Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.11;
Скачать: CL | DM;

Вниз

Яркость пикселя   Найти похожие ветки 

 
SiDr ©   (2004-02-13 00:43) [0]

Как узнать яркость пикселя ?


 
MBo ©   (2004-02-13 07:40) [1]

сложить Red, Green, Blue составляющие в зависимости от задачи или с единичными коэффициентами, либо с 0.3, 0.59, 0.11 (NTSC стандарт)


 
MBo ©   (2004-02-13 07:53) [2]

пардон, не с единичными, а с равными 1/3.


 
Fenik ©   (2004-02-14 10:36) [3]

function Lightness(Color: TColor): Integer;
begin
 Result :=
   0.299*Lo(Color) +
   0.587*Lo(Color shr 8) +
   0.114*Lo((Color shr 8) shr 8);
end;


 
VasRog ©   (2004-02-14 21:04) [4]

Fenik ©   (14.02.04 10:36) [3]
А что за функция Lo? Я что-то такой в help"е не нашел?


 
Fenik ©   (2004-02-14 21:08) [5]

Плохо искал.

Returns the low order Byte of argument X.

Unit

System

Category

miscellaneous routines

function Lo(X): Byte;

Description

Lo returns the low-order Byte of the argument X as an unsigned value. X is an expression of type Integer.


 
Fenik ©   (2004-02-14 23:57) [6]

Млин. Ошибка. Надо округлить ещё:

function Lightness(Color: TColor): Integer;
begin
Result := Round(
 0.299*Lo(Color) +
 0.587*Lo(Color shr 8) +
 0.114*Lo((Color shr 8) shr 8));
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.035 c
9-1069968702
Fuinadan
2003-11-28 00:31
2004.04.11
Игра "Гонки" в исходниках.


14-1082028453
Knight
2004-04-15 15:27
2004.04.11
Сброс счётчика у Xerox 5316 после 80 000 копий...


6-1075973336
mahsus
2004-02-05 12:28
2004.04.11
Протокол ComPort


9-1070977826
race1
2003-12-09 16:50
2004.04.11
game develop


7-1075963179
Creator
2004-02-05 09:39
2004.04.11
Убийство приложения