VB图像处理之铅笔画算法和木雕算法

　　 经过大量的测试，人们得到了一个经验公式，来说明人的眼睛是如何识别亮度的：

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