[SerializableAttribute]
public class CFviGS2 : CFviImageParser

<SerializableAttribute>
Public Class CFviGS2
	Inherits CFviImageParser

using System;
using System.Collections.Generic;
using System.Text;
using System.Drawing;
using fvalgcli;

namespace User.SampleCode
{
    public partial class GS2
    {
        [FvPluginExecute]
        public void Execute()
        {
            try
            {
                // 1) インスタンスの準備.
                FVIL.GS2.CFviGS2 parser = new FVIL.GS2.CFviGS2();
                parser.Open();

                // 2-1) 処理対象画像の取り込み.
                FVIL.Data.CFviImage src = new FVIL.Data.CFviImage();
                FVIL.File.Function.LoadImageFile(Defs.TestImageDir + "/clip_UC8_M.png", src, FVIL.PixelMode.Unpacking);

                // 2-2) パタン画像の読み込みとグレイサーチパタンの生成.
                FVIL.Data.CFviPattern pattern = new FVIL.Data.CFviPattern();
                FVIL.GS2.CFviGS2Pattern gs2pattern = new FVIL.GS2.CFviGS2Pattern();
                pattern.Load(Defs.TestImageDir + "/clip.pat");
                gs2pattern.Create( pattern, FVIL.GS2.Filter.Smooth);

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

                // 4) 画像処理準備.
                // --- 処理対象画像の設定.
                parser.SrcImages[0] = src;

                // 5-1) パラメータ設定.
                parser.ExecuteOption = FVIL.GS2.ExecuteOption.Default;
                parser.ContinueOption = FVIL.GS2.ContinueOption.None;

                parser.Param.Count = 2;
                parser.Param.EdgeDetect = true;
                parser.Param.ReverseMode = false;
                parser.Param.Precision = FVIL.GS2.Precision.Normal;
                parser.Param.Complexity = 1;

                parser.Result = new FVIL.GS2.CFviGS2Result();

                // --- グレイサーチパタンの設定.
                parser.Pattern = gs2pattern;

                // 6) 画像処理実行.
                FVIL.CFviTimeCounter timer = new FVIL.CFviTimeCounter();
                timer.Start();
                parser.Execute();
                double msec = timer.Stop();
                Console.WriteLine("execute. {0} msec, count={1} ", msec.ToString("0.###"), parser.Result.Count);

                // 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.Data.CFviPoint pat_mark = pattern.CenterMark;    // パタン登録時の基準点.
                    FVIL.Data.CFviRectangle pat_rect = pattern.RegistRect;    // パタン登録時の矩形.

                    fvalgcli.F_GS_RESULT_PTR data_ptr = parser.Result.Address;

                    for (int i = 0; i < parser.Result.Count; i++)
                    {

                        // サーチ結果の取得.
                        // --- 検出位置.
                        FVIL.Data.CFviPoint mark = new FVIL.Data.CFviPoint(data_ptr[0].x / 100, data_ptr[0].y / 100);

                        // --- 検出位置とパタン情報から矩形を復元.
                        FVIL.Data.CFviRectangle rect = new FVIL.Data.CFviRectangle();
                        rect.St = new FVIL.Data.CFviPoint(mark.X - pat_mark.X, mark.Y - pat_mark.Y);
                        rect.Ed = new FVIL.Data.CFviPoint(rect.X + pat_rect.Width, rect.Y + pat_rect.Height);

                        // --- 相関値.
                        System.String score = data_ptr[0].score.ToString();

                        // 描画用.
                        // --- 矩形(塗り潰し)
                        FVIL.GDI.CFviGdiImage _fill = new FVIL.GDI.CFviGdiImage();
                        _fill.SetSize(1, 1, 32);
                        _fill.Position = rect.St;
                        _fill.Alpha = 0x3F;
                        _fill.StretchHorzSize = (int)(rect.Width);
                        _fill.StretchVertSize = (int)(rect.Height);
                        _fill.SetPixelRGB(0, 0, Color.FromArgb(0xFF, 0x00, 0x00, 0xFF));    // A,R,G,B

                        // --- 矩形(枠)
                        FVIL.GDI.CFviGdiRectangle _rect = new FVIL.GDI.CFviGdiRectangle(rect);
                        _rect.Pen.Color = Color.FromArgb(0x00, 0x00, 0xFF);

                        // --- 基準点.
                        FVIL.GDI.CFviGdiPoint _mark = new FVIL.GDI.CFviGdiPoint(mark);
                        _mark.Size = new Size(5, 5);
                        _mark.Pen.Color = Color.FromArgb(0xFF, 0x00, 0x00);

                        // --- 相関値.
                        FVIL.GDI.CFviGdiString _score = new FVIL.GDI.CFviGdiString();
                        _score.Text = score.ToString();
                        _score.Position = mark;
                        _score.Align = FVIL.GDI.TextAlign.Right | FVIL.GDI.TextAlign.Bottom;
                        _score.BkMode = FVIL.GDI.BkMode.Transparent;
                        _score.Color = Color.FromArgb(0xFF, 0xFF, 0x00);

                        // 追加.
                        pOverlay0.Figures.Add(_fill);
                        pOverlay0.Figures.Add(_rect);
                        pOverlay0.Figures.Add(_mark);
                        pOverlay0.Figures.Add(_score);

                        data_ptr += 1;
                    }

                    // 保存.
                    FVIL.Data.CFviImage canvas = new FVIL.Data.CFviImage();
                    display.SaveImage(canvas, display.DisplayRect, 1.0);
                    FVIL.File.Function.SaveImageFile(Defs.ResultDir + "/GS2.ExecuteGS2.png", canvas);
                }
            }
            catch( FVIL.CFviException ex )
            {
                Assert.Fail("{0}: ErrorCode={1} {2}", ex.Function, ex.ErrorCode, ex.Message);
            }
        }
    }
}

Imports System.Collections.Generic
Imports System.Text
Imports System.Drawing
Imports fvalgcli

Namespace SampleCode
    Public Partial Class GS2
        <FvPluginExecute> _
        Public Sub Execute()
            Try
                ' 1) インスタンスの準備.
                Dim parser As New FVIL.GS2.CFviGS2()
                parser.Open()

                ' 2-1) 処理対象画像の取り込み.
                Dim src As New FVIL.Data.CFviImage()
                FVIL.File.[Function].LoadImageFile(Defs.TestImageDir & "/clip_UC8_M.png", src, FVIL.PixelMode.Unpacking)

                ' 2-2) パタン画像の読み込みとグレイサーチパタンの生成.
                Dim pattern As New FVIL.Data.CFviPattern()
                Dim gs2pattern As New FVIL.GS2.CFviGS2Pattern()
                pattern.Load(Defs.TestImageDir & "/clip.pat")
                gs2pattern.Create(pattern, FVIL.GS2.Filter.Smooth)

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

                ' 4) 画像処理準備.
                ' --- 処理対象画像の設定.
                parser.SrcImages(0) = src

                ' 5-1) パラメータ設定.
                parser.ExecuteOption = FVIL.GS2.ExecuteOption.[Default]
                parser.ContinueOption = FVIL.GS2.ContinueOption.None

                parser.Param.Count = 2
                parser.Param.EdgeDetect = True
                parser.Param.ReverseMode = False
                parser.Param.Precision = FVIL.GS2.Precision.Normal
                parser.Param.Complexity = 1

                parser.Result = New FVIL.GS2.CFviGS2Result()

                ' --- グレイサーチパタンの設定.
                parser.Pattern = gs2pattern

                ' 6) 画像処理実行.
                Dim timer As New FVIL.CFviTimeCounter()
                timer.Start()
                parser.Execute()
                Dim msec As Double = timer.[Stop]()
                Console.WriteLine("execute. {0} msec, count={1} ", msec.ToString("0.###"), parser.Result.Count)

                ' 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)

                    Dim pat_mark As FVIL.Data.CFviPoint = pattern.CenterMark
                    ' パタン登録時の基準点.
                    Dim pat_rect As FVIL.Data.CFviRectangle = pattern.RegistRect
                    ' パタン登録時の矩形.
                    Dim data_ptr As fvalgcli.F_GS_RESULT_PTR = parser.Result.Address

                    For i As Integer = 0 To parser.Result.Count - 1

                        ' サーチ結果の取得.
                        ' --- 検出位置.
                        Dim mark As New FVIL.Data.CFviPoint(data_ptr(0).x \ 100, data_ptr(0).y \ 100)

                        ' --- 検出位置とパタン情報から矩形を復元.
                        Dim rect As New FVIL.Data.CFviRectangle()
                        rect.St = New FVIL.Data.CFviPoint(mark.X - pat_mark.X, mark.Y - pat_mark.Y)
                        rect.Ed = New FVIL.Data.CFviPoint(rect.X + pat_rect.Width, rect.Y + pat_rect.Height)

                        ' --- 相関値.
                        Dim score As System.String = data_ptr(0).score.ToString()

                        ' 描画用.
                        ' --- 矩形(塗り潰し)
                        Dim _fill As New FVIL.GDI.CFviGdiImage()
                        _fill.SetSize(1, 1, 32)
                        _fill.Position = rect.St
                        _fill.Alpha = &H3f
                        _fill.StretchHorzSize = CInt(Math.Truncate(rect.Width))
                        _fill.StretchVertSize = CInt(Math.Truncate(rect.Height))
                        _fill.SetPixelRGB(0, 0, Color.FromArgb(&Hff, &H0, &H0, &Hff))
                        ' A,R,G,B
                        ' --- 矩形(枠)
                        Dim _rect As New FVIL.GDI.CFviGdiRectangle(rect)
                        _rect.Pen.Color = Color.FromArgb(&H0, &H0, &Hff)

                        ' --- 基準点.
                        Dim _mark As New FVIL.GDI.CFviGdiPoint(mark)
                        _mark.Size = New Size(5, 5)
                        _mark.Pen.Color = Color.FromArgb(&Hff, &H0, &H0)

                        ' --- 相関値.
                        Dim _score As New FVIL.GDI.CFviGdiString()
                        _score.Text = score.ToString()
                        _score.Position = mark
                        _score.Align = FVIL.GDI.TextAlign.Right Or FVIL.GDI.TextAlign.Bottom
                        _score.BkMode = FVIL.GDI.BkMode.Transparent
                        _score.Color = Color.FromArgb(&Hff, &Hff, &H0)

                        ' 追加.
                        pOverlay0.Figures.Add(_fill)
                        pOverlay0.Figures.Add(_rect)
                        pOverlay0.Figures.Add(_mark)
                        pOverlay0.Figures.Add(_score)

                        data_ptr += 1
                    Next

                    ' 保存.
                    Dim canvas As New FVIL.Data.CFviImage()
                    display.SaveImage(canvas, display.DisplayRect, 1.0)
                    FVIL.File.[Function].SaveImageFile(Defs.ResultDir & "/GS2.ExecuteGS2.png", canvas)
                End If
            Catch ex As FVIL.CFviException
                Assert.Fail("{0}: ErrorCode={1} {2}", ex.[Function], ex.ErrorCode, ex.Message)
            End Try
        End Sub
    End Class
End Namespace