public static FHANDLE fnFIE_create_line_se(
	int length,
	f_se_shape l_type
)

Public Shared Function fnFIE_create_line_se ( 
	length As Integer,
	l_type As f_se_shape
) As FHANDLE

//    $Revision: 1.1 $

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

namespace TC
{
    public partial class FIE
    {
        /// <summary>
        /// LINE構造要素の作成.
        /// </summary>
        [FvPluginExecute]
        public void fnFIE_create_line_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_length = 3;
                f_se_shape val_type = f_se_shape.F_SE_LINE_BSLASH; 
                // 処理の実行..
                hse = api.fnFIE_create_line_se(val_length, val_type);

                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 == val_length, "size_x = {0}:結果が期待値と不一致です。", size_x);
                Assert.IsTrue(size_y == val_length, "size_y = {0}:結果が期待値と不一致です。", size_y);
                Assert.IsTrue(anchor_x == (val_length - 1) / 2, "anchor_x = {0}:結果が期待値と不一致です。");
                Assert.IsTrue(anchor_y == (val_length - 1) / 2, "anchor_y = {0}:結果が期待値と不一致です。");
            }
            finally
            {
                // オブジェクトの開放.
                hse.Dispose();
            }
        }
    }
}

'    $Revision: 1.1 $

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

Public Partial Class FIE
    ''' <summary>
    ''' LINE構造要素の作成.
    ''' </summary>
    <FvPluginExecute> _
    Public Sub fnFIE_create_line_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_length As Integer = 3
            Dim val_type As f_se_shape = f_se_shape.F_SE_LINE_BSLASH
            ' 処理の実行..
            hse = api.fnFIE_create_line_se(val_length, val_type)

            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 = val_length, "size_x = {0}:結果が期待値と不一致です。", size_x)
            Assert.IsTrue(size_y = val_length, "size_y = {0}:結果が期待値と不一致です。", size_y)
            Assert.IsTrue(anchor_x = (val_length - 1) \ 2, "anchor_x = {0}:結果が期待値と不一致です。")
            Assert.IsTrue(anchor_y = (val_length - 1) \ 2, "anchor_y = {0}:結果が期待値と不一致です。")
        Finally
            ' オブジェクトの開放.
            hse.Dispose()
        End Try
    End Sub
End Class