RGB --> 256, переход между палитрами Опции

[compiler]

Добрый день!
Собственно нужна функция на ФП которая получая RGB-параметры возвращала бы номер этого(или максимально близкого к этому цвету) в стандартной палитре. [ RGBToP(const r, g, b:word):word; ]
Желательно БЕЗ использования асм.
Поиск особых результатов не дал(кроме не к чему не ведущей темы 2003-года)

заранее благодарен

[Neznaika]

По-моему самый простой(и наглядный) пример использования это:
1) Создать 2 различных BMP-файла(с палитрой из 256 цветов) - A.BMP и B.BMP.
Например два пейзажа: море(A.BMP) и пустыня(B.BMP).
2) Из файла A.BMP взять палитру: APalette.RGB.
3) Заменить значения цвета всех пикселей для B.BMP на ближайшие похожие в APalette.RGB.
Палитра APalette.RGB заменит исходную палитру B.BMP.
4) Посмотреть на результат(изменённый B.BMP) и ***
Хорошо, что сейчас палитры не используются!

Сообщение отредактировано: Neznaika - 11.08.2007 23:46