VB图像处理之铅笔画算法和木雕算法_电脑教程_在线教程

上一次，我们讲了锐化、柔化、扩散、雕刻这几个滤镜的算法和实现。请参考《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

　　这里用到的所有全局变量都已经在前几章中用到，就不再重复说明了。

　　原图：

　　铅笔画效果：

　　说到这里，那么木雕的原理就更简单啦，无非就是判断该点像素的灰度，如果灰度大于给定的阀值，就设它为白色，如果该点像素的灰度小于给定的阀值，就设定它为黑色。

　　那么，这个算法，我就不写出来了，让给电脑前的读者，自己写一个试试看吧，不会难道你的。

　　原图：

　　木雕效果：

　　这两篇讲的都是一些很简单的图像处理，下一篇讲给大家讲“灰度直方图”的概念，大家或许用过PhotoShop中的AutoLevel的功能吧，它可以把一张色彩很“别扭”的图像转换为很“舒服”的效果，那么就需要用到“灰度直方图”这个工具了，希望大家不要错过。

[文章录入员:nancy]

相关文章：

VB图像处理之图像的亮度对比度调整

VB实现文件数据对SQL Server上传下载

VB6中用Oracle数据控件访问Oracle

相关书籍:

	电脑书籍	网站建设\| 数据库类\| 图形图象\| 程序设计\| 现代办公\| 操作系统\| 考试认证\| 网络技术\| 软件工程\| 电脑相关\| 文学作品
	电脑教程	网站开发\| 网页制作\| 操作系统\| 图象图形\| 考试认证\| 数据库类\| 程序设计\| 硬件技术\| 现代办公\| 网络技术\| 笑话频道