Яркость пикселя

← →
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"е не нашел?

Плохо искал.

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.

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

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;

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