public static FHANDLE fnFIE_create_disk_se(
	int radius
)

Public Shared Function fnFIE_create_disk_se ( 
	radius As Integer
) As FHANDLE

//    $Revision: 1.1 $

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

namespace TC
{
    public partial class FIE
    {
        /// <summary>
        /// DISK構造要素の作成.
        /// </summary>
        [FvPluginExecute]
        public void fnFIE_create_disk_se()
        {
            int status = (int)f_err.F_ERR_NONE;

            FHANDLE hse = FHANDLE.Zero;        // 構造要素.
            int size_x = 0;
            int size_y = 0;
            int anchor_x = 0;
            int anchor_y = 0;

            try
            {
                int val_radius = 3;
                // 処理の実行.
                hse = api.fnFIE_create_disk_se(val_radius);

                status = api.fnFIE_morphology_get_params(hse, ref size_x, ref size_y, ref anchor_x, ref anchor_y);

                // エラー判定.
                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "エラーが発生しました。({0})", (f_err)status);
                Assert.IsTrue(size_x == 2 * val_radius + 1, "size_x = {0}:結果が期待値と不一致です。", size_x);
                Assert.IsTrue(size_y == 2 * val_radius + 1, "size_y = {0}:結果が期待値と不一致です。", size_y);
                Assert.IsTrue(anchor_x == val_radius, "anchor_x = {0}:結果が期待値と不一致です。", anchor_x);
                Assert.IsTrue(anchor_y == val_radius, "anchor_y = {0}:結果が期待値と不一致です。", anchor_y);
            }
            finally
            {
                // オブジェクトの開放.
                hse.Dispose();
            }
        }
    }
}

'    $Revision: 1.1 $

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

Public Partial Class FIE
    ''' <summary>
    ''' DISK構造要素の作成.
    ''' </summary>
    <FvPluginExecute> _
    Public Sub fnFIE_create_disk_se()
        Dim status As Integer = CInt(f_err.F_ERR_NONE)

        Dim hse As FHANDLE = FHANDLE.Zero
        ' 構造要素.
        Dim size_x As Integer = 0
        Dim size_y As Integer = 0
        Dim anchor_x As Integer = 0
        Dim anchor_y As Integer = 0

        Try
            Dim val_radius As Integer = 3
            ' 処理の実行.
            hse = api.fnFIE_create_disk_se(val_radius)

            status = api.fnFIE_morphology_get_params(hse, size_x, size_y, anchor_x, anchor_y)

            ' エラー判定.
            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "エラーが発生しました。({0})", CType(status, f_err))
            Assert.IsTrue(size_x = 2 * val_radius + 1, "size_x = {0}:結果が期待値と不一致です。", size_x)
            Assert.IsTrue(size_y = 2 * val_radius + 1, "size_y = {0}:結果が期待値と不一致です。", size_y)
            Assert.IsTrue(anchor_x = val_radius, "anchor_x = {0}:結果が期待値と不一致です。", anchor_x)
            Assert.IsTrue(anchor_y = val_radius, "anchor_y = {0}:結果が期待値と不一致です。", anchor_y)
        Finally
            ' オブジェクトの開放.
            hse.Dispose()
        End Try
    End Sub
End Class