欢迎光临
我们一直在努力

vb图像处理之铅笔画算法和木雕算法_visualbasic教程

建站超值云服务器,限时71元/月

在这一篇中我将和大家讲述铅笔画算法和木雕算法和它们的实现。为什么我要把这两个算法放在一起说呢,因为这两个算法是非常相似的。首先要说一下人的眼睛对于图像的观察,人的眼睛对于灰度(亮度)的敏感要远远大于对色彩的敏感,而人的眼睛对于暖色调和冷色调的敏感有要远大于对一般色彩的敏感度。

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

Gray=Red*0.3 Green*0.6 Blue*0.1

  而右因为人的眼睛对于绿色的敏感度最大,就有了一个更加近似的公式:

Gray=Green

  请大家再回想一下以前在用铅笔画眼睛看到的景色的时候,是如何做的呢?轮廓,对了,轮廓是什么呢?其实说白了就是灰度的一个跳变。因此我们只要设定一个阀值,把电脑上的图片中的像素的色彩转化为灰度,再把相邻的两个像素的灰度去比较,当灰度变化超过一定的量的时候,我们就判断它是轮廓。用铅笔把它描绘出来。

  有了这个思路,我们就很容易把这个算法写出来了。

->PublicSubPencil(OptionalByValSensitivityAsLong=25)
 DimIAsLong
 DimLAsLong
 DimMAsLong
 DimNAsLong
 DimColAsLong
 DimColNextAsLong
 OnErrorGoToErrLine
 IfNotCanPutThenExitSub
 Done=False
 TimeFilter=timeGetTime
 ForI=0ToOutPutWid-1
  M=I 1
  ForL=0ToOutPutHei-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下一点的灰度哦。
   IfCol ColNext>SensitivityThen判断灰度变化是否超过设定的阀值
    ColOut(0,I,L)=0RGB(0,0,0)表示黑色
    ColOut(1,I,L)=0
    ColOut(2,I,L)=0
   Else
    ColOut(0,I,L)=255RGB(255,255,255)表示白色
    ColOut(1,I,L)=255
    ColOut(2,I,L)=255
   EndIf
  Next
 Next
 Done=True
 TimeFilter=timeGetTime-TimeFilter
 ExitSub
ErrLine:
 MsgBoxErr.Description
EndSub->

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

  原图:

->->

  铅笔画效果:

->->

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

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

  原图:

->->

  木雕效果:

->->

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

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » vb图像处理之铅笔画算法和木雕算法_visualbasic教程
分享到: 更多 (0)