最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
VB图像处理,(四)几个常用滤镜的实现2
时间:2022-07-02 11:17:56 编辑:袖梨 来源:一聚教程网
上一次,我们讲了锐化、柔化、扩散、雕刻这几个滤镜的算法和实现
请参考《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)
请参考《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)
相关文章
- 《无限暖暖》围巾蚯蚓具体作用介绍 12-24
- 《无限暖暖》星夜守望连衣裙获得方法介绍 12-24
- 《无限暖暖》魔物试炼幻境解锁方法介绍 12-24
- 《无限暖暖》磐岩晶石获得方法介绍 12-24
- 《无限暖暖》巨石岩仔打法攻略分享 12-24
- 《无限暖暖》布布果在哪 12-24