Преобразование цвета в Ч/Б

[-=TsA=-]

Уважаемые, а есть какая нибудь функция для преобразования цвета (32bpp) в оттенки серого (32bpp)? Или хотя бы формула?
Сам делаю так:

Код: Выделить всё

R = Int(C / 65536 / 3)
G = Int((C Mod 65536) / 256 / 3)
B = Int((C Mod 256) / 3)
C = R Or G Or B
C = RGB(С, С, С)


но не устраивает скорость.

ЗЫ. Чуть подправил

[djalex777]

Оттенки серого тоже бывают разные Стандартные получаются усреднением суммы всех компонент цвета. Вот пример кода:

Код: Выделить всё

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Function GetGrayscaleColor(cl As Long) As Long
Dim b(0 To 3) As Byte, tmp_cl As Byte, get_cl As Long
CopyMemory ByVal VarPtr(b(0)), ByVal VarPtr(cl), 4
tmp_cl = CByte((CLng(b(0)) + CLng(b(1)) + CLng(b(2))) / 3)
b(0) = tmp_cl
b(1) = tmp_cl
b(2) = tmp_cl
CopyMemory ByVal VarPtr(get_cl), ByVal VarPtr(b(0)), 4
GetGrayscaleColor = get_cl
End Function

[tyomitch]

Оттенки серого тоже бывают разные Стандартные получаются усреднением суммы всех компонент цвета.

Гон. Чисто-жёлтый светлее чисто-синего.

Правильный код: http://bbs.vbstreets.ru/viewtopic.php?p=79704#79704

[-=TsA=-]

Спасибо

[HiSER]

Мой вариант конвертации:

Код: Выделить всё

Color = Fix(Color / &H10101) * &H10101


Попробовал на примере tyomitch'a, работает по быстрей.

[tyomitch]

HiSER тоже думает, что яркости трёх основных цветов равны?
Пусть тогда читает спецификации NTSC, к примеру.

[HiSER]

Понял... Осознал свою ошибку...