| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
сравнение двух близких цветов [WinXP]
NickKuz © (2005-02-18 00:43:00)Например у нас есть два TColorDialog которые выдают два произвольных (не только стандартных забитых в константы) цвета.
Например Color1 и Color2.
Задача: выяснить являются ли эти цвета одинаковые даже по оттенку.
Пример:
красный и светло красный-одинаковые цвета.
красный и черный естественно разные.
Я придумал такой алгоритм:
Оба цвета преобразовываются к стандартным цветам(я полагаю они будут преобразованы к наиболее близкому) т.е. в примере красный и светло красный по идее должны преобразоваться оба в clRed
Дальше происходит сравнение и выводится результат.
Проблема только в том что я не знаю какая функция отвечает в Delphi за преобразование любого цвета к стандартному.
Вот это мне и хочется познать.
Второй вариант это если ктонибудь предложит любой другой алгоритм решить эту проблему.
заранее спасибо за уделенное время хотябы прочтения а еще лучше помощи по этому вопросу.
REA (2005-02-18 10:21:00) [1]Мои домыслы:
Надо их группировать по какому-либо признаку. В системе HLS (RGBToHLS()) имеет смысл группировать по цветовому тону Hue. Если цвета попадают в заданный диапазон Hue (Например 1..10, 11..20), можно считать их одинаковыми. Хотя визуально от насыщенности и светлоты тоже много зависит и возможно нужен более сложный алгоритм, учитывающий группировку по 3 признакам.
AlexandrKu (2005-02-18 09:59:00) [2]2 Джинн
Но суть этих функций такая-же как я и описал
AlexandrKu (2005-02-18 09:53:00) [3]в том языке для которого я это писал нет этой функции
Джинн (2005-02-18 09:51:00) [4]2 AlexandrKu
Вообще-то, в [2] было дано очень даже правильное решение.
Так что не стоит так изголяться...
В дополнение:
function GetRValue(Color: TColor): byte;
function GetGValue(Color: TColor): byte;
function GetBValue(Color: TColor): byte;
function RGB(R, G, B: byte): TColor;
AlexandrKu (2005-02-18 09:07:00) [5]Обратное преобразование я делал таким образом
Color=(R+G*256+B*65536)
т.е. как перевод из одной системы в другую
B=trunc(color/65536);
G=trunc((color-(b*65536))/256)
R=trunc((color-(b*65536)-(g*256))
вроде так получается
MBo (2005-02-18 06:38:00) [6]Для разных целей существует множество цветовых систем. Почитай о них, выбери подходящую, переводи в нее свои цвета и сравнивай. возможно, это будет HSV, Lab или еще какая-то.
Просто Джо (2005-02-18 02:08:00) [7]GetRValue и по аналогии
Ji (2005-02-18 01:25:00) [8]Я не знаю как привести цвет к виду RRGGBB. Но если это можно сделать, то дальше чистой воды аналитика. Ты можешь определить оттенком какого из основных цветов является твой цвет. Если больше красного, то значит это оттенок красного и т.д. Например если цвет 4188AF, то однозначно синий. Можно еще и промежуточные варианты предусмотреть, а также близкие к черному и белому.
| |
