[SerializableAttribute]
public class CFviLineEdge : CFviEdge

<SerializableAttribute>
Public Class CFviLineEdge
	Inherits CFviEdge

//    $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 Edge
    {
        /// <summary>
        /// エッジ検出 (直線)
        /// </summary>
        [FvPluginExecute]
        public void LineEdge()
        {
            // 1) インスタンスの準備.
            FVIL.Edge.CFviLineEdge    parser = new FVIL.Edge.CFviLineEdge();
            FVIL.Data.CFviImage    src = new FVIL.Data.CFviImage();

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

            // 3) 処理対象画像の有効性検査.
            if( FVIL.ErrorCode._SUCCESS != FVIL.Edge.CFviLineEdge.CheckValidity( src ) )
                return;

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

            // 5) パラメータ設定.
            parser.ScanLine = new FVIL.Data.CFviLineSegment(111, 123, 201, 123);
            parser.LineWidth = 1;
            parser.Threshold = 75;

            FVIL.Edge.CFviEdgeFilter filter = parser.Filter;
            filter.minus_foot = 1;
            filter.plus_foot = 1;
            filter.minus_len = 1;
            filter.plus_len = 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);

                // 描画: 計測位置.
                {
                    // 線分
                    FVIL.GDI.CFviGdiLineSegment    ls = new FVIL.GDI.CFviGdiLineSegment( parser.ScanLine );
                    ls.Pen.Color = Color.FromArgb(255,255,0);    // 黄.

                    // 追加.
                    pOverlay0.Figures.Add( ls );
                }

                // 描画: 検出位置.
                for(int i = 0; i < (parser.Result.Count); i++ )
                {
                    FVIL.Edge.CFviEdgeData edge = parser.Result[i];

                    // ＋マーク.
                    FVIL.GDI.CFviGdiPoint position = new FVIL.GDI.CFviGdiPoint( edge.Position );
                    position.Size = new Size( 3, 3 );
                    position.Style = FVIL.GDI.FigureStyle.Cross;
                    position.Pen.Color = Color.FromArgb(255,0,0);    // 赤.

                    // 追加.
                    pOverlay0.Figures.Add( position );
                }

                // 保存.
                FVIL.Data.CFviImage canvas = new FVIL.Data.CFviImage();
                display.SaveImage( canvas, display.DisplayRect, 1.0 );
                FVIL.File.Function.SaveImageFile(Defs.ResultDir + "/Edge.LineEdge.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 Edge
        ''' <summary>
        ''' エッジ検出 (直線)
        ''' </summary>
        <FvPluginExecute> _
        Public Sub LineEdge()
            ' 1) インスタンスの準備.
            Dim parser As New FVIL.Edge.CFviLineEdge()
            Dim src As New FVIL.Data.CFviImage()

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

            ' 3) 処理対象画像の有効性検査.
            If FVIL.ErrorCode._SUCCESS <> FVIL.Edge.CFviLineEdge.CheckValidity(src) Then
                Return
            End If

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

            ' 5) パラメータ設定.
            parser.ScanLine = New FVIL.Data.CFviLineSegment(111, 123, 201, 123)
            parser.LineWidth = 1
            parser.Threshold = 75

            Dim filter As FVIL.Edge.CFviEdgeFilter = parser.Filter
            filter.minus_foot = 1
            filter.plus_foot = 1
            filter.minus_len = 1
            filter.plus_len = 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)

                ' 描画: 計測位置.
                If True Then
                    ' 線分
                    Dim ls As New FVIL.GDI.CFviGdiLineSegment(parser.ScanLine)
                    ls.Pen.Color = Color.FromArgb(255, 255, 0)
                    ' 黄.
                    ' 追加.
                    pOverlay0.Figures.Add(ls)
                End If

                ' 描画: 検出位置.
                For i As Integer = 0 To (parser.Result.Count) - 1
                    Dim edge As FVIL.Edge.CFviEdgeData = parser.Result(i)

                    ' ＋マーク.
                    Dim position As New FVIL.GDI.CFviGdiPoint(edge.Position)
                    position.Size = New Size(3, 3)
                    position.Style = FVIL.GDI.FigureStyle.Cross
                    position.Pen.Color = Color.FromArgb(255, 0, 0)
                    ' 赤.
                    ' 追加.
                    pOverlay0.Figures.Add(position)
                Next

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