public static int fnFIE_geotrans_perspective(
	FHANDLE hSrc,
	FHANDLE hDst,
	FHANDLE hMask,
	FMATRIX_PTR vpMat,
	bool bIsClearBack,
	f_sampling_mode iSamplingMode
)

Public Shared Function fnFIE_geotrans_perspective ( 
	hSrc As FHANDLE,
	hDst As FHANDLE,
	hMask As FHANDLE,
	vpMat As FMATRIX_PTR,
	bIsClearBack As Boolean,
	iSamplingMode As f_sampling_mode
) As Integer

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

            FHANDLE hSrc = FHANDLE.Zero;            // 処理対象画像.
            FHANDLE hDst = FHANDLE.Zero;            // 処理結果画像.
            FHANDLE hMask = FHANDLE.Zero;            // 処理結果画像の有効画素マスク画像.
            FMATRIX_PTR vpMat = FMATRIX_PTR.Zero;    // 射影変換の同次変換行列.
            DPNT_T_PTR src_pnt = IntPtr.Zero;
            DPNT_T_PTR dst_pnt = IntPtr.Zero;
            const bool bIsClearBack = false;        // 処理対象画像の領域外画素の処理.
            const f_sampling_mode iSamplingMode = f_sampling_mode.F_SAMPLING_BILINEAR;    // 濃度補間方法.

            try
            {
                // 処理対象画像の生成.
                api.fnFIE_load_bmp(TestImageDir + "/testdata/lena256.bmp", ref hSrc, f_color_img_type.F_COLOR_IMG_TYPE_UC8);

                int width = api.fnFIE_img_get_width(hSrc);
                int height = api.fnFIE_img_get_height(hSrc);

                // 処理結果画像の確保.
                hDst = api.fnFIE_img_root_alloc(api.fnFIE_img_get_type(hSrc), 1, width, height);
                api.fnFIE_img_clear(hDst, 128);

                // 同次変換行列の確保.
                vpMat = api.fnFIE_mat_aalloc(3, 3);

                uint pnt_num = 4;
                int offs_x = width / 4;
                int offs_y = height / 4;
                src_pnt = DPNT_T_PTR.alloc((int)pnt_num);
                dst_pnt = DPNT_T_PTR.alloc((int)pnt_num);

                src_pnt[0] = DPNT_T.init(0, 0);
                src_pnt[1] = DPNT_T.init(width - 1, 0);
                src_pnt[2] = DPNT_T.init(0, height - 1);
                src_pnt[3] = DPNT_T.init(width - 1, height - 1);

                dst_pnt[0] = DPNT_T.init(offs_x, 0);
                dst_pnt[1] = DPNT_T.init(width - 1 - offs_x, 0);
                dst_pnt[2] = DPNT_T.init(0,height - 1 - offs_y);
                dst_pnt[3] = DPNT_T.init(width - 1, height - 1 - offs_y);

                // 同次行列の値設定.
                api.fnFIE_geotrans_estimate_perspective_matrix(vpMat, src_pnt, dst_pnt, pnt_num);

                // 処理の実行.
                status = api.fnFIE_geotrans_perspective(hSrc, hDst, hMask, vpMat, bIsClearBack, iSamplingMode);

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

                // 処理対象画像の保存.
                api.fnFIE_save_png(ResultDir + "/fnFIE_geotrans_perspective.png", hDst, -1);
            }
            finally
            {
                // オブジェクトの開放.
                hSrc.Dispose();
                hDst.Dispose();
                hMask.Dispose();
                vpMat.Dispose();
                src_pnt.Dispose();
                dst_pnt.Dispose();
            }
        }
    }
}

'    $Revision: 1.1 $

Imports System.Collections.Generic
Imports System.Text

Imports fvalgcli

Public Partial Class FIE
    ''' <summary>
    ''' 画像の射影変換.
    ''' </summary>
    <FvPluginExecute> _
    Public Sub fnFIE_geotrans_perspective()
        Dim status As Integer = CInt(f_err.F_ERR_NONE)

        Dim hSrc As FHANDLE = FHANDLE.Zero
        ' 処理対象画像.
        Dim hDst As FHANDLE = FHANDLE.Zero
        ' 処理結果画像.
        Dim hMask As FHANDLE = FHANDLE.Zero
        ' 処理結果画像の有効画素マスク画像.
        Dim vpMat As FMATRIX_PTR = FMATRIX_PTR.Zero
        ' 射影変換の同次変換行列.
        Dim src_pnt As DPNT_T_PTR = IntPtr.Zero
        Dim dst_pnt As DPNT_T_PTR = IntPtr.Zero
        Const  bIsClearBack As Boolean = False
        ' 処理対象画像の領域外画素の処理.
        Const  iSamplingMode As f_sampling_mode = f_sampling_mode.F_SAMPLING_BILINEAR
        ' 濃度補間方法.
        Try
            ' 処理対象画像の生成.
            api.fnFIE_load_bmp(TestImageDir & "/testdata/lena256.bmp", hSrc, f_color_img_type.F_COLOR_IMG_TYPE_UC8)

            Dim width As Integer = api.fnFIE_img_get_width(hSrc)
            Dim height As Integer = api.fnFIE_img_get_height(hSrc)

            ' 処理結果画像の確保.
            hDst = api.fnFIE_img_root_alloc(api.fnFIE_img_get_type(hSrc), 1, width, height)
            api.fnFIE_img_clear(hDst, 128)

            ' 同次変換行列の確保.
            vpMat = api.fnFIE_mat_aalloc(3, 3)

            Dim pnt_num As UInteger = 4
            Dim offs_x As Integer = width \ 4
            Dim offs_y As Integer = height \ 4
            src_pnt = DPNT_T_PTR.alloc(CInt(pnt_num))
            dst_pnt = DPNT_T_PTR.alloc(CInt(pnt_num))

            src_pnt(0) = DPNT_T.init(0, 0)
            src_pnt(1) = DPNT_T.init(width - 1, 0)
            src_pnt(2) = DPNT_T.init(0, height - 1)
            src_pnt(3) = DPNT_T.init(width - 1, height - 1)

            dst_pnt(0) = DPNT_T.init(offs_x, 0)
            dst_pnt(1) = DPNT_T.init(width - 1 - offs_x, 0)
            dst_pnt(2) = DPNT_T.init(0, height - 1 - offs_y)
            dst_pnt(3) = DPNT_T.init(width - 1, height - 1 - offs_y)

            ' 同次行列の値設定.
            api.fnFIE_geotrans_estimate_perspective_matrix(vpMat, src_pnt, dst_pnt, pnt_num)

            ' 処理の実行.
            status = api.fnFIE_geotrans_perspective(hSrc, hDst, hMask, vpMat, bIsClearBack, iSamplingMode)

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

            ' 処理対象画像の保存.
            api.fnFIE_save_png(ResultDir & "/fnFIE_geotrans_perspective.png", hDst, -1)
        Finally
            ' オブジェクトの開放.
            hSrc.Dispose()
            hDst.Dispose()
            hMask.Dispose()
            vpMat.Dispose()
            src_pnt.Dispose()
            dst_pnt.Dispose()
        End Try
    End Sub
End Class