public static int fnFIE_region_geotrans_shift(
	FHANDLE hSrcReg,
	ref FHANDLE hDstReg,
	int iDx,
	int iDy
)

Public Shared Function fnFIE_region_geotrans_shift ( 
	hSrcReg As FHANDLE,
	ByRef hDstReg As FHANDLE,
	iDx As Integer,
	iDy As Integer
) As Integer

//    $Revision: 1.1 $

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

namespace TC
{
    public partial class FIE
    {
        [FvPluginExecute]
        public void fnFIE_region_geotrans_shift()
        {
            int status = (int)f_err.F_ERR_NONE;
            FHANDLE himg = FHANDLE.Zero;
            FHANDLE hreg1 = FHANDLE.Zero;
            FHANDLE hreg2 = FHANDLE.Zero;
            FHANDLE hDstReg = FHANDLE.Zero;
            FHANDLE hreg = FHANDLE.Zero;

            try
            {
                // 入力画像の読み込み.
                status = api.fnFIE_load_img_file(TestImageDir + "/TC/SampleCode/blob_BIN.png", ref himg, f_color_img_type.F_COLOR_IMG_TYPE_UC8);
                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "入力画像読込でエラーが発生しました。({0})", (f_err)status);

                // 書き込み用リージョン作成(rect)１.
                int iXS = 0;
                int iYS = 0;
                int iWidth = 100;
                int iHeight = 100;
                hreg1 = api.fnFIE_create_region_rect(iXS, iYS, iWidth, iHeight);
                // 戻り値がNULLだったらエラー
                Assert.IsTrue(hreg1 != FHANDLE.Zero, "書き込み用リージョン作成でエラーが発生しました。({0})", hreg1);

                // 書き込み用リージョン作成(rect)２.
                iXS = 110;
                iYS = 0;
                iWidth = 20;
                iHeight = 100;
                hreg2 = api.fnFIE_create_region_rect(iXS, iYS, iWidth, iHeight);
                // 戻り値がNULLだったらエラー.
                Assert.IsTrue(hreg2 != FHANDLE.Zero, "書き込み用リージョン作成でエラーが発生しました。({0})", hreg2);

                // リージョン結合.
                api.fnFIE_region_or(hreg1, hreg2, ref hreg);

                // リージョンの演算(geotrans)
                int iDx = 30;
                int iDy = 30;
                int status2 = api.fnFIE_region_geotrans_shift(hreg, ref hDstReg, iDx, iDy);
                Assert.IsTrue(status2 == (int)f_err.F_ERR_NONE, "エラーが発生しました。({0})", (f_err)status2);

                PNT_T offset = new PNT_T();
                offset.x = 0;
                offset.y = 0;
                double dens = 0.0;
                int status1 = api.fnFIE_region_decode(hDstReg, himg, offset, dens);
                // 戻り値がNULLだったらエラー.
                Assert.IsTrue(status1 == (int)f_err.F_ERR_NONE, "画像描画でエラーが発生しました。({0})", status1);

                // 画像保存.
                int status_save = api.fnFIE_save_png(ResultDir + "/fnFIE_region_geotrans_shift.png", himg, -1);
                Assert.IsTrue(status_save == (int)f_err.F_ERR_NONE, "画像保存でエラーが発生しました。({0})", (f_err)status_save);
            }
            finally
            {
                himg.Dispose();
                hreg.Dispose();
                hreg1.Dispose();
                hreg2.Dispose();
                hDstReg.Dispose();
            }
        }
    }
}

'    $Revision: 1.1 $

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

Public Partial Class FIE
    <FvPluginExecute> _
    Public Sub fnFIE_region_geotrans_shift()
        Dim status As Integer = CInt(f_err.F_ERR_NONE)
        Dim himg As FHANDLE = FHANDLE.Zero
        Dim hreg1 As FHANDLE = FHANDLE.Zero
        Dim hreg2 As FHANDLE = FHANDLE.Zero
        Dim hDstReg As FHANDLE = FHANDLE.Zero
        Dim hreg As FHANDLE = FHANDLE.Zero

        Try
            ' 入力画像の読み込み.
            status = api.fnFIE_load_img_file(TestImageDir & "/TC/SampleCode/blob_BIN.png", himg, f_color_img_type.F_COLOR_IMG_TYPE_UC8)
            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "入力画像読込でエラーが発生しました。({0})", CType(status, f_err))

            ' 書き込み用リージョン作成(rect)１.
            Dim iXS As Integer = 0
            Dim iYS As Integer = 0
            Dim iWidth As Integer = 100
            Dim iHeight As Integer = 100
            hreg1 = api.fnFIE_create_region_rect(iXS, iYS, iWidth, iHeight)
            ' 戻り値がNULLだったらエラー
            Assert.IsTrue(hreg1 <> FHANDLE.Zero, "書き込み用リージョン作成でエラーが発生しました。({0})", hreg1)

            ' 書き込み用リージョン作成(rect)２.
            iXS = 110
            iYS = 0
            iWidth = 20
            iHeight = 100
            hreg2 = api.fnFIE_create_region_rect(iXS, iYS, iWidth, iHeight)
            ' 戻り値がNULLだったらエラー.
            Assert.IsTrue(hreg2 <> FHANDLE.Zero, "書き込み用リージョン作成でエラーが発生しました。({0})", hreg2)

            ' リージョン結合.
            api.fnFIE_region_or(hreg1, hreg2, hreg)

            ' リージョンの演算(geotrans)
            Dim iDx As Integer = 30
            Dim iDy As Integer = 30
            Dim status2 As Integer = api.fnFIE_region_geotrans_shift(hreg, hDstReg, iDx, iDy)
            Assert.IsTrue(status2 = CInt(f_err.F_ERR_NONE), "エラーが発生しました。({0})", CType(status2, f_err))

            Dim offset As New PNT_T()
            offset.x = 0
            offset.y = 0
            Dim dens As Double = 0.0
            Dim status1 As Integer = api.fnFIE_region_decode(hDstReg, himg, offset, dens)
            ' 戻り値がNULLだったらエラー.
            Assert.IsTrue(status1 = CInt(f_err.F_ERR_NONE), "画像描画でエラーが発生しました。({0})", status1)

            ' 画像保存.
            Dim status_save As Integer = api.fnFIE_save_png(ResultDir & "/fnFIE_region_geotrans_shift.png", himg, -1)
            Assert.IsTrue(status_save = CInt(f_err.F_ERR_NONE), "画像保存でエラーが発生しました。({0})", CType(status_save, f_err))
        Finally
            himg.Dispose()
            hreg.Dispose()
            hreg1.Dispose()
            hreg2.Dispose()
            hDstReg.Dispose()
        End Try
    End Sub
End Class