伪彩色(5分)

本人想预先保存若干个伪彩色的算法(10个)，以便随时显示某图片的(10种)伪彩色。
下面是伪彩色的通用算法，不知改哪里能得到10种左右柔和的伪彩色？

Gray :=Round(p[x*3+2]*0.3+p[x*3+1]*0.59+p[x*3]* 0.11);
if gray < 63 then
begin
//伪彩色处理的算法
p[x*3+2]:=0;
p[x*3+1]:=254-4*gray;
p[x*3]:=255;
end;
if (64<=gray) and (gray<127) then
begin
p[x*3+2]:=0;
p[x*3+1]:=4*gray-254;
p[x*3]:=510-4*gray;
end;
if (128<= gray) and (gray < 191) then
begin
p[x*3+2]:=4*gray-510;
p[x*3+1]:= 255;
p[x*3]:= 0;
end;
if (192 <= gray) then
begin
p[x*3+2] := 255;
p[x*3+1] := 1022-4*gray;
p[x*3] := 0;
end;

如果有人回答了这个问题，请用 email 通知我。