EmguCV学习笔记 VB.Net 5.4 图像修复

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

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

)

参数说明：

1. src：输入图像，可以是单通道或多通道图像。
2. mask：修复区域的掩码图像，与输入图像具有相同的尺寸，掩码图像中的非零像素表示需要修复的区域。
3. dst：输出图像，与输入图像具有相同的尺寸和深度。
4. inpaintRadius：修复半径，用于指定修复算法的范围。
5. flags：修复方法，InpaintType枚举，包括两个成员：
   1. NS：基于Navier-Stokes算法修复图像。
   2. Telea：基于Alexandru Telea算法修复图像。

【代码位置：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 修复后的图像