| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 颜色加深_优化版 | 整数型 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 原颜色值 | 整数型 | 加深系数 | 小数型 | 推荐范围0-1（0=不变，1=最深色） | |||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 红分量 | 整数型 | |||||
| 绿分量 | 整数型 | |||||
| 蓝分量 | 整数型 | |||||
| 新红 | 整数型 | |||||
| 新绿 | 整数型 | |||||
| 新蓝 | 整数型 | |||||
| 亮度 | 小数型 | |||||
红分量 ＝ 原颜色值 ＼ 65536
绿分量 ＝ 原颜色值 ＼ 256 ％ 256
蓝分量 ＝ 原颜色值 ％ 256
' 特殊处理：如果是纯黑色，保持不变
如果真 (红分量 ＝ 0 且 绿分量 ＝ 0 且 蓝分量 ＝ 0)
返回 (原颜色值)
' 特殊处理：如果是纯白色，保持不变
如果真 (红分量 ＝ 255 且 绿分量 ＝ 255 且 蓝分量 ＝ 255)返回 (原颜色值)' 计算原始颜色的亮度（标准方法）
亮度 ＝ (红分量 × 0.299 ＋ 绿分量 × 0.587 ＋ 蓝分量 × 0.114) ÷ 255
' 计算加深后的颜色分量
新红 ＝ 红分量 － 取整 ( (255 － 红分量) × 亮度 × 加深系数)
新绿 ＝ 绿分量 － 取整 ( (255 － 绿分量) × 亮度 × 加深系数)
新蓝 ＝ 蓝分量 － 取整 ( (255 － 蓝分量) × 亮度 × 加深系数)
' 边界限制
新红 ＝ 取最大值 (0, 取最小值 (255, 新红))
新绿 ＝ 取最大值 (0, 取最小值 (255, 新绿))
新蓝 ＝ 取最大值 (0, 取最小值 (255, 新蓝))
' 重组颜色值
返回 (新红 × 65536 ＋ 新绿 × 256 ＋ 新蓝)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 取最大值 | 整数型 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 值1 | 整数型 | 值2 | 整数型 | ||||
如果 (值1 ＞ 值2)
返回 (值1)
返回 (值2)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 取最小值 | 整数型 | ||||||
| 参数名 | 类 型 | 参考 | 可空 | 数组 | 备 注 | ||
| 值1 | 整数型 | 值2 | 整数型 | ||||
如果 (值1 ＜ 值2)返回 (值1)返回 (值2)