颜色越多越不容易分辨,这就是40种颜色的东东。如果再有改变请更改
if n<=10 then
r:=255-15*n
g:=100
b:=100
end if
if 10<n&n<=20 then
r:=100
g:=255-(n-10)*25.5
b:=100
end if
if 20<n&n<=30 then
r:=100
g:=100
b:=255-(n-20)*25.5
end if
if 30<n&n<=41 then
r:=255-(n-30)*25.5
g:=255-(n-30)*25.5
b:=50
end if
中的数字参数。
附件: 您所在的用户组无法下载或查看附件