Форум: "Media";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
ВнизЯркость пикселя Найти похожие ветки
← →
SiDr © (2004-02-13 00:43) [0]Как узнать яркость пикселя ?
← →
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:40) [1]сложить Red, Green, Blue составляющие в зависимости от задачи или с единичными коэффициентами, либо с 0.3, 0.59, 0.11 (NTSC стандарт)
← →
MBo © (2004-02-13 07:53) [2]пардон, не с единичными, а с равными 1/3.
← →
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;
← →
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"е не нашел?
← →
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 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;
← →
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 вся ветка
Форум: "Media";
Текущий архив: 2004.04.11;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.034 c