[SerializableAttribute]
public class CFviCircleHoughCorrelationEdge : CFviCircleHough

<SerializableAttribute>
Public Class CFviCircleHoughCorrelationEdge
	Inherits CFviCircleHough

//    $Revision: 1.3 $

using System;
using System.Collections.Generic;
using System.Text;
using System.Drawing;
using fvalgcli;    // FvPluginXXXX attribute requires fvalgcli

namespace User.SampleCode
{
    public partial class Hough
    {
        /// <summary>
        /// 円ハフ検出 (相関エッジ)
        /// </summary>
        [FvPluginExecute]
        public void CircleHoughCorrelationEdge()
        {
            // 1) インスタンスの準備.
            FVIL.Hough.CFviCircleHoughCorrelationEdge parser = new FVIL.Hough.CFviCircleHoughCorrelationEdge();
            FVIL.Data.CFviImage src = new FVIL.Data.CFviImage();

            // 2) 処理対象画像の取り込み.
            FVIL.File.Function.LoadImageFile(Defs.TestImageDir + "/floppy_hough.jpg", src, FVIL.PixelMode.Unpacking);

            // 3) 処理対象画像の有効性検査.
            int valid = FVIL.Hough.CFviCircleHoughCorrelationEdge.CheckValidity( src );
            if( FVIL.ErrorCode._SUCCESS != valid )
                throw new FVIL.CFviException(valid, "FVIL.Hough.CFviCircleHoughCorrelationEdge.CheckValidity");

            // 4) 画像処理準備.
            parser.SrcImages[0] = src;

            // 5-1) パラメータ設定 (本体)
            FVIL.Hough.CFviCircleHoughParam param = parser.Param;
            param.Resolution = 1.0;
            param.RadiusMin = 20.0;
            param.RadiusMax = 40.0;
            param.QRange = 30;
            param.EdgePercent = 20;
            param.MinScore = 8;
            param.ObjectColor = FVIL.Hough.ObjectColor.BlackOrWhite;
            param.MergeCenter = 2;
            param.MergeRadius = 1;

            // 5-2) パラメータ設定 (エッジ検出部分)
            FVIL.Edge.CFviEdge2DCorrelationParam param_edge = parser.ParamEdge;
            param_edge.RegionWidth = 13;
            param_edge.RegionHeight = 5;
            param_edge.SigmoidK = 1.0;
            param_edge.VarThreshold = 20.0;
            param_edge.EdgeThreshold = 40;
            param_edge.NmsLength = 6;

            // 6) 画像処理実行.
            parser.Execute();

            // E) 確認用.
            {
                // 画像表示の準備.
                FVIL.GDI.CFviDisplay display = new FVIL.GDI.CFviDisplay();
                display.Image = src;
                display.DisplayRect = src.Window;

                // オーバレイの生成.
                FVIL.GDI.CFviOverlay pOverlay0 = new FVIL.GDI.CFviOverlay();
                pOverlay0.Scaling = true;
                display.Overlays.Add(pOverlay0);

                // 描画図形の生成と追加.
                for(int i = 0; i <parser.Result.Count; i++ )
                {
                    FVIL.Hough.CFviCircleHoughData data = parser.Result[i];

                    // 円データ生成.
                    FVIL.GDI.CFviGdiCircle circle = new FVIL.GDI.CFviGdiCircle(data.ToCFviCircle());
                    circle.Pen.Color = System.Drawing.Color.Red;

                    // オーバレイへ追加.
                    pOverlay0.Figures.Add(circle);
                }

                // 画像保存.
                FVIL.Data.CFviImage canvas = new FVIL.Data.CFviImage();
                display.SaveImage( canvas, display.DisplayRect, 1.0 );
                FVIL.File.Function.SaveImageFile(Defs.ResultDir + "/Hough.CircleHoughCorrelationEdge.png", canvas);
            }
        }
    }
}

'    $Revision: 1.1 $

Imports System.Collections.Generic
Imports System.Text
Imports System.Drawing
Imports fvalgcli
' FvPluginXXXX attribute requires fvalgcli
Namespace SampleCode
    Public Partial Class Hough
        ''' <summary>
        ''' 円ハフ検出 (相関エッジ)
        ''' </summary>
        <FvPluginExecute> _
        Public Sub CircleHoughCorrelationEdge()
            ' 1) インスタンスの準備.
            Dim parser As New FVIL.Hough.CFviCircleHoughCorrelationEdge()
            Dim src As New FVIL.Data.CFviImage()

            ' 2) 処理対象画像の取り込み.
            FVIL.File.[Function].LoadImageFile(Defs.TestImageDir & "/floppy_hough.jpg", src, FVIL.PixelMode.Unpacking)

            ' 3) 処理対象画像の有効性検査.
            Dim valid As Integer = FVIL.Hough.CFviCircleHoughCorrelationEdge.CheckValidity(src)
            If FVIL.ErrorCode._SUCCESS <> valid Then
                Throw New FVIL.CFviException(valid, "FVIL.Hough.CFviCircleHoughCorrelationEdge.CheckValidity")
            End If

            ' 4) 画像処理準備.
            parser.SrcImages(0) = src

            ' 5-1) パラメータ設定 (本体)
            Dim param As FVIL.Hough.CFviCircleHoughParam = parser.Param
            param.Resolution = 1.0
            param.RadiusMin = 20.0
            param.RadiusMax = 40.0
            param.QRange = 30
            param.EdgePercent = 20
            param.MinScore = 8
            param.ObjectColor = FVIL.Hough.ObjectColor.BlackOrWhite
            param.MergeCenter = 2
            param.MergeRadius = 1

            ' 5-2) パラメータ設定 (エッジ検出部分)
            Dim param_edge As FVIL.Edge.CFviEdge2DCorrelationParam = parser.ParamEdge
            param_edge.RegionWidth = 13
            param_edge.RegionHeight = 5
            param_edge.SigmoidK = 1.0
            param_edge.VarThreshold = 20.0
            param_edge.EdgeThreshold = 40
            param_edge.NmsLength = 6

            ' 6) 画像処理実行.
            parser.Execute()

            ' E) 確認用.
            If True Then
                ' 画像表示の準備.
                Dim display As New FVIL.GDI.CFviDisplay()
                display.Image = src
                display.DisplayRect = src.Window

                ' オーバレイの生成.
                Dim pOverlay0 As New FVIL.GDI.CFviOverlay()
                pOverlay0.Scaling = True
                display.Overlays.Add(pOverlay0)

                ' 描画図形の生成と追加.
                For i As Integer = 0 To parser.Result.Count - 1
                    Dim data As FVIL.Hough.CFviCircleHoughData = parser.Result(i)

                    ' 円データ生成.
                    Dim circle As New FVIL.GDI.CFviGdiCircle(data.ToCFviCircle())
                    circle.Pen.Color = System.Drawing.Color.Red

                    ' オーバレイへ追加.
                    pOverlay0.Figures.Add(circle)
                Next

                ' 画像保存.
                Dim canvas As New FVIL.Data.CFviImage()
                display.SaveImage(canvas, display.DisplayRect, 1.0)
                FVIL.File.[Function].SaveImageFile(Defs.ResultDir & "/Hough.CircleHoughCorrelationEdge.png", canvas)
            End If
        End Sub
    End Class
End Namespace