エッジ検出

１次元エッジ検出によりエッジ点群を抽出し、近似計算で直線と円に変換し、距離を計測する例です。

---

プレビュー:

エッジ検出結果

直線近似と円近似

点と直線の距離

---

ワークフロー:

---

ソースコード:

Option Strict Off
Option Explicit On

Imports fvalgcli
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Drawing
Imports System.Globalization
Imports System.Reflection
Imports System.Runtime.Serialization
Imports System.Security.Permissions
Imports System.Text
Imports System.Windows.Forms

Namespace FVIL.Parser
   
   <System.SerializableAttribute(),  _
    System.ComponentModel.TypeConverterAttribute(GetType(System.ComponentModel.ExpandableObjectConverter))>  _
   Partial Public Class ParserNodeUser
       Inherits FVIL.Parser.ParserNodeUnit
       
       Public Overrides Sub Execute(ByVal sender As Object, ByVal e As System.EventArgs)
           Dim target1_out0 As FVIL.Data.CFviImage = New FVIL.Data.CFviImage(256, 240, FVIL.ImageType.UC8, 1)
           Dim target2_out0 As FVIL.Edge.CFviEdgeResult = New FVIL.Edge.CFviEdgeResult
           Dim target3_out0 As FVIL.Edge.CFviEdgeResult = New FVIL.Edge.CFviEdgeResult
           Dim target4_out0 As FVIL.Edge.CFviEdgeResult = New FVIL.Edge.CFviEdgeResult
           Dim target5_out0 As FVIL.Data.CFviLine = _
               New FVIL.Data.CFviLine(1, 0.2532541721230761, -84.620416859384008)
           Dim target6_out0 As FVIL.Data.CFviLine = _
               New FVIL.Data.CFviLine(1, 0.24762089172587431, -249.30331288145166)
           Dim target7_out0 As FVIL.Data.CFviCircle = _
               New FVIL.Data.CFviCircle(137.67168616358185, 115.42045679202695, 21.639257493825262)
           Dim target8_out0 As FVIL.Data.CFviCircle = _
               New FVIL.Data.CFviCircle(137.67168616358185, 115.42045679202695, 21.639257493825262)
           Dim target8_out1 As FVIL.Data.CFviPoint = _
               New FVIL.Data.CFviPoint(137.67168616358185, 115.42045679202695)
           Dim target8_out2 As Double = 21.639257493825262
           Dim target8_out3 As Double = 137.67168616358185
           Dim target8_out4 As Double = 115.42045679202695
           Dim target9_out0 As Double = 79.763799312042011
           Dim target10_out0 As Double = 80.616337793131365

           '画像#1
           target1_out0 = CType(ParserInfo,FVIL.Parser.IDataObject(Of FVIL.Data.CFviImage)).Infos(0).Data

           '１次元エッジ検出 (矩形)#1
           Dim target2 As FVIL.Edge.CFviBoxEdge = New FVIL.Edge.CFviBoxEdge
           target2.SrcImages(0) = target1_out0
           target2.Result = target2_out0
           target2.MaxThreshold = 75
           target2.Around = 2
           target2.Foot = 1
           target2.Len = 0
           target2.EdgeDirection = FVIL.Edge.Direction.BrightToDark
           target2.LineWidth = 0
           target2.Threshold = -1
           target2.ScanDirection = FVIL.ScanDirection.Right
           target2.Number = 12
           target2.Box = New FVIL.Data.CFviRectangle( _
               60, 37.288247321445432, 90.92518839821922, 148.83211150513876, _
               14.403819866037779, 0, 8.7117526785545678)
           target2.Execute

           '１次元エッジ検出 (矩形)#2
           Dim target3 As FVIL.Edge.CFviBoxEdge = New FVIL.Edge.CFviBoxEdge
           target3.SrcImages(0) = target1_out0
           target3.Result = target3_out0
           target3.MaxThreshold = 75
           target3.Around = 2
           target3.Foot = 1
           target3.Len = 0
           target3.EdgeDirection = FVIL.Edge.Direction.BrightToDark
           target3.LineWidth = 0
           target3.Threshold = -1
           target3.ScanDirection = FVIL.ScanDirection.Left
           target3.Number = 12
           target3.Box = New FVIL.Data.CFviRectangle( _
               212, 76.920616462741449, 243.12403515431902, 191.80449871795281, _
               15.390940092953223, 0, 11.079383537258551)
           target3.Execute

           '１次元エッジ検出 (放射状)#1
           Dim target4 As FVIL.Edge.CFviRadialEdge = New FVIL.Edge.CFviRadialEdge
           target4.SrcImages(0) = target1_out0
           target4.Result = target4_out0
           target4.Threshold = 25
           target4.ScanDirection = FVIL.Edge.ScanDirection.Inward
           target4.Number = 12
           target4.Radial = New FVIL.Data.CFviCircle(138, 116, 33.498769231142433)
           target4.Execute

           '直線近似#1
           target5_out0 = FVIL.CG.[Function].FitLine( _
               New FVIL.DPNT_T_ARRAY(New FVIL.DPNT_T_ARRAY(target2_out0)), FVIL.CG.FitMode.MESTIMATOR, 3.291)

           '直線近似#2
           target6_out0 = FVIL.CG.[Function].FitLine( _
               New FVIL.DPNT_T_ARRAY(New FVIL.DPNT_T_ARRAY(target3_out0)), FVIL.CG.FitMode.MESTIMATOR, 3.291)

           '円近似#1
           target7_out0 = FVIL.CG.[Function].FitCircle( _
               New FVIL.DPNT_T_ARRAY(New FVIL.DPNT_T_ARRAY(target4_out0)), FVIL.CG.FitMode.MESTIMATOR, 3.291)

           '真円#1
           target8_out0 = target7_out0
           target8_out1 = target8_out0.Center
           target8_out2 = target8_out0.Radius
           target8_out3 = target8_out0.X
           target8_out4 = target8_out0.Y

           '距離(点と直線)#1
           target9_out0 = FVIL.Caliper.[Function].Distance(target8_out1, target5_out0)

           '距離(点と直線)#2
           target10_out0 = FVIL.Caliper.[Function].Distance(target8_out1, target6_out0)
       End Sub
   End Class
End Namespace