VB图像处理,(四)几个常用滤镜的实现2

原创 2005年01月01日 00:09:00

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

VB图像处理,(四)几个常用滤镜的实现2

VB图像处理,(五)图像的色彩纠正 
 

VB图像处理,(六)图像的亮度对比度调整

 

VB图像处理,(七)一种邻近均值滤波器的算法介绍(去尘,去噪音)

VB图像处理,(一)像素的获取和输出

    一直想自己写一个图像处理的软件。在网络上找各种图像处理方面的技术文章。但是找到的往往不是高深的理论,就是用C++等语言写出来的例程,非常不便。其实很多时候,我想找的只是一种描述,或者是伪代码,...
  • WallesCai
  • WallesCai
  • 2004年12月31日 01:06
  • 25559

用VB写高效的图像处理程序

一、为什么这么慢?二、DIB的结构三、DIB访问函数四、实战练习五、使用DIBSection和模拟指针六、结合DirectX 一、为什么这么慢?  自盘古开天地以来(好像夸张了点),一直有人抱怨VB程...
  • nisikawaguti
  • nisikawaguti
  • 2010年01月29日 11:05
  • 3793

VB 图片处理源码

  • 2016年03月05日 12:37
  • 1.13MB
  • 下载

 VB图像处理,(三)几个常用滤镜的实现1

前面讲到了二次线性插值的应用。这一篇来给大家讲一下关于锐化、柔化、扩散、雕刻这几个滤镜的实现。一,锐化锐化的算法很简单,就是比较相邻的几个像素,把当前像素加上和周围的像素的差就可以了。这里我给出一个示...
  • WallesCai
  • WallesCai
  • 2004年12月31日 04:37
  • 11214

VB图像滤镜掩膜类及示例程序源代码

  • 2009年12月22日 12:33
  • 57KB
  • 下载

实现各种各样图像滤镜(图像处理)效果,多达50多种效果

  • 2013年11月19日 16:06
  • 1.07MB
  • 下载

用vb做的简易图片处理程序

  • 2010年12月20日 18:02
  • 19KB
  • 下载

VB.Net:Image图片处理 GDI+绘图技术

  • 2014年03月26日 16:07
  • 93KB
  • 下载

【Android图像处理】实现镜面滤镜的另一种方式

今天在慕课网看了一个视频,介绍了几种图像处理的方法,其中有一种就是镜面效果,但是他是通过自定义view的方式实现的,但是算法都大同小异。 他的自定义view: package com.zkp.imag...
  • qq_32353771
  • qq_32353771
  • 2016年11月17日 23:38
  • 878

图像处理算法之滤镜

程序员拿到设计师的滤镜设计稿后,要做的就是编写程序高度还原设计效果。这一点多多少少还是有些挑战,因为ps经过多年发展后,不同版本有些功能效果还不一样,比如最为常见的亮度、对比度调节,算法很简单,但是要...
  • u013085897
  • u013085897
  • 2017年04月04日 16:24
  • 2836
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB图像处理,(四)几个常用滤镜的实现2
举报原因:
原因补充:

(最多只允许输入30个字)