Палитра из цветов радуги, спектр Опции

[Romtek]

Я нашёл этот код, но мне нужен перелив цветов от красного до синего (через зелёный, по спектру). А этот делает перелив от синего до красного и снова до синего.

Код

type
rgb = record
 r,
 g,
 b : byte
end;
paltype  = array[0..255] of rgb;

procedure GradientPal (var pal: paltype);
var i: byte;
begin
    For I := 0 To 255 Do
    with pal[i] do
    begin
         r := Round (Abs (127.0 * sin ( I * Pi/256.0)));
         g := Round (Abs (127.0 * sin ( I * Pi/128.0)));
         b := Round (Abs (127.0 * cos ( I * Pi/256.0)))
    end;
end;

Что нужно изменить?

[Бродяжник]

To P@sh@
Сорри... Плохо быть таким бестолковым. Это у меня мозги слегка перекосило. Написал три программы - на Паскале, на Дельфи+GDI, на Дельфи+OpenGL - и всюду сделал одну и ту же ошибку. Вместо "1" написал "i".
На выходных отдохнул, мозги прояснились... <_< В общем, если это полезно, сейчас попробую прикрепить файл с плодами своих изысканий...