//    $Revision: 1.1 $

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

namespace TC
{
    public partial class FIE
    {
        /// <summary>
        /// REGION境界点抽出(拡張版)
        /// </summary>
        [FvPluginExecute]
        public void fnFIE_region_calc_boundary_ex()
        {
            FHANDLE himage = FHANDLE.Zero;
            FHANDLE himaged = FHANDLE.Zero;
            FHANDLE hreg = FHANDLE.Zero;
            PNT_T_PTR ext_pnts = IntPtr.Zero;
            PNT_T_PTR int_pnts = IntPtr.Zero;

            try
            {
                // 2値画像を読み込む.
                api.fnFIE_load_img_file(TestImageDir + "/TC/SampleCode/blob_BIN.png", ref himage, f_color_img_type.F_COLOR_IMG_TYPE_UC8);
                Assert.IsTrue(himage != FHANDLE.Zero, "himage が異常です.");

                int width = api.fnFIE_img_get_width(himage);
                int height = api.fnFIE_img_get_height(himage);
                int type = api.fnFIE_img_get_type(himage);
                int channels = api.fnFIE_img_get_channels(himage);
                himaged = api.fnFIE_img_root_alloc(type, channels, width, height);

                // 画像からリージョンを作成する.
                // --- オフセット.
                PNT_T offset = new PNT_T();
                offset.x = 0;
                offset.y = 0;
                // --- 作成.
                hreg = api.fnFIE_region_encode(himage, offset);

                // リージョンオブジェクトの連結性設定.
                int connection = 4;
                int iCon = api.fnFIE_region_set_connection(hreg, connection);
                Assert.IsTrue(iCon == (int)f_err.F_ERR_NONE, "set_connectionでエラーが発生しました。({0})", (f_err)iCon);

                // --- リージョンの演算（リージョン境界点抽出（拡張版））
                uint ext_pnum = 0;
                uint int_pnum = 0;
                int status = api.fnFIE_region_calc_boundary_ex(hreg, ref ext_pnts, ref ext_pnum, ref int_pnts, ref int_pnum);
                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "calc_boundaryでエラーが発生しました。({0})", (f_err)status);

                // 値の確認.
                Console.WriteLine("ext_pnum={0}", ext_pnum);
                Console.WriteLine("int_pnum={0}", int_pnum);
                for (int i = 0; i < ext_pnum; i++)
                {
                    Console.WriteLine("_ext_pnts[{0}]={1},{2}", i, ext_pnts[i].x, ext_pnts[i].y);
                }
                for (int i = 0; i < int_pnum; i++)
                {
                    Console.WriteLine("_int_pnts[{0}]={1},{2}", i, int_pnts[i].x, int_pnts[i].y);
                }
            }
            finally
            {
                himage.Dispose();
                himaged.Dispose();
                hreg.Dispose();
                ext_pnts.Dispose();
                int_pnts.Dispose();
            }
        }
    }
}

'    $Revision: 1.1 $

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

Public Partial Class FIE
    ''' <summary>
    ''' REGION境界点抽出(拡張版)
    ''' </summary>
    <FvPluginExecute> _
    Public Sub fnFIE_region_calc_boundary_ex()
        Dim himage As FHANDLE = FHANDLE.Zero
        Dim himaged As FHANDLE = FHANDLE.Zero
        Dim hreg As FHANDLE = FHANDLE.Zero
        Dim ext_pnts As PNT_T_PTR = IntPtr.Zero
        Dim int_pnts As PNT_T_PTR = IntPtr.Zero

        Try
            ' 2値画像を読み込む.
            api.fnFIE_load_img_file(TestImageDir & "/TC/SampleCode/blob_BIN.png", himage, f_color_img_type.F_COLOR_IMG_TYPE_UC8)
            Assert.IsTrue(himage <> FHANDLE.Zero, "himage が異常です.")

            Dim width As Integer = api.fnFIE_img_get_width(himage)
            Dim height As Integer = api.fnFIE_img_get_height(himage)
            Dim type As Integer = api.fnFIE_img_get_type(himage)
            Dim channels As Integer = api.fnFIE_img_get_channels(himage)
            himaged = api.fnFIE_img_root_alloc(type, channels, width, height)

            ' 画像からリージョンを作成する.
            ' --- オフセット.
            Dim offset As New PNT_T()
            offset.x = 0
            offset.y = 0
            ' --- 作成.
            hreg = api.fnFIE_region_encode(himage, offset)

            ' リージョンオブジェクトの連結性設定.
            Dim connection As Integer = 4
            Dim iCon As Integer = api.fnFIE_region_set_connection(hreg, connection)
            Assert.IsTrue(iCon = CInt(f_err.F_ERR_NONE), "set_connectionでエラーが発生しました。({0})", CType(iCon, f_err))

            ' --- リージョンの演算（リージョン境界点抽出（拡張版））
            Dim ext_pnum As UInteger = 0
            Dim int_pnum As UInteger = 0
            Dim status As Integer = api.fnFIE_region_calc_boundary_ex(hreg, ext_pnts, ext_pnum, int_pnts, int_pnum)
            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "calc_boundaryでエラーが発生しました。({0})", CType(status, f_err))

            ' 値の確認.
            Console.WriteLine("ext_pnum={0}", ext_pnum)
            Console.WriteLine("int_pnum={0}", int_pnum)
            For i As Integer = 0 To CType(ext_pnum, Integer) - 1
                Console.WriteLine("_ext_pnts[{0}]={1},{2}", i, ext_pnts(i).x, ext_pnts(i).y)
            Next
            For i As Integer = 0 To CType(int_pnum, Integer) - 1
                Console.WriteLine("_int_pnts[{0}]={1},{2}", i, int_pnts(i).x, int_pnts(i).y)
            Next
        Finally
            himage.Dispose()
            himaged.Dispose()
            hreg.Dispose()
            ext_pnts.Dispose()
            int_pnts.Dispose()
        End Try
    End Sub
End Class