Алгоритм подбора цвета по целому

[kraw2]

Здравствуйте, уважаемые.
Написал функцию подбора осветленного цвета по коду
(принцип осветления из Delphi World 6 Pro):

function Lighter(Color: Longint):TColor;
// Подбор цвета по целому
var
r, g, b, Percent, pr, pg, pb: Longint;
begin
Color:=ColorToRGB(1000*Color);
r:=GetRValue(Color);
g:=GetGValue(Color);
b:=GetBValue(Color);
if r > 0 then
pr:=(255 div r) * 100 - 100
else
pr:=10;
if g > 0 then
pg:=(255 div g) * 100 - 100
else
pg:=10;
if b > 0 then
pb:=(255 div b) * 100 - 100
else
pb:=10;
Percent:=(pr+pg+pb) div 3;
if Percent < 20 then Percent:=20+Percent;
r:=r+muldiv(255-r,Percent,100); //процент% увеличения яркости
g:=g+muldiv(255-g,Percent,100);
b:=b+muldiv(255-b,Percent,100);
result:=RGB(r,g,b);
end;

Не нравится: 1) Иногда попадаются темные тона.
2) Цвет у рядом стоящих целых очень близок.

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

[spamer]

Оформи код соответственно (#), пока тему не прикрыли...

[kraw2]

Что значит оформи код соотвественно?

[mihali4]

Ну вот, закрыли... Почему ?!
Неужели придется внимательно читать правила раздела ???