我们来自五湖四海,不为别的,只因有共同的爱好,为中国互联网发展出一分力!
领航时时彩重庆版

玩时时彩哪个平台注册送彩金:VB图像处理之铅笔画算法和木雕算法

2014年05月22日21:50 阅读: 27759 次

领航时时彩重庆版 www.9nwl5.cn 标签: 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的功能吧,它可以把一张色彩很“别扭”的图像转换为很“舒服”的效果,那么就需要用到“灰度直方图”这个工具了,希望大家不要错过。
分享到: 更多
©2019 安全焦点 版权所有.

  • 这些“难民”大部分好吃懒做,无一技之长,犯罪率又高,你要接回去就噹祖宗供着吧。[哈哈] 2019-04-23
  • 铜梁这位30岁小伙抱上吉他骑着摩托去北极过生! 2019-04-23
  • 2018年世界杯防骗宝典!拒绝和骗子一起狂欢! 2019-04-16
  • [微笑]其实很简单就能破这个局:立法禁止通过房地产二次交易获利,炒房就会被杜绝,炒房一旦被杜绝,房价就会受正常供需关系影响波动在合理范围内。 2019-04-16
  • 中国人打仗?被逗了。独生子一代、捧在手里长大的90后00后、站在甲板上飒爽英姿、硝烟战火血肉横飞的场景、会失去行动能力的。这不是耸人听闻。 2019-04-14
  • 乌鲁木齐市水磨沟区开建两座立体停车库 2019-04-14
  • 吕洪蕾:网络信息技术在干部工作中的运用研究 2019-04-04
  • 聚焦中央经济工作会议 2019-03-30
  • 沈杰:在北京打拼的“90后”台湾律师 2019-03-30
  • 法国总统马克龙首次访华 法国居民期待成果 2019-03-25
  • 【新媒体矩阵】长城编小厨 2019-03-25
  • 1949年刚刚进入北平的人民日报校对科夜班工作场面 2019-03-22
  • 江西省“放管服”改革再出实招 2019-03-21
  • 让“毒跑道”绝迹 内蒙古各方联手共同监管校园跑道 2019-03-20
  • 宁夏石嘴山支队隆重举行退伍老兵欢送仪式 2019-03-19
  • 667| 316| 767| 256| 797| 482| 662| 737| 922| 942|