.版本 2
.计次循环首 (画板1.宽度, x)
.计次循环首 (画板1.高度, y)
' 10进制 三基色 颜色数值
RGB = 到字节集 (画板1.取点 (x, y))
画板2.画点 (x, y, RGB [1])
画板2.画点 (x, y, RGB [2] × 256)
画板2.画点 (x, y, RGB [3] × 65536)
RGB_中 = 到字节集 (画板1.取点 (x, y))
' 计算灰度值
RGB_中_灰度值 [1] = 到整数 ((RGB_中 [1] + RGB_中 [2] + RGB_中 [3]) ÷ 3)
.计次循环尾 ()
.计次循环尾 ()
.计次循环首 (画板1.宽度, x)
.计次循环首 (画板1.高度, y)
' 10进制 三基色 颜色数值
RGB = 到字节集 (画板1.取点 (x, y))
画板2.画点 (x, y, RGB [1])
画板2.画点 (x, y, RGB [2] × 256)
画板2.画点 (x, y, RGB [3] × 65536)
RGB_中 = 到字节集 (画板1.取点 (x, y))
' 计算灰度值
RGB_中_灰度值 [1] = 到整数 ((RGB_中 [1] + RGB_中 [2] + RGB_中 [3]) ÷ 3)
.计次循环尾 ()
.计次循环尾 ()