２値ブローブ解析

濃淡画像を２値化して、２値ブローブ解析し、２つのブローブの重心間の距離を計測する例です。

---

プレビュー:

２値ブローブ解析結果

２点間の距離

---

ワークフロー:

---

ソースコード:

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(320, 240, FVIL.ImageType.UC8, 1)
           Dim target2_out0 As FVIL.Data.CFviImage = New FVIL.Data.CFviImage(320, 240, FVIL.ImageType.BIN, 1)
           Dim target3_out0 As FVIL.Blob.CFviBlobList = New FVIL.Blob.CFviBlobList
           Dim target4_out0 As FVIL.Blob.CFviBlobData = New FVIL.Blob.CFviBlobData
           Dim target4_out1 As FVIL.Data.CFviPoint = New FVIL.Data.CFviPoint(59.94997843898232, 72.105648986632175)
           Dim target4_out2 As Integer = 82
           Dim target4_out3 As Integer = 94
           Dim target5_out0 As FVIL.Blob.CFviBlobData = New FVIL.Blob.CFviBlobData
           Dim target5_out1 As FVIL.Data.CFviPoint = New FVIL.Data.CFviPoint(202.01071237279058, 181.78628816282807)
           Dim target5_out2 As Integer = 114
           Dim target5_out3 As Integer = 55
           Dim target6_out0 As Double = 179.47449605977764

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

           '２値化#1
           Dim target2 As FVIL.Conversion.CFviBinarizeDiscrimination = New FVIL.Conversion.CFviBinarizeDiscrimination
           target2.SrcImages(0) = target1_out0
           target2.DstImages(0) = target2_out0
           target2.Execute

           '２値ブローブ解析#1
           Dim target3 As FVIL.Blob.CFviBlob = New FVIL.Blob.CFviBlob
           target3.SrcImages(0) = target2_out0
           target3.ContinueOption = FVIL.Blob.ContinueOption.None
           target3.OriginMode = FVIL.OriginMode.Image
           target3.Offset = New System.Drawing.Point(0, 0)
           target3.Param.KeepResultsAfterOverflow = false
           target3.Param.PrecalcFeatures = FVIL.Blob.FeatureFlag.None
           target3.Param.Neighborhood = FVIL.Blob.Neighborhood.Four
           target3.Param.ColorMode = FVIL.Blob.ObjectColor.WhiteFG_BlackBG
           target3.Param.MaxRows = 0
           target3.Param.MaxBlobs = 0UI
           target3.Param.MaxRuns = 0UI
           target3.Execute
           Dim target3_filters As System.Collections.Generic.List(Of FVIL.Blob.CFviBlobFilterRange) = _
               New System.Collections.Generic.List(Of FVIL.Blob.CFviBlobFilterRange)
           target3_filters.Add(New FVIL.Blob.CFviBlobFilterRange(FVIL.Blob.FeatureType.RECT1AREA, 1000, 4294967295))
           target3_out0 = target3.Result.GetBlobList(target3_filters)

           'ブローブデータ#1
           target4_out0.CopyFrom(target3_out0(1))
           target4_out1 = target4_out0.Center
           target4_out2 = target4_out0.Xdiff
           target4_out3 = target4_out0.Ydiff

           'ブローブデータ#2
           target5_out0.CopyFrom(target3_out0(4))
           target5_out1 = target5_out0.Center
           target5_out2 = target5_out0.Xdiff
           target5_out3 = target5_out0.Ydiff

           '距離(２点間)#1
           Dim target6_points As FVIL.Data.CFviPoint = New FVIL.Data.CFviPoint(1) {}
           target6_points.Add(target5_out1)
           target6_points.Add(target4_out1)
           target6_out0 = FVIL.Caliper.[Function].Distance(target6_points)
       End Sub
   End Class
End Namespace