[SerializableAttribute]
public class CFviBoxEdge : CFviEdge

<SerializableAttribute>
Public Class CFviBoxEdge
	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 BoxEdge()
        {
            // 1) インスタンスの準備.
            FVIL.Edge.CFviBoxEdge    parser = new FVIL.Edge.CFviBoxEdge();
            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.CFviBoxEdge.CheckValidity( src ) )
                return;

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

            // 5) パラメータ設定.
            parser.Box = new FVIL.Data.CFviRectangle(128,93, 187,147);
            parser.Number = 6;
            parser.LineWidth = 0;
            parser.Threshold = -1;
            parser.ScanDirection = FVIL.ScanDirection.Down;
            parser.EdgeDirection = FVIL.Edge.Direction.BrightToDark;
            parser.Foot = 1;
            parser.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.CFviGdiRectangle rect = new FVIL.GDI.CFviGdiRectangle( parser.Box );
                    rect.Ed = new FVIL.Data.CFviPoint(rect.Ed.X + 1, rect.Ed.Y + 1);
                    rect.Pen.Color = System.Drawing.Color.FromArgb(0,0,255);    // 青.

                    double width = (parser.Box.Width+1) / parser.Number;

                    // 検出線.
                    List<FVIL.GDI.CFviGdiLineSegment> lines = new List<FVIL.GDI.CFviGdiLineSegment>();
                    for(int i=0 ; i<=parser.Number ; i++)
                    {
                        FVIL.GDI.CFviGdiLineSegment    ls = new FVIL.GDI.CFviGdiLineSegment();
                        // 下向きの線分.
                        ls.St = new FVIL.Data.CFviPoint(parser.Box.St.X + width * i, parser.Box.St.Y + 1);
                        ls.Ed = new FVIL.Data.CFviPoint(parser.Box.St.X + width * i, parser.Box.Ed.Y + 1);
                        ls.Pen.Color = System.Drawing.Color.FromArgb(255,255,0);    // 黄.
                        lines.Add( ls );
                    }

                    // 追加.
                    pOverlay0.Figures.Add( rect );
                    for(int i=0 ; i<lines.Count ; i++)
                        pOverlay0.Figures.Add( lines[i] );
                }

                // 描画: 検出位置.
                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.BoxEdge.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 BoxEdge()
            ' 1) インスタンスの準備.
            Dim parser As New FVIL.Edge.CFviBoxEdge()
            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.CFviBoxEdge.CheckValidity(src) Then
                Return
            End If

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

            ' 5) パラメータ設定.
            parser.Box = New FVIL.Data.CFviRectangle(128, 93, 187, 147)
            parser.Number = 6
            parser.LineWidth = 0
            parser.Threshold = -1
            parser.ScanDirection = FVIL.ScanDirection.Down
            parser.EdgeDirection = FVIL.Edge.Direction.BrightToDark
            parser.Foot = 1
            parser.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 rect As New FVIL.GDI.CFviGdiRectangle(parser.Box)
                    rect.Ed = New FVIL.Data.CFviPoint(rect.Ed.X + 1, rect.Ed.Y + 1)
                    rect.Pen.Color = System.Drawing.Color.FromArgb(0, 0, 255)
                    ' 青.
                    Dim width As Double = (parser.Box.Width + 1) / parser.Number

                    ' 検出線.
                    Dim lines As New List(Of FVIL.GDI.CFviGdiLineSegment)()
                    For i As Integer = 0 To parser.Number
                        Dim ls As New FVIL.GDI.CFviGdiLineSegment()
                        ' 下向きの線分.
                        ls.St = New FVIL.Data.CFviPoint(parser.Box.St.X + width * i, parser.Box.St.Y + 1)
                        ls.Ed = New FVIL.Data.CFviPoint(parser.Box.St.X + width * i, parser.Box.Ed.Y + 1)
                        ls.Pen.Color = System.Drawing.Color.FromArgb(255, 255, 0)
                        ' 黄.
                        lines.Add(ls)
                    Next

                    ' 追加.
                    pOverlay0.Figures.Add(rect)
                    For i As Integer = 0 To lines.Count - 1
                        pOverlay0.Figures.Add(lines(i))
                    Next
                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.BoxEdge.png", canvas)
            End If
        End Sub
    End Class
End Namespace