public static int fnFIE_img_shrink(
	FHANDLE hsrc,
	FHANDLE hdst,
	int rmag
)

Public Shared Function fnFIE_img_shrink ( 
	hsrc As FHANDLE,
	hdst As FHANDLE,
	rmag As Integer
) As Integer

//    $Revision: 1.1 $

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

using fvalgcli;

namespace TC
{
    public partial class FIE
    {
        /// <summary>
        /// 1/N画像圧縮.
        /// </summary>
        [FvPluginExecute]
        public void fnFIE_img_shrink()
        {
            int status = (int)f_err.F_ERR_NONE;

            FHANDLE hsrc = FHANDLE.Zero;// 入力画像ハンドル.
            FHANDLE hdst = FHANDLE.Zero;// 出力画像ハンドル.
            const int rmag = 2;            // 圧縮率.

            try
            {
                // 入力画像ファイルのロード.
                api.fnFIE_load_bmp(TestImageDir + "/testdata/lena256.bmp", ref hsrc, f_color_img_type.F_COLOR_IMG_TYPE_UC8);

                // 出力画像の確保.
                hdst = api.fnFIE_img_root_alloc(
                    (int)f_imgtype.F_IMG_UC8, 1,
                    api.fnFIE_img_get_width(hsrc),
                    api.fnFIE_img_get_height(hsrc)
                );
                api.fnFIE_img_clear(hdst, 128.0);

                // 処理の実行.
                status = api.fnFIE_img_shrink(hsrc, hdst, rmag);

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

                // 出力画像の保存.
                api.fnFIE_save_png(ResultDir + "/fnFIE_img_shrink.png", hdst, -1);
            }
            finally
            {
                // オブジェクトの開放.
                hsrc.Dispose();
                hdst.Dispose();
            }
        }
    }
}

'    $Revision: 1.1 $

Imports System.Collections.Generic
Imports System.Text

Imports fvalgcli

Public Partial Class FIE
    ''' <summary>
    ''' 1/N画像圧縮.
    ''' </summary>
    <FvPluginExecute> _
    Public Sub fnFIE_img_shrink()
        Dim status As Integer = CInt(f_err.F_ERR_NONE)

        Dim hsrc As FHANDLE = FHANDLE.Zero
        ' 入力画像ハンドル.
        Dim hdst As FHANDLE = FHANDLE.Zero
        ' 出力画像ハンドル.
        Const  rmag As Integer = 2
        ' 圧縮率.
        Try
            ' 入力画像ファイルのロード.
            api.fnFIE_load_bmp(TestImageDir & "/testdata/lena256.bmp", hsrc, f_color_img_type.F_COLOR_IMG_TYPE_UC8)

            ' 出力画像の確保.
            hdst = api.fnFIE_img_root_alloc(CInt(f_imgtype.F_IMG_UC8), 1, api.fnFIE_img_get_width(hsrc), api.fnFIE_img_get_height(hsrc))
            api.fnFIE_img_clear(hdst, 128.0)

            ' 処理の実行.
            status = api.fnFIE_img_shrink(hsrc, hdst, rmag)

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

            ' 出力画像の保存.
            api.fnFIE_save_png(ResultDir & "/fnFIE_img_shrink.png", hdst, -1)
        Finally
            ' オブジェクトの開放.
            hsrc.Dispose()
            hdst.Dispose()
        End Try
    End Sub
End Class