特徴点応用マッチング

濃淡画像からテンプレートに一致する箇所を複数検出し、２つの検出位置の角度を計測する例です。

---

プレビュー:

マッチング結果

２点間の角度

---

ワークフロー:

---

ソースコード:

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.CFviPattern = New FVIL.Data.CFviPattern
           Dim target2_out0 As FVIL.Data.CFviImage = New FVIL.Data.CFviImage(320, 240, FVIL.ImageType.UC8, 1)
           Dim target3_out0 As FVIL.FPM2.CFviFPM2Result = New FVIL.FPM2.CFviFPM2Result
           Dim target3_out1 As FVIL.FPM2.CFviFPM2Feature = New FVIL.FPM2.CFviFPM2Feature
           Dim target3_out2 As FVIL.FPM2.CFviFPM2Template = New FVIL.FPM2.CFviFPM2Template
           Dim target4_out0 As FVIL.FPM2.CFviFPM2Data = New FVIL.FPM2.CFviFPM2Data
           Dim target4_out1 As FVIL.Data.CFviPoint = _
               New FVIL.Data.CFviPoint(249.70567094915978, 138.18345899249812)
           Dim target4_out2 As Integer = 93
           Dim target4_out3 As Double = 100
           Dim target4_out4 As FVIL.Data.CFviAngle = New FVIL.Data.CFviAngle(26.1572265625)
           Dim target5_out0 As FVIL.FPM2.CFviFPM2Data = New FVIL.FPM2.CFviFPM2Data
           Dim target5_out1 As FVIL.Data.CFviPoint = _
               New FVIL.Data.CFviPoint(17.561377904272945, 56.351870454164015)
           Dim target5_out2 As Integer = 88
           Dim target5_out3 As Double = 100
           Dim target5_out4 As FVIL.Data.CFviAngle = New FVIL.Data.CFviAngle(138.5)
           Dim target6_out0 As FVIL.Data.CFviAngle = New FVIL.Data.CFviAngle(19.417713355354906)

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

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

           'FPM2#1
           'FPM2#1 (Matching Parameter)
           Dim target3_param As FVIL.FPM2.CFviFPM2Param = New FVIL.FPM2.CFviFPM2Param
           target3_param.Polarity = FVIL.FPM2.Polarity.Same
           target3_param.RefineScoreThreshold = 60
           target3_param.RefineErrorRange = 1
           target3_param.RefineEnable = true
           target3_param.ScoreThresholdH = 50
           target3_param.ScoreThresholdL = 50
           target3_param.ErrorRange = 1
           target3_param.CompressionLevel = 3
           target3_param.ScaleMax = 100
           target3_param.ScaleMin = 100
           target3_param.AngleMax = New FVIL.Data.CFviAngle(180)
           target3_param.AngleMin = New FVIL.Data.CFviAngle(-180)
           target3_param.Count = 3
           'FPM2#1 (Edge Parameter)
           Dim target3_edge As FVIL.Edge.CFviEdge2DCorrelationParam = New FVIL.Edge.CFviEdge2DCorrelationParam
           target3_edge.VarThreshold = 25
           target3_edge.SigmoidK = 1
           target3_edge.RegionHeight = 5
           target3_edge.RegionWidth = 13
           target3_edge.NmsLength = 6
           target3_edge.EdgeThreshold = 160
           'FPM2#1 (Template)
           Dim target3_out2 As FVIL.FPM2.CFviFPM2Template = _
               New FVIL.FPM2.CFviFPM2Template(target1_out0, FVIL.FPM2.MatchMode.HighSpeed, target3_edge)
           'FPM2#1 (Target)
           Dim target3_out1 As FVIL.FPM2.CFviFPM2Feature = _
               New FVIL.FPM2.CFviFPM2Feature(target2_out0, FVIL.FPM2.MatchMode.HighSpeed, target3_edge, false)
           'FPM2#1 (Execute)
           Dim target3 As FVIL.FPM2.CFviFPM2Matching = _
               New FVIL.FPM2.CFviFPM2Matching(target3_out1, target3_out2, target3_out0)
           target3.EnableAreaScore = false
           target3.EnableEssential = false
           target3.Param = target3_param
           target3.Execute

           'FPM2 データ#1
           target4_out0.CopyFrom(target3_out0(1))
           target4_out1 = target4_out0.Position
           target4_out2 = target4_out0.Score
           target4_out3 = target4_out0.Scale
           target4_out4 = target4_out0.Angle

           'FPM2 データ#2
           target5_out0.CopyFrom(target3_out0(2))
           target5_out1 = target5_out0.Position
           target5_out2 = target5_out0.Score
           target5_out3 = target5_out0.Scale
           target5_out4 = target5_out0.Angle

           '角度(２点間)#1
           target6_out0 = FVIL.Caliper.[Function].Angle(target5_out1, target4_out1)
       End Sub
   End Class
End Namespace