Скачать: 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 вся ветка

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



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