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

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

namespace User.SampleCode
{
    public partial class GS2
    {
        [FvPluginExecute]
        public void ExecuteC1()
        {
            string[] image_files = 
            {
                "/MarkSearch_Target1.png",
                "/MarkSearch_Target2.png"
            };

            string[] pattern_files = 
            {
                "/MarkSearch_Pattern1.png",
                "/MarkSearch_Pattern2.png"
            };

            // パタン生成.
            FVIL.GS2.CFviGS2Pattern[] patterns = new FVIL.GS2.CFviGS2Pattern[2];
            for (int i = 0; i < 2; i++)
            {
                FVIL.Data.CFviImage pat = new FVIL.Data.CFviImage(Defs.TestImageDir + pattern_files[i]);
                FVIL.Data.CFviPoint offset = new FVIL.Data.CFviPoint(
                        pat.HorzSize * 0.5,
                        pat.HorzSize * 0.5
                    );
                patterns[i] = new FVIL.GS2.CFviGS2Pattern(pat, offset, FVIL.GS2.Filter.Min, null);
            }

            // インスタンスの準備.
            FVIL.GS2.CFviGS2Result result = new FVIL.GS2.CFviGS2Result();
            FVIL.GS2.CFviGS2 parser = new FVIL.GS2.CFviGS2();
            parser.Open();
            parser.Result = result;
            parser.ExecuteOption = FVIL.GS2.ExecuteOption.Enforce2;
            parser.Param.Count = 2;
            parser.Param.ThresholdMid = 5000;
            parser.Param.ThresholdFinal = 7000;
            parser.Param.EdgeDetect = false;
            parser.Param.ReverseMode = false;
            parser.Param.FirstUnit = 1;
            parser.Param.LastUnit = 0;
            parser.Param.Subpxl = FVIL.GS2.Subpxl.Neib8;

            // サーチ.
            for (int i = 0; i < 2; i++)
            {
                // 対象画像の読み込み.
                FVIL.Data.CFviImage src = new FVIL.Data.CFviImage(Defs.TestImageDir + image_files[i]);

                for (int j = 0; j < 2; j++)
                {
                    // 画像とパタンの設定.
                    parser.SrcImages[0] = src;
                    parser.Pattern = patterns[j];

                    // 初回(0)は通常サーチ、次回(1~)から継続サーチ.
                    if (j == 0)
                        parser.ContinueOption = FVIL.GS2.ContinueOption.None;
                    else
                        parser.ContinueOption = FVIL.GS2.ContinueOption.Continue;

                    result.Clear();
                    parser.Execute();

                    // --- 確認用.
                    Console.WriteLine("images({0}), patterns({1})", i, j);
                    int count = result.Count;
                    for (int k = 0; k < count; k++)
                    {
                        FVIL.GS2.CFviGS2Data data = new FVIL.GS2.CFviGS2Data(result[k]);

                        Console.WriteLine("[{0}] {1,9:0.000},{2,9:0.000},{3:0000}"
                            , k
                            , data.Position.X
                            , data.Position.Y
                            , data.Score
                            );
                    }
                }
            }
        }
    }
}

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

Namespace SampleCode
    Partial Public Class GS2
        <FvPluginExecute()> _
        Public Sub ExecuteC1()
            Dim image_files As String() = { _
             "/MarkSearch_Target1.png", _
             "/MarkSearch_Target2.png" _
            }

            Dim pattern_files As String() = { _
             "/MarkSearch_Pattern1.png", _
             "/MarkSearch_Pattern2.png" _
            }

            ' パタン生成.
            Dim patterns As FVIL.GS2.CFviGS2Pattern() = New FVIL.GS2.CFviGS2Pattern(1) {}
            For i As Integer = 0 To 1
                Dim pat As New FVIL.Data.CFviImage(Defs.TestImageDir & pattern_files(i))
                Dim offset As New FVIL.Data.CFviPoint(pat.HorzSize * 0.5, pat.HorzSize * 0.5)
                patterns(i) = New FVIL.GS2.CFviGS2Pattern(pat, offset, FVIL.GS2.Filter.Min, Nothing)
            Next

            ' インスタンスの準備.
            Dim result As New FVIL.GS2.CFviGS2Result()
            Dim parser As New FVIL.GS2.CFviGS2()
            parser.Open()
            parser.Result = result
            parser.ExecuteOption = FVIL.GS2.ExecuteOption.Enforce2
            parser.Param.Count = 2
            parser.Param.ThresholdMid = 5000
            parser.Param.ThresholdFinal = 7000
            parser.Param.EdgeDetect = False
            parser.Param.ReverseMode = False
            parser.Param.FirstUnit = 1
            parser.Param.LastUnit = 0
            parser.Param.Subpxl = FVIL.GS2.Subpxl.Neib8

            ' サーチ.
            For i As Integer = 0 To 1
                ' 対象画像の読み込み.
                Dim src As New FVIL.Data.CFviImage(Defs.TestImageDir & image_files(i))

                For j As Integer = 0 To 1
                    ' 画像とパタンの設定.
                    parser.SrcImages(0) = src
                    parser.Pattern = patterns(j)

                    ' 初回(0)は通常サーチ、次回(1~)から継続サーチ.
                    If j = 0 Then
                        parser.ContinueOption = FVIL.GS2.ContinueOption.None
                    Else
                        parser.ContinueOption = FVIL.GS2.ContinueOption.[Continue]
                    End If

                    result.Clear()
                    parser.Execute()

                    ' --- 確認用.
                    Console.WriteLine("images({0}), patterns({1})", i, j)
                    Dim count As Integer = result.Count
                    For k As Integer = 0 To count - 1
                        Dim data As New FVIL.GS2.CFviGS2Data(result(k))

                        Console.WriteLine("[{0}] {1,9:0.000},{2,9:0.000},{3:0000}", k, data.Position.X, data.Position.Y, data.Score)
                    Next
                Next
            Next
        End Sub
    End Class
End Namespace

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

Namespace SampleCode
    Partial Public Class GS2
        <FvPluginExecute()> _
        Public Sub ExecuteC2()
            ' 対象画像の読み込み.
            Dim src As New FVIL.Data.CFviImage(Defs.TestImageDir & "/fvc06_full.png")

            ' パタン生成.
            Dim pat As New FVIL.Data.CFviImage(Defs.TestImageDir & "/fvc06_pattern.png")
            Dim offset As New FVIL.Data.CFviPoint(0, 0)
            Dim pattern As New FVIL.GS2.CFviGS2Pattern(pat, offset, FVIL.GS2.Filter.Smooth, Nothing)

            ' インスタンスの準備.
            Dim watch As New FVIL.CFviTimeCounter()
            Dim result As New FVIL.GS2.CFviGS2Result()
            Dim parser As New FVIL.GS2.CFviGS2()
            parser.Open()
            parser.Result = result
            parser.ExecuteOption = FVIL.GS2.ExecuteOption.Enforce2
            parser.ContinueOption = FVIL.GS2.ContinueOption.None
            parser.Param.Count = 1
            parser.Param.ThresholdMid = 5000
            parser.Param.ThresholdFinal = 8000
            parser.Param.EdgeDetect = False
            parser.Param.ReverseMode = False
            parser.Param.FirstUnit = 1
            parser.Param.LastUnit = 0
            parser.Param.Subpxl = FVIL.GS2.Subpxl.Neib4

            ' 1) 処理範囲指定.
            If True Then
                src.Window = New Rectangle(756, 127, 354, 74)

                ' 画像とパタンの設定.
                parser.SrcImages(0) = src
                parser.Pattern = pattern

                result.Clear()

                watch.Start()
                parser.Execute()
                Dim msec As Double = watch.[Stop]()

                ' --- 確認.
                Console.WriteLine("[1] {0,9:0.000} msec", msec)
                If result.Count > 0 Then
                    Dim data As New FVIL.GS2.CFviGS2Data(result(0))

                    Console.WriteLine("{0,9:0.000},{1,9:0.000},{2:0000}" _
                          , data.Position.X _
                          , data.Position.Y _
                          , data.Score)
                End If
            End If

            ' 2) FIE チャイルド画像指定.
            If True Then
                ' 部分画像の生成.
                Dim window As New Rectangle(756, 127, 354, 74)
                Dim part As New FVIL.Data.CFviImage(src.GetFIE(), 0, window)

                ' 画像とパタンの設定.
                parser.SrcImages(0) = part
                parser.Pattern = pattern

                result.Clear()

                watch.Start()
                parser.Execute()
                Dim msec As Double = watch.[Stop]()

                ' --- 確認.
                Console.WriteLine("[2] {0,9:0.000} msec", msec)
                If result.Count > 0 Then
                    Dim data As New FVIL.GS2.CFviGS2Data(result(0))

                    Console.WriteLine("{0,9:0.000},{1,9:0.000},{2:0000}" _
                     , data.Position.X + window.X _
                     , data.Position.Y + window.Y _
                     , data.Score)
                End If
            End If
        End Sub
    End Class
End Namespace