上一次，我们讲了锐化、柔化、扩散、雕刻这几个滤镜的算法和实现
请参考《vb图像处理，（三）几个常用滤镜的实现1 》
在这一篇中我将和大家讲述铅笔画算法和木雕算法和它们的实现。
为什么我要把这两个算法放在一起说呢，因为这两个算法是非常相似的。
首先要说一下人的眼睛对于图像的观察，人的眼睛对于灰度（亮度）的敏感
要远远大于对色彩的敏感，而人的眼睛对于暖色调和冷色调的敏感有要远大于
对一般色彩的敏感度。
经过大量的测试，人们得到了一个经验公式，来说明人的眼睛是如何识别亮度的：
gray = red * 0.3 + green * 0.6 + blue * 0.1
而右因为人的眼睛对于绿色的敏感度最大，就有了一个更加近似的公式：
gray = green
请大家再回想一下以前在用铅笔画眼睛看到的景色的时候，是如何做的呢？
轮廓，对了，轮廓是什么呢？其实说白了就是灰度的一个跳变。
因此我们只要设定一个阀值，把电脑上的图片中的像素的色彩转化为灰度，再把
相邻的两个像素的灰度去比较，当灰度变化超过一定的量的时候，我们就判断它是轮廓。
用铅笔把它描绘出来。
有了这个思路，我们就很容易把这个算法写出来了。
public sub pencil(optional byval sensitivity as long = 25)
dim i as long
dim l as long
dim m as long
dim n as long
dim col as long
dim colnext as long
'on error goto errline
if not canput then exit sub
done = false
timefilter = timegettime
for i = 0 to outputwid - 1
m = i + 1
for l = 0 to outputhei - 1
n = l + 1
col = colout(0, i, l) * 3 + colout(1, i, l) * 6 + colout(2, i, l)
col = col / 10 '当前点的灰度哦。
colnext = colout(0, m, n) * 3 + colout(1, m, n) * 6 + colout(2, m, n)
colnext = -colnext / 10 '下一点的灰度哦。
if col + colnext > sensitivity then '判断灰度变化是否超过设定的阀值
colout(0, i, l) = 0 'rgb(0,0,0)表示黑色
colout(1, i, l) = 0
colout(2, i, l) = 0
else
colout(0, i, l) = 255 'rgb(255,255,255)表示白色
colout(1, i, l) = 255
colout(2, i, l) = 255
end if
next
next
done = true
timefilter = timegettime - timefilter
exit sub
errline:
msgbox err.description
end sub
这里用到的所有全局变量都已经在前几章中用到，就不再重复说明了。
说到这里，那么木雕的原理就更简单啦，无非就是判断该点像素的灰度，如果灰度大于给定的阀值，
就设它为白色，如果该点像素的灰度小于给定的阀值，就设定它为黑色。
那么，这个算法，我就不写出来了，让给电脑前的读者，自己写一个试试看吧，不会难道你的。
这两篇讲的都是一些很简单的图像处理，下一篇讲给大家讲“灰度直方图”的概念，大家或许用过
photoshop中的autolevel的功能吧，它可以把一张色彩很“别扭”的图像转换为很“舒服”的效果，
那么就需要用到“灰度直方图”这个工具了，希望大家不要错过。
对了，前几章的内容请点一下链接：
《vb图像处理，（一）像素的获取和输出 》
《vb图像处理，（二）二次线性插值的应用》
《vb图像处理，（三）几个常用滤镜的实现1 》
（这里只是说了我自己在写程序的时候用到的方法，存在很多的不足。并且因为在贴上来的时候作了部分修改，可能会存在部分错误，请各位高手不吝赐教，将您用到的更好的方法提供一下，我将不胜感激。）
