Трёхерная графика. Шар Опции

[art88]

Здача:
Изобразить расположенный на поверхности гладкий красный шар(освещённый).
-------------------------------------------------
Проблема:
Думаю, что большую часть этой задачи я решил(см. Globe.pas).
Осталось правильно раскрасить шар.
Вот формула яркоти поверхности
I= kр Iр + kн Iнcos(a)
kр - коэффициент отражения рассеянного света (kд<1);
kн - коэффициент отражения направленного света;
Iр - интенсивность рассеянного света;
Iн - интенсивность падающего света;
а - угол между направлением света и нормалью к поверхности.
I у меня считается, вопрос только в том, как задать оттенки красного.
Пробовал в цикле менять угол от 0 до пи, считать I и делать SetRGBPalette(j, $FF*I, 00, 00), но кроме красного откуда-то берутся и другие цвета.
Помогите пожалуйста!
(Для тех, у кого не читаются комментарии globe.doc)

[volvo]

Пробовал в цикле менять угол от 0 до пи, считать I и делать SetRGBPalette(j, $FF*I, 00, 00), но кроме красного откуда-то берутся и другие цвета.

Из TP Хелпа по процедуре SetRgbPalette:

Restrictions:
SetRGBPalette can be used only with the IBM 8514 driver and the VGA.

У тебя IBM8514?

Насколько я вижу, у тебя вообще 16-цветный режим устанавливается... Как же ты хочешь в нем получить НЕСКОЛЬКО оттенков красного? Попробуй использовать 256-цветный (например, SVGA.BGI)