版权声明:本文为博主原创文章,转载请在显著位置标明本文出处以及作者网名,未经作者允许不得用于商业目的。
EmguCV是一个基于OpenCV的开源免费的跨平台计算机视觉库,它向C#和VB.NET开发者提供了OpenCV库的大部分功能。
教程VB.net版本请访问:EmguCV学习笔记 VB.Net 目录-CSDN博客
教程C#版本请访问:EmguCV学习笔记 C# 目录-CSDN博客
笔者的博客网址:https://blog.csdn.net/uruseibest
教程配套文件及相关说明以及如何获得pdf教程和代码,请移步:EmguCV学习笔记
学习VB.Net知识,请移步: vb.net 教程 目录_vb中如何用datagridview-CSDN博客
学习C#知识,请移步:C# 教程 目录_c#教程目录-CSDN博客
5.4 图像修复
CvInvoke类的Inpaint方法用于图像修复,可以通过填充缺失的图像区域来恢复图像的完整性。该方法通常用于去除图像中的噪点、划痕或遮挡物等。该方法声明如下:
Public Shared Sub Inpaint (
src As IInputArray,
mask As IInputArray,
dst As IOutputArray,
inpaintRadius As Double,
flags As InpaintType
)
参数说明:
- src:输入图像,可以是单通道或多通道图像。
- mask:修复区域的掩码图像,与输入图像具有相同的尺寸,掩码图像中的非零像素表示需要修复的区域。
- dst:输出图像,与输入图像具有相同的尺寸和深度。
- inpaintRadius:修复半径,用于指定修复算法的范围。
- flags:修复方法,InpaintType枚举,包括两个成员:
【代码位置:frmChapter5】Button12_Click
'图像修复
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
'需要修复的图像
Dim m As New Mat("C:\learnEmgucv\lenarepair.jpg", CvEnum.ImreadModes.Color)
ImageBox1.Image = m
'设置掩码图像
Dim mMask As New Mat
CvInvoke.CvtColor(m, mMask, ColorConversion.Bgr2Gray)
'二值化,其中非0的地方表示需要修复的地方
CvInvoke.Threshold(mMask, mMask, 235, 255, ThresholdType.Binary)
ImageBox2.Image = mMask
'进行膨胀,扩大一定修复范围
Dim kernel As New Mat
kernel = CvInvoke.GetStructuringElement(ElementShape.Rectangle, New Drawing.Size(5, 5), New Point(-1, -1))
CvInvoke.Dilate(mMask, mMask, kernel, New Point(-1, -1), 1, BorderType.Constant, New MCvScalar(255, 0, 0))
'创建输出图像
Dim mout As New Mat
'执行图像修复
CvInvoke.Inpaint(m, mMask, mout, 5, InpaintType.Telea)
ImageBox3.Image = mout
End Sub
运行后如下图所示:
图5-13 修复后的图像
【代码位置:frmChapter5】Button13_Click
'图像修复
'Inpaint似乎对分散、小面积、且标记的噪点更好修复
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles Button13.Click
'需要修复红色标记的图片
Dim msrc As New Mat("c:\learnEmgucv\w1.jpg", ImreadModes.Color)
'这里使用了一张对原图需要修复位置进行白色标注的图片作为模板
Dim msrcmask As New Mat("c:\learnEmgucv\w2.jpg", ImreadModes.Color)
'将白色标记部分提取为掩码图像
Dim mgray As New Mat
CvInvoke.CvtColor(msrcmask, mgray, ColorConversion.Bgr2Gray)
Dim mMask As New Mat
CvInvoke.Threshold(mgray, mMask, 240, 255, ThresholdType.Binary)
Dim kernel1 As New Mat
kernel1 = CvInvoke.GetStructuringElement(ElementShape.Rectangle, New Drawing.Size(5, 5), New Point(-1, -1))
CvInvoke.Dilate(mMask, mMask, kernel1, New Point(-1, -1), 1, BorderType.Constant, New MCvScalar(255, 0, 0))
Dim mout As New Mat
CvInvoke.Inpaint(msrc, mMask, mout, 5, InpaintType.NS)
ImageBox1.Image = msrc
ImageBox2.Image = mMask
ImageBox3.Image = mout
End Sub
运行后如下图所示:
图5-14 修复后的图像