图像模糊纯算法

仅仅为算法并能直接使用，或优化后可使用
w ＝ 滑块条1.位置
.计次循环首 (4, ) ' 四次重复模糊，可能会变慢
.计次循环首 (k, x)
.计次循环首 (g, y)
s ＝ 颜色组 [x] [y]
.计次循环首 (8, n)
xx ＝ x ＋ 坐标 [n].x
yy ＝ y ＋ 坐标 [n].y
.如果真 (xx ＞ 0 且 yy ＞ 0 且 xx ≤ k 且 yy ≤ g)
s ＝ RGB颜色透明 (s, 色组 [xx] [yy], w)
.如果真结束

.计次循环尾 ()
色组 [x] [y] ＝ s
新位图.置某点颜色 (x － 1, y － 1, s)
.计次循环尾 ()
.计次循环尾 ()
.计次循环尾 ()
图片框1.图片 ＝ 新位图.取位图数据 ()