//    $Revision: 1.1 $

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

namespace TC
{
    public partial class FIE
    {
        /// <summary>
        /// マッチングで使用した特徴量を取得（勾配方向付きエッジ型） 
        /// </summary>
        /// <param name="hFPM"></param>
        public void fnFIE_fpm_get_matching_feature_edges(FHANDLE hFPM)
        {
            F_DEDGE_PTR edges = IntPtr.Zero;

            try
            {
                // サーチ対象画像の特徴量数の取得.
                int num = 0;
                fnFIE_fpm_get_matching_feature_num(hFPM, ref num);

                // マッチングで使用した特徴量を取得.
                edges = F_DEDGE_PTR.alloc(num);
                int status = api.fnFIE_fpm_get_matching_feature_edges(hFPM, edges);
                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "fnFIE_fpm_get_matching_feature_edges: エラーが発生しました。({0})", (f_err)status);
                Console.WriteLine("fnFIE_fpm_get_matching_feature_edges");
                for (int i = 0; i < num; i++)
                    Console.WriteLine("edges[{0}]=({1},{2},{3},{4})", i, edges[i].x, edges[i].y, edges[i].q, edges[i].mag);
            }
            finally
            {
                edges.Dispose();
            }
        }
    }
}

'    $Revision: 1.1 $

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

Public Partial Class FIE
    ''' <summary>
    ''' マッチングで使用した特徴量を取得（勾配方向付きエッジ型） 
    ''' </summary>
    ''' <param name="hFPM"></param>
    Public Sub fnFIE_fpm_get_matching_feature_edges(hFPM As FHANDLE)
        Dim edges As F_DEDGE_PTR = IntPtr.Zero

        Try
            ' サーチ対象画像の特徴量数の取得.
            Dim num As Integer = 0
            fnFIE_fpm_get_matching_feature_num(hFPM, num)

            ' マッチングで使用した特徴量を取得.
            edges = F_DEDGE_PTR.alloc(num)
            Dim status As Integer = api.fnFIE_fpm_get_matching_feature_edges(hFPM, edges)
            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "fnFIE_fpm_get_matching_feature_edges: エラーが発生しました。({0})", CType(status, f_err))
            Console.WriteLine("fnFIE_fpm_get_matching_feature_edges")
            For i As Integer = 0 To num - 1
                Console.WriteLine("edges[{0}]=({1},{2},{3},{4})", i, edges(i).x, edges(i).y, edges(i).q, edges(i).mag)
            Next
        Finally
            edges.Dispose()
        End Try
    End Sub
End Class