//    $Revision: 1.1 $

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

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

            DPNT_T_PTR pnts1 = DPNT_T_PTR.Zero;
            DPNT_T_PTR pnts2 = DPNT_T_PTR.Zero;
            DPNT_T_PTR pnts3 = DPNT_T_PTR.Zero;
            DPNT_T_PTR pnts4 = DPNT_T_PTR.Zero;
            DPNT_T center = new DPNT_T();
            double long_len1 = new double();
            double long_len2 = new double();
            double short_len1 = new double();
            double short_len2 = new double();
            int num = 25;
            f_line_detection_mode lsm_mode = f_line_detection_mode.F_LINE_DIRECT_NORMAL;
            int lsm_param = 0;

            DPNT_T ans_center = DPNT_T.init(200, 200);

            try
            {
                pnts1 = DPNT_T_PTR.alloc(num);
                pnts2 = DPNT_T_PTR.alloc(num);
                pnts3 = DPNT_T_PTR.alloc(num);
                pnts4 = DPNT_T_PTR.alloc(num);

                for (int i = 0; i < num; i++)
                {
                    // X=200-Y, y=0,8......192
                    pnts1[i] = DPNT_T.init(200 - 8 * i, 8 * i);

                    //X=Y+200, y=0,8......192
                    pnts2[i] = DPNT_T.init(8 * i + 200, 8 * i);

                    //X+Y=600, y=200,208......392
                    pnts3[i] = DPNT_T.init(600 - 200 - 8 * i, 200 + 8 * i);

                    //X=Y-200, y=200,208......392
                    pnts4[i] = DPNT_T.init(200 + 8 * i - 200, 200 + 8 * i);
                }

                status = api.fnFIE_cg_calc_rectangle_4npoint(pnts1, num, pnts2, num, pnts3, num, pnts4, num, lsm_mode, lsm_param, 
                                                        ref long_len1, ref short_len1, ref long_len2, ref short_len2, ref center);

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

                // 結果を出力する.
                ConsoleOut.WriteFunctionName(":\n");
                Console.WriteLine("long_len1 = {0}", long_len1);
                Console.WriteLine("short_len1 = {0}", short_len1);
                Console.WriteLine("long_len2 = {0}", long_len2);
                Console.WriteLine("short_len2 = {0}", short_len2);
                Console.WriteLine("center.x = {0}", center.x);
                Console.WriteLine("center.y = {0}", center.y);
                Console.Write(" ...");
                ConsoleOut.IsTrue(center.x == ans_center.x && center.y == ans_center.y);
            }
            finally
            {
                pnts1.Dispose();
                pnts2.Dispose();
                pnts3.Dispose();
                pnts4.Dispose();
            }
        }
    }
}

'    $Revision: 1.1 $

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

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

        Dim pnts1 As DPNT_T_PTR = DPNT_T_PTR.Zero
        Dim pnts2 As DPNT_T_PTR = DPNT_T_PTR.Zero
        Dim pnts3 As DPNT_T_PTR = DPNT_T_PTR.Zero
        Dim pnts4 As DPNT_T_PTR = DPNT_T_PTR.Zero
        Dim center As New DPNT_T()
        Dim long_len1 As New Double()
        Dim long_len2 As New Double()
        Dim short_len1 As New Double()
        Dim short_len2 As New Double()
        Dim num As Integer = 25
        Dim lsm_mode As f_line_detection_mode = f_line_detection_mode.F_LINE_DIRECT_NORMAL
        Dim lsm_param As Integer = 0

        Dim ans_center As DPNT_T = DPNT_T.init(200, 200)

        Try
            pnts1 = DPNT_T_PTR.alloc(num)
            pnts2 = DPNT_T_PTR.alloc(num)
            pnts3 = DPNT_T_PTR.alloc(num)
            pnts4 = DPNT_T_PTR.alloc(num)

            For i As Integer = 0 To num - 1
                ' X=200-Y, y=0,8......192
                pnts1(i) = DPNT_T.init(200 - 8 * i, 8 * i)

                'X=Y+200, y=0,8......192
                pnts2(i) = DPNT_T.init(8 * i + 200, 8 * i)

                'X+Y=600, y=200,208......392
                pnts3(i) = DPNT_T.init(600 - 200 - 8 * i, 200 + 8 * i)

                'X=Y-200, y=200,208......392
                pnts4(i) = DPNT_T.init(200 + 8 * i - 200, 200 + 8 * i)
            Next

            status = api.fnFIE_cg_calc_rectangle_4npoint(pnts1, num, pnts2, num, pnts3, num, _
                pnts4, num, lsm_mode, lsm_param, long_len1, short_len1, _
                long_len2, short_len2, center)

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

            ' 結果を出力する.
            ConsoleOut.WriteFunctionName(":" & vbLf)
            Console.WriteLine("long_len1 = {0}", long_len1)
            Console.WriteLine("short_len1 = {0}", short_len1)
            Console.WriteLine("long_len2 = {0}", long_len2)
            Console.WriteLine("short_len2 = {0}", short_len2)
            Console.WriteLine("center.x = {0}", center.x)
            Console.WriteLine("center.y = {0}", center.y)
            Console.Write(" ...")
            ConsoleOut.IsTrue(center.x = ans_center.x AndAlso center.y = ans_center.y)
        Finally
            pnts1.Dispose()
            pnts2.Dispose()
            pnts3.Dispose()
            pnts4.Dispose()
        End Try
    End Sub
End Class