1、VB图像处理之几个常用滤镜的实现前面讲到了二次线性插值的应用。这一篇来给大家讲一下关于锐化、柔化、扩散、雕刻这几个滤镜的实现前面讲到了二次线性插值的应用。这一篇来给大家讲一下关于锐化、柔化、扩散、雕刻这几个滤镜的实现。 一、锐化锐化的算法很简单,就是比较相邻的几个像素,把当前像素加上和周围的像素的差就可以了。这里我给出一个示例:A B C DE F G HI J K LM N O P假设有一个图片,4*4,共16个像素,分别用AL来代表。我们先观察这个图片,只有中间的F,G,J,K这四个像素的“邻居”是全的。为了简便起见,我们只处理这4个像素,因为在实际的图片中由于图片的大小都很多像素组成,所
2、以周围的一圈像素不做处理不会影响到最终的效果。先计算差值: Delta= F - (A+B+C+E+G+I+J+K) / 8(A+B+C+E+G+I+J+K) / 8就是F周围的像素的平均值,将这个平均值乘以一个系数再加到F上,就得到了一个新的F值:F=F + Delta * Alpha这个系数Alpha就是锐化度,改变这个系数就能得到不同的锐化效果。不过一般都是取得比较小的,如:0.3于是,我们只要使用两个循环来遍历整个图片的像素值(去除边界)就能得到一个锐化的效果了。但是大家或许会发现在处理后面几个点的时候,前面的点的值已经不是原来的值了,比如处理G的时候,需要用到F的值,而F则已经被改变
3、,并且F的改变又和G的值有关系,这样就会变成一种循环引用。为了避免整个问题,这里给出一个改良的方法:A B C DE F G HI J K LM N O P我们从A点开始做,将差值计算方法改成: Delta= A - (B+E+F) / 3F=F + Delta * Alpha按照从左到右,从上到下的顺序来扫描所有像素,这时在计算中就不会遇到已经被处理过的像素了,并且因为减少了参与运算的像素,整个处理过程也得以加快。按照我们在VB图像处理之像素的获取和输出中已经得到的像素数组。我们可以这样写:Public Sub Sharp(Optional ByVal SharpDgree As Singl
4、e = 0.3)Dim X As LongDim Y As LongDim Ix As LongDim Iy As LongDim Diff As LongDim Diff1 As LongDim Div1 As SingleDim Div2 As SingleDim Max As LongOn Error GoTo ErrLineMax = 255Done = FalseTimeFilter = timeGetTimeTemplateSize = 1Sensitivity = Sensitivity * 9Div1 = 1 + SharpDgreeDiv2 = -SharpDgree / 3
5、For X = 0 To OutPutWid - 1 For Y = 0 To OutPutHei -1RR = ColOut(0, X, Y) * Div1GG = ColOut(1, X, Y) * Div1BB = ColOut(2, X, Y) * Div1Ix = X + 1 Iy = Y + 1 R = ColOut(0, Ix, Iy)R = R + ColOut(0, X, Iy) + ColOut(0, Ix, Y)G = ColOut(1, Ix, Iy)G = G + ColOut(1, X, Iy) + ColOut(1, Ix, Y)B = ColOut(2, Ix,
6、 Iy)B = B + ColOut(2, X, Iy) + ColOut(2, Ix, Y)R = R * Div2G = G * Div2B = B * Div2RR = RR + RGG = GG + GBB = BB + BIf RR Max Then RR = MaxIf GG Max Then GG = MaxIf BB Max Then BB = MaxColOut(0, X, Y) = RRColOut(1, X, Y) = GGColOut(2, X, Y) = BBNextNextDone = TrueTimeFilter = timeGetTime - TimeFilte
7、rExit SubErrLine:Done = TrueMsgBox Err.DescriptionEnd Sub因为在计算新的像素的过程中会出现新的值大于255或小于0的情况,因此必须在计算完成后判断。所用到的全局变量:Public TimeFilter As Long 用于记录滤镜处理所花费的时间 Dim RR As Long 用于保存红色分量Dim GG As Long 用于保存绿色分量Dim BB As Long 用于保存蓝色分量原图:锐化效果:二、柔化柔化的算法和锐化相近似,不过作用正好相反,就是把当前点用周围几个点的平均值来代替。A B C DE F G HI J K LM N O
8、 P计算方法:F=(A+B+C+E+F+G+I+J+K) / 9G=(B+C+D+F+G+H+J+K+L) / 9.具体的程序,我这里就不罗嗦了,大家只要把上面的程序小小改动一下就可以了。原图:柔化效果: 三、扩散产生一种类似水彩画的效果。算法很简单,就是将当前点用周围的随即的点来代替。A B C DE F G HI J K LM N O PF点可以从它周围的A,B,C,E,G,I,J,K中任意选一点代替。G点可以从它周围的B,C,D,F,H,J,K,L中任意选一点代替。J点可以从它周围的E,F,G,I,K,M,N,O中任意选一点代替。K点可以从它周围的F,G,H,J,L,N,O,P中任意选一
9、点代替。至于选哪一点,可以用一个随即数来选定。原图:扩散效果: 四、雕刻将相邻的两个像素相减,得到的差加上127作为新的值A B C DE F G HI J K LM N O P如果我们按照从左向右的方向来“雕刻”A=B-A+127B=C-B+127C=D-C+127.如果我们按照从上向下的方向来“雕刻”A=E-A+127B=F-B+127C=G-C+127.当然我们还可以从更多的方向来“雕刻”比如:向左下、右上、左上、右下.等等,一共8个可以选择的方向。另外这个127,就是“雕刻”效果后的亮度。我们可以把雕刻方向和亮度都作为参数写到过程中Public Sub Emboss(Optional EmbossDirection As Integer , Optional Lighteness As Integer).原图:柔化效果:这几个滤镜的算法都比较简单,很容易用VB来实现。 鉴于篇幅的关系这次就讲到这里,下次和大家讲铅笔画和木雕的效果。请大家继续关注
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1