//    $Revision: 1.1 $

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

namespace TC
{
    public partial class FIE
    {
        /// <summary>
        /// カメラ内部パラメータの精度の検証.
        /// </summary>
        [FvPluginExecute]
        public void fnFIE_calib_calc_error()
        {
            int status = (int)f_err.F_ERR_NONE;

            // 内部パラメータ.
            F_CAMERA_PARAM camera = F_CAMERA_PARAM.init(916.396023110107, 910.774803134449,
                                                        1.12644931840078, 331.36766487411,
                                                        227.057842377842, -0.215845914024188,
                                                        0.0707690551914399);
            FHANDLE hcalib = FHANDLE.Zero;                                // キャリブレーションハンドル.
            int type = (int)fie_calib_model_type.F_CALIB_MODEL_CIRCLE;    // 円マーカ.
            int n = 8;                                                    // 縦、横の円の数.
            double unit = 4;                                            // モデルの単位長さ.ワールド座標系の単位(ミリメートル等)で与えます.
            DPNT_T offset = DPNT_T.init(0, 0);                            // モデル原点とワールド座標系原点のオフセット.ワールド座標系の単位(ミリメートル等)で与えます.

            double min_error = 0;                                        // 最も近かった対応点間の距離.
            double max_error = 0;                                        // 最も遠かった対応点間の距離.
            double average_error = 0;                                    // 全ての対応点間の距離の平均.

            try
            {
                // キャリブレーションオブジェクトの生成.
                hcalib = api.fnFIE_calib_open2(type, n, unit, offset, ref status);
                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "エラーが発生しました。({0})", (f_err)status);

                // 特徴点の検出とハンドルへの追加(detectとaddをまとめた関数).
                fnFIE_calib_add_data2(hcalib);

                // カメラ内部パラメータの精度の検証.
                status = api.fnFIE_calib_calc_error(hcalib, camera, ref min_error, ref max_error, ref average_error);
                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "エラーが発生しました。({0})", (f_err)status);

                // 結果表示.
                Console.WriteLine(" min_error = {0}\n max_error = {1}\n average_error = {2}\n", min_error, max_error, average_error);
            }
            finally
            {
                hcalib.Dispose();
            }
        }
    }
}

'    $Revision: 1.1 $

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

Public Partial Class FIE
    ''' <summary>
    ''' カメラ内部パラメータの精度の検証.
    ''' </summary>
    <FvPluginExecute> _
    Public Sub fnFIE_calib_calc_error()
        Dim status As Integer = CInt(f_err.F_ERR_NONE)

        ' 内部パラメータ.
        Dim camera As F_CAMERA_PARAM = F_CAMERA_PARAM.init(916.396023110107, 910.774803134449, 1.12644931840078, 331.36766487411, 227.057842377842, -0.215845914024188, _
            0.0707690551914399)
        Dim hcalib As FHANDLE = FHANDLE.Zero
        ' キャリブレーションハンドル.
        Dim type As Integer = CInt(fie_calib_model_type.F_CALIB_MODEL_CIRCLE)
        ' 円マーカ.
        Dim n As Integer = 8
        ' 縦、横の円の数.
        Dim unit As Double = 4
        ' モデルの単位長さ.ワールド座標系の単位(ミリメートル等)で与えます.
        Dim offset As DPNT_T = DPNT_T.init(0, 0)
        ' モデル原点とワールド座標系原点のオフセット.ワールド座標系の単位(ミリメートル等)で与えます.
        Dim min_error As Double = 0
        ' 最も近かった対応点間の距離.
        Dim max_error As Double = 0
        ' 最も遠かった対応点間の距離.
        Dim average_error As Double = 0
        ' 全ての対応点間の距離の平均.
        Try
            ' キャリブレーションオブジェクトの生成.
            hcalib = api.fnFIE_calib_open2(type, n, unit, offset, status)
            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "エラーが発生しました。({0})", CType(status, f_err))

            ' 特徴点の検出とハンドルへの追加(detectとaddをまとめた関数).
            fnFIE_calib_add_data2(hcalib)

            ' カメラ内部パラメータの精度の検証.
            status = api.fnFIE_calib_calc_error(hcalib, camera, min_error, max_error, average_error)
            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "エラーが発生しました。({0})", CType(status, f_err))

            ' 結果表示.
            Console.WriteLine(" min_error = {0}" & vbLf & " max_error = {1}" & vbLf & " average_error = {2}" & vbLf, min_error, max_error, average_error)
        Finally
            hcalib.Dispose()
        End Try
    End Sub
End Class