//    $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_cross_2lineB()
        {
            int status = (int)f_err.F_ERR_NONE;

            DPNT_T_PTR pts1 = DPNT_T_PTR.Zero;
            DPNT_T_PTR pts2 = DPNT_T_PTR.Zero;
            DPNT_T cross = new DPNT_T();
            double angle = new double();
            int num = 20;
            f_line_detection_mode lsm_mode = f_line_detection_mode.F_LINE_DIRECT_NORMAL;
            int lsm_param = 0;

            const double ans_angle = 90;

            try
            {
                pts1 = DPNT_T_PTR.alloc(num);
                pts2 = DPNT_T_PTR.alloc(num);

                for (int i = 0; i < num; i++)
                {
                    pts1[i] = DPNT_T.init(50 * i + 100, 50 * i);
                    pts2[i] = DPNT_T.init(-50 * i + 450, 50 * i);
                }

                status = api.fnFIE_cg_calc_cross_2lineB(pts1, num, pts2, num, lsm_mode, lsm_param, ref cross, ref angle);

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

                // 結果を出力する.
                ConsoleOut.WriteFunctionName(":\n");
                Console.WriteLine("2lineBcross.x: {0}", cross.x);
                Console.WriteLine("2lineBcross.y: {0}", cross.y);
                Console.WriteLine("2lineBangle: {0}", angle * 180 / Math.PI);
                Console.Write(" ...");
                ConsoleOut.IsTrue(DblEqual(angle * 180 / Math.PI, ans_angle));
            }
            finally
            {
                pts1.Dispose();
                pts2.Dispose();
            }
        }
    }
}

'    $Revision: 1.1 $

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

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

        Dim pts1 As DPNT_T_PTR = DPNT_T_PTR.Zero
        Dim pts2 As DPNT_T_PTR = DPNT_T_PTR.Zero
        Dim cross As New DPNT_T()
        Dim angle As New Double()
        Dim num As Integer = 20
        Dim lsm_mode As f_line_detection_mode = f_line_detection_mode.F_LINE_DIRECT_NORMAL
        Dim lsm_param As Integer = 0

        Const  ans_angle As Double = 90

        Try
            pts1 = DPNT_T_PTR.alloc(num)
            pts2 = DPNT_T_PTR.alloc(num)

            For i As Integer = 0 To num - 1
                pts1(i) = DPNT_T.init(50 * i + 100, 50 * i)
                pts2(i) = DPNT_T.init(-50 * i + 450, 50 * i)
            Next

            status = api.fnFIE_cg_calc_cross_2lineB(pts1, num, pts2, num, lsm_mode, lsm_param, _
                cross, angle)

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

            ' 結果を出力する.
            ConsoleOut.WriteFunctionName(":" & vbLf)
            Console.WriteLine("2lineBcross.x: {0}", cross.x)
            Console.WriteLine("2lineBcross.y: {0}", cross.y)
            Console.WriteLine("2lineBangle: {0}", angle * 180 / Math.PI)
            Console.Write(" ...")
            ConsoleOut.IsTrue(DblEqual(angle * 180 / Math.PI, ans_angle))
        Finally
            pts1.Dispose()
            pts2.Dispose()
        End Try
    End Sub
End Class