//    $Revision: 1.1 $

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

namespace TC
{
    public partial class FIE
    {
        /// <summary>
        /// FPM特徴量オブジェクトからのマッチング実行.
        /// </summary>
        /// <param name="hFPM"></param>
        /// <param name="hFeature"></param>
        /// <param name="window"></param>
        /// <param name="matching_param"></param>
        public void fnFIE_fpm_matching_feature(FHANDLE hFPM, FHANDLE hFeature, BOX_T window, F_FPM_MATCH matching_param)
        {
            F_SEARCH_RESULT_PTR result = IntPtr.Zero;

            try
            {
                // FPM特徴量オブジェクトの生成.
                fnFIE_fpm_feature_alloc(hFeature);

                result = F_SEARCH_RESULT_PTR.alloc(matching_param.require_result_num);
                int result_num = 0;
                int status = api.fnFIE_fpm_matching_feature(hFPM, hFeature, IntPtr.Zero, window, ref matching_param, result, ref result_num);
                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "fnFIE_fpm_matching_feature: エラーが発生しました。({0})", (f_err)status);
                Console.WriteLine("fnFIE_fpm_matching_feature");
                Console.WriteLine("result_num={0}", result_num);
                for (int i = 0; i < result_num; i++)
                    Console.WriteLine("result[{0}]=({1},{2},{3},{4}) score={5}", i, result[i].x, result[i].y, result[i].q, result[i].s, result[i].score);
            }
            finally
            {
                result.Dispose();
            }
        }
    }
}

'    $Revision: 1.1 $

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

Public Partial Class FIE
    ''' <summary>
    ''' FPM特徴量オブジェクトからのマッチング実行.
    ''' </summary>
    ''' <param name="hFPM"></param>
    ''' <param name="hFeature"></param>
    ''' <param name="window"></param>
    ''' <param name="matching_param"></param>
    Public Sub fnFIE_fpm_matching_feature(hFPM As FHANDLE, hFeature As FHANDLE, window As BOX_T, matching_param As F_FPM_MATCH)
        Dim result As F_SEARCH_RESULT_PTR = IntPtr.Zero

        Try
            ' FPM特徴量オブジェクトの生成.
            fnFIE_fpm_feature_alloc(hFeature)

            result = F_SEARCH_RESULT_PTR.alloc(matching_param.require_result_num)
            Dim result_num As Integer = 0
            Dim status As Integer = api.fnFIE_fpm_matching_feature(hFPM, hFeature, IntPtr.Zero, window, matching_param, result, _
                result_num)
            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "fnFIE_fpm_matching_feature: エラーが発生しました。({0})", CType(status, f_err))
            Console.WriteLine("fnFIE_fpm_matching_feature")
            Console.WriteLine("result_num={0}", result_num)
            For i As Integer = 0 To result_num - 1
                Console.WriteLine("result[{0}]=({1},{2},{3},{4}) score={5}", i, result(i).x, result(i).y, result(i).q, result(i).s, _
                    result(i).score)
            Next
        Finally
            result.Dispose()
        End Try
    End Sub
End Class