智能颜色处理(低于鲜艳阈值增强鲜艳度，高于则加深颜色)

李泽勇2 · 发表于 2025-6-12 09:24:47

智能颜色处理(低于鲜艳阈值增强鲜艳度，高于鲜艳阈值加深颜色)，里面有详细注释，人人都看得懂。

附件：

游客，如果您要查看本帖隐藏内容请回复

李泽勇2 · 发表于 2025-6-16 08:46:11

本帖最后由李泽勇2 于 2025-6-16 08:49 编辑

汉族发表于 2025-6-15 21:43
这是什么高级的原理

还有个优化版，增加了加深系数参数如果复制出来代码带？的，用纯文本模式复制即可。

子程序名	返回值类型	公开	备注
智能颜色处理_优化版	整数型		可以使用
参数名	类型	参考	可空	数组	备注
原颜色值	整数型
鲜艳度系数	小数型				推荐范围0-1（0=不变，1=最鲜艳/最深色）
鲜艳度阈值	小数型				推荐范围0-1（低于此值增强鲜艳度，高于此值加深颜色）
颜色加深系数	小数型				推荐范围0-1（0=不加深，1=最大加深浓度）

变量名	类型	静态	数组	备注
红分量	整数型
绿分量	整数型
蓝分量	整数型
新红	整数型
新绿	整数型
新蓝	整数型
最大分量	整数型
最小分量	整数型
中间分量	整数型
平均亮度	整数型
差值	整数型
鲜艳度	小数型
最深色红	整数型
最深色绿	整数型
最深色蓝	整数型
亮度	小数型
调整值	整数型
新亮度	整数型
原始亮度	整数型
目标亮度	整数型
亮度比例	小数型
饱和度	小数型
**特征值	小数型
颜色倾向	小数型
亮度调整	整数型
鲜艳度增强因子	小数型

' 分解RGB分量
红分量＝原颜色值＼ 65536
绿分量＝原颜色值＼ 256 ％ 256
蓝分量＝原颜色值％ 256
' 特殊处理：如果是纯黑色，保持不变

如果真 (红分量＝ 0 且绿分量＝ 0 且蓝分量＝ 0)

返回 (原颜色值)
' 特殊处理：如果是纯白色，保持不变

如果真 (红分量＝ 255 且绿分量＝ 255 且蓝分量＝ 255)

返回 (原颜色值)

' 计算当前颜色的基本属性
平均亮度＝ (红分量＋绿分量＋蓝分量) ÷ 3
最大分量＝取最大值 (红分量, 取最大值 (绿分量, 蓝分量))
最小分量＝取最小值 (红分量, 取最小值 (绿分量, 蓝分量))
差值＝最大分量－最小分量
' 计算颜色饱和度（更准确地表示颜色的鲜艳程度）

如果 (最大分量＞ 0)

饱和度＝差值 ÷ 最大分量

饱和度＝ 0

' 计算**特征值（越接近1表示越接近**）
**特征值＝ 1 －饱和度
' 改进的鲜艳度计算：结合饱和度和亮度
鲜艳度＝饱和度 �� (1 －平均亮度 ÷ 255)
' 计算颜色倾向 - 用于识别主导颜色
颜色倾向＝ 0

如果 (红分量＞绿分量且红分量＞蓝分量)

颜色倾向＝红分量－绿分量＋红分量－蓝分量

如果 (绿分量＞红分量且绿分量＞蓝分量)

颜色倾向＝绿分量－红分量＋绿分量－蓝分量

颜色倾向＝蓝分量－红分量＋蓝分量－绿分量

' 鲜艳度增强因子 - 用于微调**调颜色的鲜艳度
鲜艳度增强因子＝ 1
' 根据饱和度和**特征值决定处理方式

如果 (**特征值＞ 0.7)

' 高度**调颜色（饱和度低于30%）的特殊处理

' 这类颜色需要特别小心处理，避免过度鲜艳或变色

' 对于**调颜色，降低鲜艳度系数的影响，但增加鲜艳度增强因子

鲜艳度系数＝鲜艳度系数 × 0.5

鲜艳度增强因子＝ 1.3 ' 增加**调颜色的鲜艳度增强因子

' 计算中间分量

中间分量＝红分量＋绿分量＋蓝分量－最大分量－最小分量

' 保持主色调，微调其他通道

新红＝红分量

新绿＝绿分量

新蓝＝蓝分量

如果 (鲜艳度系数＞ 0)

' 增强主色调，减弱其他通道，同时增加整体对比度

如果 (红分量＝最大分量)

新红＝取整 (红分量 �� (255 －红分量) × 鲜艳度系数 × 0.5 × 鲜艳度增强因子)

新红＝取整 (红分量 �� (红分量－最小分量) × 鲜艳度系数 × 0.3 × 鲜艳度增强因子)

如果 (绿分量＝最大分量)

新绿＝取整 (绿分量 �� (255 －绿分量) × 鲜艳度系数 × 0.5 × 鲜艳度增强因子)

新绿＝取整 (绿分量 �� (绿分量－最小分量) × 鲜艳度系数 × 0.3 × 鲜艳度增强因子)

如果 (蓝分量＝最大分量)

新蓝＝取整 (蓝分量 �� (255 －蓝分量) × 鲜艳度系数 × 0.5 × 鲜艳度增强因子)

新蓝＝取整 (蓝分量 �� (蓝分量－最小分量) × 鲜艳度系数 × 0.3 × 鲜艳度增强因子)

' 额外保护：确保**调不会完全消失

如果 (取绝对值 (新红－新绿) ＞ 50 且取绝对值 (新绿－新蓝) ＞ 50 且取绝对值 (新红－新蓝) ＞ 50)

' 如果颜色变化过大，保留更多的原始**调

新红＝取整 (新红 × 0.7 ＋红分量 × 0.3)

新绿＝取整 (新绿 × 0.7 ＋绿分量 × 0.3)

新蓝＝取整 (新蓝 × 0.7 ＋蓝分量 × 0.3)

' 鲜艳度系数为0，保持原颜色不变

新红＝红分量

新绿＝绿分量

新蓝＝蓝分量

' 正常颜色处理逻辑

' 判断是否需要增强鲜艳度或加深颜色

如果 (鲜艳度＜鲜艳度阈值)

' 颜色不够鲜艳，执行鲜艳度增强

' 对于中等饱和度的颜色，降低鲜艳度系数的影响

如果 (饱和度＜ 0.5)

鲜艳度系数＝鲜艳度系数 × 0.7

鲜艳度增强因子＝ 1.2 ' 增加中等饱和度颜色的鲜艳度增强因子

新红＝红分量

新绿＝绿分量

新蓝＝蓝分量

' 找出中间分量

中间分量＝红分量＋绿分量＋蓝分量－最大分量－最小分量

' 应用鲜艳系数增强颜色

如果 (鲜艳度系数＞ 0)

' 增加最大分量，减少最小分量，中间分量适当调整

如果 (红分量＝最大分量)

新红＝取整 (红分量 �� (255 －红分量) × 鲜艳度系数 × 鲜艳度增强因子)

如果 (红分量＝最小分量)

新红＝取整 (红分量－红分量 × 鲜艳度系数 × 鲜艳度增强因子)

' 中间分量的调整需要保持整体亮度

新红＝取整 (红分量 �� (最大分量－红分量) × 鲜艳度系数 × 0.6 × 鲜艳度增强因子)

如果 (绿分量＝最大分量)

新绿＝取整 (绿分量 �� (255 －绿分量) × 鲜艳度系数 × 鲜艳度增强因子)

如果 (绿分量＝最小分量)

新绿＝取整 (绿分量－绿分量 × 鲜艳度系数 × 鲜艳度增强因子)

新绿＝取整 (绿分量 �� (最大分量－绿分量) × 鲜艳度系数 × 0.6 × 鲜艳度增强因子)

如果 (蓝分量＝最大分量)

新蓝＝取整 (蓝分量 �� (255 －蓝分量) × 鲜艳度系数 × 鲜艳度增强因子)

如果 (蓝分量＝最小分量)

新蓝＝取整 (蓝分量－蓝分量 × 鲜艳度系数 × 鲜艳度增强因子)

新蓝＝取整 (蓝分量 �� (最大分量－蓝分量) × 鲜艳度系数 × 0.6 × 鲜艳度增强因子)

' 鲜艳系数为0，保持原颜色不变

新红＝红分量

新绿＝绿分量

新蓝＝蓝分量

' 颜色已经足够鲜艳，执行颜色加深（应用新的颜色加深系数）

' 计算原始颜色的亮度

亮度＝ (最大分量＋最小分量) ÷ 2 ÷ 255

' 计算最深色参考值（根据亮度动态调整，避免变黑）

如果 (亮度＞ 0.7)

' 亮色的最深色参考值为原始颜色的30%

最深色红＝取整 (红分量 × 0.3)

最深色绿＝取整 (绿分量 × 0.3)

最深色蓝＝取整 (蓝分量 × 0.3)

' 暗色的最深色参考值为原始颜色的60%

最深色红＝取整 (红分量 × 0.6)

最深色绿＝取整 (绿分量 × 0.6)

最深色蓝＝取整 (蓝分量 × 0.6)

' 应用加深系数，将颜色向最深色参考值混合（使用新的颜色加深系数）

新红＝取整 (红分量 �� (红分量－最深色红) × 颜色加深系数)

新绿＝取整 (绿分量 �� (绿分量－最深色绿) × 颜色加深系数)

新蓝＝取整 (蓝分量 �� (蓝分量－最深色蓝) × 颜色加深系数)

' 边界限制

如果 (新红＜ 0)

新红＝ 0

如果 (新红＞ 255)

新红＝ 255

如果 (新绿＜ 0)

新绿＝ 0

如果 (新绿＞ 255)

新绿＝ 255

如果 (新蓝＜ 0)

新蓝＝ 0

如果 (新蓝＞ 255)

新蓝＝ 255

' 保持整体亮度不变的微调

如果 (鲜艳度系数＞ 0 或颜色加深系数＞ 0)

新亮度＝ (新红＋新绿＋新蓝) ÷ 3

' 亮度变化控制在15%以内（比之前放宽5%，以允许更多鲜艳度）

如果 (新亮度＞平均亮度 × 1.15)

亮度调整＝ (新亮度－平均亮度) ÷ 3

新红＝取整 (新红－亮度调整)

新绿＝取整 (新绿－亮度调整)

新蓝＝取整 (新蓝－亮度调整)

如果 (新亮度＜平均亮度 × 0.85)

亮度调整＝ (平均亮度－新亮度) ÷ 3

新红＝取整 (新红＋亮度调整)

新绿＝取整 (新绿＋亮度调整)

新蓝＝取整 (新蓝＋亮度调整)

' 再次边界限制

如果真 (新红＜ 0)

新红＝ 0

如果真 (新绿＜ 0)

新绿＝ 0

如果真 (新蓝＜ 0)

新蓝＝ 0

如果真 (新红＞ 255)

新红＝ 255

如果真 (新绿＞ 255)

新绿＝ 255

如果真 (新蓝＞ 255)

新蓝＝ 255

' 重组颜色值
返回 (新红 × 65536 ＋新绿 × 256 ＋新蓝)

.版本 2<br />
<br />
.子程序 智能颜色处理_优化版, 整数型, 公开, 可以使用<br />
.参数 原颜色值, 整数型<br />
.参数 鲜艳度系数, 小数型, , 推荐范围0-1（0=不变，1=最鲜艳/最深色）<br />
.参数 鲜艳度阈值, 小数型, , 推荐范围0-1（低于此值增强鲜艳度，高于此值加深颜色）<br />
.参数 颜色加深系数, 小数型, , 推荐范围0-1（0=不加深，1=最大加深浓度）<br />
.局部变量 红分量, 整数型<br />
.局部变量 绿分量, 整数型<br />
.局部变量 蓝分量, 整数型<br />
.局部变量 新红, 整数型<br />
.局部变量 新绿, 整数型<br />
.局部变量 新蓝, 整数型<br />
.局部变量 最大分量, 整数型<br />
.局部变量 最小分量, 整数型<br />
.局部变量 中间分量, 整数型<br />
.局部变量 平均亮度, 整数型<br />
.局部变量 差值, 整数型<br />
.局部变量 鲜艳度, 小数型<br />
.局部变量 最深色红, 整数型<br />
.局部变量 最深色绿, 整数型<br />
.局部变量 最深色蓝, 整数型<br />
.局部变量 亮度, 小数型<br />
.局部变量 调整值, 整数型<br />
.局部变量 新亮度, 整数型<br />
.局部变量 原始亮度, 整数型<br />
.局部变量 目标亮度, 整数型<br />
.局部变量 亮度比例, 小数型<br />
.局部变量 饱和度, 小数型<br />
.局部变量 **特征值, 小数型<br />
.局部变量 颜色倾向, 小数型<br />
.局部变量 亮度调整, 整数型<br />
.局部变量 鲜艳度增强因子, 小数型<br />
<br />
' 分解RGB分量<br />
红分量 ＝ 原颜色值 ＼ 65536<br />
绿分量 ＝ 原颜色值 ＼ 256 ％ 256<br />
蓝分量 ＝ 原颜色值 ％ 256<br />
<br />
' 特殊处理：如果是纯黑色，保持不变<br />
.如果真 (红分量 ＝ 0 且 绿分量 ＝ 0 且 蓝分量 ＝ 0)<br />
    返回 (原颜色值)<br />
.如果真结束<br />
' 特殊处理：如果是纯白色，保持不变<br />
.如果真 (红分量 ＝ 255 且 绿分量 ＝ 255 且 蓝分量 ＝ 255)<br />
    返回 (原颜色值)<br />
.如果真结束<br />
<br />
' 计算当前颜色的基本属性<br />
平均亮度 ＝ (红分量 ＋ 绿分量 ＋ 蓝分量) ÷ 3<br />
最大分量 ＝ 取最大值 (红分量, 取最大值 (绿分量, 蓝分量))<br />
最小分量 ＝ 取最小值 (红分量, 取最小值 (绿分量, 蓝分量))<br />
差值 ＝ 最大分量 － 最小分量<br />
<br />
' 计算颜色饱和度（更准确地表示颜色的鲜艳程度）<br />
.如果 (最大分量 ＞ 0)<br />
    饱和度 ＝ 差值 ÷ 最大分量<br />
.否则<br />
    饱和度 ＝ 0<br />
.如果结束<br />
<br />
' 计算**特征值（越接近1表示越接近**）<br />
**特征值 ＝ 1 － 饱和度<br />
<br />
' 改进的鲜艳度计算：结合饱和度和亮度<br />
鲜艳度 ＝ 饱和度 × (1 － 平均亮度 ÷ 255)<br />
<br />
' 计算颜色倾向 - 用于识别主导颜色<br />
颜色倾向 ＝ 0<br />
.如果 (红分量 ＞ 绿分量 且 红分量 ＞ 蓝分量)<br />
    颜色倾向 ＝ 红分量 － 绿分量 ＋ 红分量 － 蓝分量<br />
.否则<br />
    .如果 (绿分量 ＞ 红分量 且 绿分量 ＞ 蓝分量)<br />
        颜色倾向 ＝ 绿分量 － 红分量 ＋ 绿分量 － 蓝分量<br />
    .否则<br />
        颜色倾向 ＝ 蓝分量 － 红分量 ＋ 蓝分量 － 绿分量<br />
    .如果结束<br />
<br />
.如果结束<br />
<br />
' 鲜艳度增强因子 - 用于微调**调颜色的鲜艳度<br />
鲜艳度增强因子 ＝ 1<br />
<br />
' 根据饱和度和**特征值决定处理方式<br />
.如果 (**特征值 ＞ 0.7)<br />
    ' 高度**调颜色（饱和度低于30%）的特殊处理<br />
    ' 这类颜色需要特别小心处理，避免过度鲜艳或变色<br />
<br />
    ' 对于**调颜色，降低鲜艳度系数的影响，但增加鲜艳度增强因子<br />
    鲜艳度系数 ＝ 鲜艳度系数 × 0.5<br />
    鲜艳度增强因子 ＝ 1.3  ' 增加**调颜色的鲜艳度增强因子<br />
<br />
    ' 计算中间分量<br />
    中间分量 ＝ 红分量 ＋ 绿分量 ＋ 蓝分量 － 最大分量 － 最小分量<br />
<br />
    ' 保持主色调，微调其他通道<br />
    新红 ＝ 红分量<br />
    新绿 ＝ 绿分量<br />
    新蓝 ＝ 蓝分量<br />
<br />
    .如果 (鲜艳度系数 ＞ 0)<br />
        ' 增强主色调，减弱其他通道，同时增加整体对比度<br />
        .如果 (红分量 ＝ 最大分量)<br />
            新红 ＝ 取整 (红分量 ＋ (255 － 红分量) × 鲜艳度系数 × 0.5 × 鲜艳度增强因子)<br />
        .否则<br />
            新红 ＝ 取整 (红分量 － (红分量 － 最小分量) × 鲜艳度系数 × 0.3 × 鲜艳度增强因子)<br />
        .如果结束<br />
<br />
        .如果 (绿分量 ＝ 最大分量)<br />
            新绿 ＝ 取整 (绿分量 ＋ (255 － 绿分量) × 鲜艳度系数 × 0.5 × 鲜艳度增强因子)<br />
        .否则<br />
            新绿 ＝ 取整 (绿分量 － (绿分量 － 最小分量) × 鲜艳度系数 × 0.3 × 鲜艳度增强因子)<br />
        .如果结束<br />
<br />
        .如果 (蓝分量 ＝ 最大分量)<br />
            新蓝 ＝ 取整 (蓝分量 ＋ (255 － 蓝分量) × 鲜艳度系数 × 0.5 × 鲜艳度增强因子)<br />
        .否则<br />
            新蓝 ＝ 取整 (蓝分量 － (蓝分量 － 最小分量) × 鲜艳度系数 × 0.3 × 鲜艳度增强因子)<br />
        .如果结束<br />
<br />
        ' 额外保护：确保**调不会完全消失<br />
        .如果 (取绝对值 (新红 － 新绿) ＞ 50 且 取绝对值 (新绿 － 新蓝) ＞ 50 且 取绝对值 (新红 － 新蓝) ＞ 50)<br />
            ' 如果颜色变化过大，保留更多的原始**调<br />
            新红 ＝ 取整 (新红 × 0.7 ＋ 红分量 × 0.3)<br />
            新绿 ＝ 取整 (新绿 × 0.7 ＋ 绿分量 × 0.3)<br />
            新蓝 ＝ 取整 (新蓝 × 0.7 ＋ 蓝分量 × 0.3)<br />
        .否则<br />
<br />
        .如果结束<br />
<br />
    .否则<br />
        ' 鲜艳度系数为0，保持原颜色不变<br />
        新红 ＝ 红分量<br />
        新绿 ＝ 绿分量<br />
        新蓝 ＝ 蓝分量<br />
    .如果结束<br />
<br />
.否则<br />
    ' 正常颜色处理逻辑<br />
<br />
    ' 判断是否需要增强鲜艳度或加深颜色<br />
    .如果 (鲜艳度 ＜ 鲜艳度阈值)<br />
        ' 颜色不够鲜艳，执行鲜艳度增强<br />
<br />
        ' 对于中等饱和度的颜色，降低鲜艳度系数的影响<br />
        .如果 (饱和度 ＜ 0.5)<br />
            鲜艳度系数 ＝ 鲜艳度系数 × 0.7<br />
            鲜艳度增强因子 ＝ 1.2  ' 增加中等饱和度颜色的鲜艳度增强因子<br />
        .否则<br />
<br />
        .如果结束<br />
<br />
        新红 ＝ 红分量<br />
        新绿 ＝ 绿分量<br />
        新蓝 ＝ 蓝分量<br />
<br />
        ' 找出中间分量<br />
        中间分量 ＝ 红分量 ＋ 绿分量 ＋ 蓝分量 － 最大分量 － 最小分量<br />
<br />
        ' 应用鲜艳系数增强颜色<br />
        .如果 (鲜艳度系数 ＞ 0)<br />
            ' 增加最大分量，减少最小分量，中间分量适当调整<br />
            .如果 (红分量 ＝ 最大分量)<br />
                新红 ＝ 取整 (红分量 ＋ (255 － 红分量) × 鲜艳度系数 × 鲜艳度增强因子)<br />
            .否则<br />
                .如果 (红分量 ＝ 最小分量)<br />
                    新红 ＝ 取整 (红分量 － 红分量 × 鲜艳度系数 × 鲜艳度增强因子)<br />
                .否则<br />
                    ' 中间分量的调整需要保持整体亮度<br />
                    新红 ＝ 取整 (红分量 ＋ (最大分量 － 红分量) × 鲜艳度系数 × 0.6 × 鲜艳度增强因子)<br />
                .如果结束<br />
<br />
            .如果结束<br />
<br />
            .如果 (绿分量 ＝ 最大分量)<br />
                新绿 ＝ 取整 (绿分量 ＋ (255 － 绿分量) × 鲜艳度系数 × 鲜艳度增强因子)<br />
            .否则<br />
                .如果 (绿分量 ＝ 最小分量)<br />
                    新绿 ＝ 取整 (绿分量 － 绿分量 × 鲜艳度系数 × 鲜艳度增强因子)<br />
                .否则<br />
                    新绿 ＝ 取整 (绿分量 ＋ (最大分量 － 绿分量) × 鲜艳度系数 × 0.6 × 鲜艳度增强因子)<br />
                .如果结束<br />
<br />
            .如果结束<br />
<br />
            .如果 (蓝分量 ＝ 最大分量)<br />
                新蓝 ＝ 取整 (蓝分量 ＋ (255 － 蓝分量) × 鲜艳度系数 × 鲜艳度增强因子)<br />
            .否则<br />
                .如果 (蓝分量 ＝ 最小分量)<br />
                    新蓝 ＝ 取整 (蓝分量 － 蓝分量 × 鲜艳度系数 × 鲜艳度增强因子)<br />
                .否则<br />
                    新蓝 ＝ 取整 (蓝分量 ＋ (最大分量 － 蓝分量) × 鲜艳度系数 × 0.6 × 鲜艳度增强因子)<br />
                .如果结束<br />
<br />
            .如果结束<br />
<br />
        .否则<br />
            ' 鲜艳系数为0，保持原颜色不变<br />
            新红 ＝ 红分量<br />
            新绿 ＝ 绿分量<br />
            新蓝 ＝ 蓝分量<br />
        .如果结束<br />
<br />
    .否则<br />
        ' 颜色已经足够鲜艳，执行颜色加深（应用新的颜色加深系数）<br />
        ' 计算原始颜色的亮度<br />
        亮度 ＝ (最大分量 ＋ 最小分量) ÷ 2 ÷ 255<br />
<br />
        ' 计算最深色参考值（根据亮度动态调整，避免变黑）<br />
        .如果 (亮度 ＞ 0.7)<br />
            ' 亮色的最深色参考值为原始颜色的30%<br />
            最深色红 ＝ 取整 (红分量 × 0.3)<br />
            最深色绿 ＝ 取整 (绿分量 × 0.3)<br />
            最深色蓝 ＝ 取整 (蓝分量 × 0.3)<br />
        .否则<br />
            ' 暗色的最深色参考值为原始颜色的60%<br />
            最深色红 ＝ 取整 (红分量 × 0.6)<br />
            最深色绿 ＝ 取整 (绿分量 × 0.6)<br />
            最深色蓝 ＝ 取整 (蓝分量 × 0.6)<br />
        .如果结束<br />
<br />
        ' 应用加深系数，将颜色向最深色参考值混合（使用新的颜色加深系数）<br />
        新红 ＝ 取整 (红分量 － (红分量 － 最深色红) × 颜色加深系数)<br />
        新绿 ＝ 取整 (绿分量 － (绿分量 － 最深色绿) × 颜色加深系数)<br />
        新蓝 ＝ 取整 (蓝分量 － (蓝分量 － 最深色蓝) × 颜色加深系数)<br />
    .如果结束<br />
<br />
.如果结束<br />
<br />
' 边界限制<br />
.如果 (新红 ＜ 0)<br />
    新红 ＝ 0<br />
.否则<br />
    .如果 (新红 ＞ 255)<br />
        新红 ＝ 255<br />
    .否则<br />
<br />
    .如果结束<br />
<br />
.如果结束<br />
<br />
.如果 (新绿 ＜ 0)<br />
    新绿 ＝ 0<br />
.否则<br />
    .如果 (新绿 ＞ 255)<br />
        新绿 ＝ 255<br />
    .否则<br />
<br />
    .如果结束<br />
<br />
.如果结束<br />
<br />
.如果 (新蓝 ＜ 0)<br />
    新蓝 ＝ 0<br />
.否则<br />
    .如果 (新蓝 ＞ 255)<br />
        新蓝 ＝ 255<br />
    .否则<br />
<br />
    .如果结束<br />
<br />
.如果结束<br />
<br />
' 保持整体亮度不变的微调<br />
.如果 (鲜艳度系数 ＞ 0 或 颜色加深系数 ＞ 0)<br />
    新亮度 ＝ (新红 ＋ 新绿 ＋ 新蓝) ÷ 3<br />
<br />
    ' 亮度变化控制在15%以内（比之前放宽5%，以允许更多鲜艳度）<br />
    .如果 (新亮度 ＞ 平均亮度 × 1.15)<br />
        亮度调整 ＝ (新亮度 － 平均亮度) ÷ 3<br />
        新红 ＝ 取整 (新红 － 亮度调整)<br />
        新绿 ＝ 取整 (新绿 － 亮度调整)<br />
        新蓝 ＝ 取整 (新蓝 － 亮度调整)<br />
    .否则<br />
        .如果 (新亮度 ＜ 平均亮度 × 0.85)<br />
            亮度调整 ＝ (平均亮度 － 新亮度) ÷ 3<br />
            新红 ＝ 取整 (新红 ＋ 亮度调整)<br />
            新绿 ＝ 取整 (新绿 ＋ 亮度调整)<br />
            新蓝 ＝ 取整 (新蓝 ＋ 亮度调整)<br />
        .否则<br />
<br />
        .如果结束<br />
<br />
    .如果结束<br />
<br />
    ' 再次边界限制<br />
    .如果真 (新红 ＜ 0)<br />
        新红 ＝ 0<br />
    .如果真结束<br />
<br />
    .如果真 (新绿 ＜ 0)<br />
        新绿 ＝ 0<br />
    .如果真结束<br />
<br />
    .如果真 (新蓝 ＜ 0)<br />
        新蓝 ＝ 0<br />
    .如果真结束<br />
<br />
    .如果真 (新红 ＞ 255)<br />
        新红 ＝ 255<br />
    .如果真结束<br />
<br />
    .如果真 (新绿 ＞ 255)<br />
        新绿 ＝ 255<br />
    .如果真结束<br />
<br />
    .如果真 (新蓝 ＞ 255)<br />
        新蓝 ＝ 255<br />
    .如果真结束<br />
<br />
.否则<br />
<br />
.如果结束<br />
<br />
' 重组颜色值<br />
返回 (新红 × 65536 ＋ 新绿 × 256 ＋ 新蓝)