//    $Revision: 1.1 $
#define PNT_INNER

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

using fvalgcli;

namespace TC
{
    public partial class FIE
    {
        [FvPluginExecute]
        public void fnFIE_cg_pos_point_to_convex_polygon()
        {
            int status = (int)f_err.F_ERR_NONE;

            PNT_T pnt;                                // 位置判定したい点
            PNT_T_PTR vrtx = PNT_T_PTR.Zero;        // 凸多角形の頂点列
            int num;                                // 多角形の頂点数( vetx の要素数)
            f_cg_pnt_pos pos = new f_cg_pnt_pos();    // 凸多角形に対する点の位置

            // 凸多角形の頂点列を確保、設定する.
            const int size = 32;

            try
            {
                num = 4;
                vrtx = PNT_T_PTR.alloc(num);
                vrtx[0] = PNT_T.init(0, 0);
                vrtx[1] = PNT_T.init(size, 0); 
                vrtx[2] = PNT_T.init(size, size);
                vrtx[3] = PNT_T.init(0, size);            
                // 位置判定したい点を設定する.
                f_cg_pnt_pos ans_pos;

#if PNT_INNER
                pnt.x = size / 2;
                pnt.y = size / 2;
                ans_pos = f_cg_pnt_pos.F_CG_INNER_PNT;
#else
                pnt.x = size * 2;
                pnt.y = size * 2;
                ans_pos = f_cg_pnt_pos.F_CG_OUTER_PNT;
#endif
                // 点の凸多角形に対する位置判定
                status = api.fnFIE_cg_pos_point_to_convex_polygon(pnt, vrtx, num, ref pos);

                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "エラーが発生しました。({0})", (f_err)status);

                // 結果を出力する.
                ConsoleOut.WriteFunctionName(":\t");
                Console.Write("pos = {0} ...", pos);
                ConsoleOut.IsTrue(pos == ans_pos);
            }
            finally
            {
                vrtx.Dispose();
            }
        }
    }
}

'    $Revision: 1.1 $
#Const PNT_INNER = True

Imports System.Collections.Generic
Imports System.Text

Imports fvalgcli

Public Partial Class FIE
    <FvPluginExecute> _
    Public Sub fnFIE_cg_pos_point_to_convex_polygon()
        Dim status As Integer = CInt(f_err.F_ERR_NONE)

        Dim pnt As PNT_T
        ' 位置判定したい点
        Dim vrtx As PNT_T_PTR = PNT_T_PTR.Zero
        ' 凸多角形の頂点列
        Dim num As Integer
        ' 多角形の頂点数( vetx の要素数)
        Dim pos As New f_cg_pnt_pos()
        ' 凸多角形に対する点の位置
        ' 凸多角形の頂点列を確保、設定する.
        Const  size As Integer = 32

        Try
            num = 4
            vrtx = PNT_T_PTR.alloc(num)
            vrtx(0) = PNT_T.init(0, 0)
            vrtx(1) = PNT_T.init(size, 0)
            vrtx(2) = PNT_T.init(size, size)
            vrtx(3) = PNT_T.init(0, size)
            ' 位置判定したい点を設定する.
            Dim ans_pos As f_cg_pnt_pos

            #If PNT_INNER Then
            pnt.x = size \ 2
            pnt.y = size \ 2
            ans_pos = f_cg_pnt_pos.F_CG_INNER_PNT
            #Else
            pnt.x = size * 2
            pnt.y = size * 2
            ans_pos = f_cg_pnt_pos.F_CG_OUTER_PNT
            #End If
            ' 点の凸多角形に対する位置判定
            status = api.fnFIE_cg_pos_point_to_convex_polygon(pnt, vrtx, num, pos)

            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "エラーが発生しました。({0})", CType(status, f_err))

            ' 結果を出力する.
            ConsoleOut.WriteFunctionName(":" & vbTab)
            Console.Write("pos = {0} ...", pos)
            ConsoleOut.IsTrue(pos = ans_pos)
        Finally
            vrtx.Dispose()
        End Try
    End Sub
End Class