Код
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;
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;
Что нужно изменить?