[SerializableAttribute]
public class CFviLineHoughSobelEdge : CFviLineHough

<SerializableAttribute>
Public Class CFviLineHoughSobelEdge
	Inherits CFviLineHough

//    $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 LineHoughSobelEdge()
        {
            // 1) インスタンスの準備.
            FVIL.Hough.CFviLineHoughSobelEdge parser = new FVIL.Hough.CFviLineHoughSobelEdge();
            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.CFviLineHoughSobelEdge.CheckValidity( src );
            if( FVIL.ErrorCode._SUCCESS != valid )
                throw new FVIL.CFviException(valid, "FVIL.Hough.CFviLineHoughSobelEdge.CheckValidity");

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

            // 5-1) パラメータ設定 (本体)
            FVIL.Hough.CFviLineHoughParam param = parser.Param;
            param.RequestNum = 6;
            //    param.Area;    // 設定不要.
            param.AngleSt = new FVIL.Data.CFviAngle(0.0);
            param.AngleEd = new FVIL.Data.CFviAngle(359.0);
            param.VoteWidth = 10;
            param.RegionR = 10;
            param.RegionQ = 10;

            // 5-2) パラメータ設定 (エッジ検出部分)
            FVIL.Edge.CFviEdge2DSobelParam param_edge = parser.ParamEdge;
            param_edge.EdgeThreshold = 120;
            param_edge.NmsLength = 1;

            // 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.CFviLineHoughData data = parser.Result[i];

                    // 直線データ生成.
                    FVIL.GDI.CFviGdiLine line = new FVIL.GDI.CFviGdiLine(data.ToCFviLine());
                    line.Pen.Color = System.Drawing.Color.Red;

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

                // 画像保存.
                FVIL.Data.CFviImage canvas = new FVIL.Data.CFviImage();
                display.SaveImage( canvas, display.DisplayRect, 1.0 );
                FVIL.File.Function.SaveImageFile(Defs.ResultDir + "/Hough.LineHoughSobelEdge.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 LineHoughSobelEdge()
            ' 1) インスタンスの準備.
            Dim parser As New FVIL.Hough.CFviLineHoughSobelEdge()
            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.CFviLineHoughSobelEdge.CheckValidity(src)
            If FVIL.ErrorCode._SUCCESS <> valid Then
                Throw New FVIL.CFviException(valid, "FVIL.Hough.CFviLineHoughSobelEdge.CheckValidity")
            End If

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

            ' 5-1) パラメータ設定 (本体)
            Dim param As FVIL.Hough.CFviLineHoughParam = parser.Param
            param.RequestNum = 6
            '    param.Area;    // 設定不要.
            param.AngleSt = New FVIL.Data.CFviAngle(0.0)
            param.AngleEd = New FVIL.Data.CFviAngle(359.0)
            param.VoteWidth = 10
            param.RegionR = 10
            param.RegionQ = 10

            ' 5-2) パラメータ設定 (エッジ検出部分)
            Dim param_edge As FVIL.Edge.CFviEdge2DSobelParam = parser.ParamEdge
            param_edge.EdgeThreshold = 120
            param_edge.NmsLength = 1

            ' 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.CFviLineHoughData = parser.Result(i)

                    ' 直線データ生成.
                    Dim line As New FVIL.GDI.CFviGdiLine(data.ToCFviLine())
                    line.Pen.Color = System.Drawing.Color.Red

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

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