public static int fnFIE_draw_curve(
	FHANDLE hImg,
	DOUBLE_PTR val,
	DPNT_T_PTR pnts,
	int num,
	f_draw_curve_mode mode
)

Public Shared Function fnFIE_draw_curve ( 
	hImg As FHANDLE,
	val As DOUBLE_PTR,
	pnts As DPNT_T_PTR,
	num As Integer,
	mode As f_draw_curve_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_draw_curve()
        {
            int status = (int)f_err.F_ERR_NONE;

            FHANDLE hImg = FHANDLE.Zero;    // 処理画像.
            DOUBLE_PTR val = IntPtr.Zero;    // 濃度値を格納した配列(チャネル数分).
            DPNT_T_PTR pnts = IntPtr.Zero;    // 点群データ.
            const int num = 10;                // 点群数.
            const f_draw_curve_mode mode = f_draw_curve_mode.F_DRAW_CUBIC_BSPLINE;    // 曲線の種類.

            const int width = 128;
            const int height = 64;

            try
            {
                // 処理画像の生成.
                hImg = api.fnFIE_img_root_alloc((int)f_imgtype.F_IMG_UC8, 3, width, height);
                api.fnFIE_img_clear(hImg, 0);

                int channels = api.fnFIE_img_get_channels(hImg);

                // 配列の確保(アンマネージヒープに確保される).
                val = DOUBLE_PTR.alloc(channels);
                pnts = DPNT_T_PTR.alloc(num);

                for (int i = 0; i < channels; i++)
                    val[i] = 32 * (i+1);

                for (int i = 0; i < num; i++)
                {
                    double x = i * (width / (num - 1));
                    double y = (height - 1) * (0x1 & i);
                    pnts[i] = DPNT_T.init(x, y);
                }

                // 処理の実行.
                status = api.fnFIE_draw_curve(hImg, val, pnts, num, mode);

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

                // 処理画像の保存.
                api.fnFIE_save_png(ResultDir + "/fnFIE_draw_curve.png", hImg, -1);
            }
            finally
            {
                // オブジェクトの開放.
                hImg.Dispose();
                val.Dispose();
                pnts.Dispose();
            }
        }
    }
}

'    $Revision: 1.1 $

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

Public Partial Class FIE
    ''' <summary>
    ''' 曲線の描画.
    ''' </summary>
    <FvPluginExecute> _
    Public Sub fnFIE_draw_curve()
        Dim status As Integer = CInt(f_err.F_ERR_NONE)

        Dim hImg As FHANDLE = FHANDLE.Zero
        ' 処理画像.
        Dim val As DOUBLE_PTR = IntPtr.Zero
        ' 濃度値を格納した配列(チャネル数分).
        Dim pnts As DPNT_T_PTR = IntPtr.Zero
        ' 点群データ.
        Const  num As Integer = 10
        ' 点群数.
        Const  mode As f_draw_curve_mode = f_draw_curve_mode.F_DRAW_CUBIC_BSPLINE
        ' 曲線の種類.
        Const  width As Integer = 128
        Const  height As Integer = 64

        Try
            ' 処理画像の生成.
            hImg = api.fnFIE_img_root_alloc(CInt(f_imgtype.F_IMG_UC8), 3, width, height)
            api.fnFIE_img_clear(hImg, 0)

            Dim channels As Integer = api.fnFIE_img_get_channels(hImg)

            ' 配列の確保(アンマネージヒープに確保される).
            val = DOUBLE_PTR.alloc(channels)
            pnts = DPNT_T_PTR.alloc(num)

            For i As Integer = 0 To channels - 1
                val(i) = 32 * (i + 1)
            Next

            For i As Integer = 0 To num - 1
                Dim x As Double = i * (width \ (num - 1))
                Dim y As Double = (height - 1) * (&H1 And i)
                pnts(i) = DPNT_T.init(x, y)
            Next

            ' 処理の実行.
            status = api.fnFIE_draw_curve(hImg, val, pnts, num, mode)

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

            ' 処理画像の保存.
            api.fnFIE_save_png(ResultDir & "/fnFIE_draw_curve.png", hImg, -1)
        Finally
            ' オブジェクトの開放.
            hImg.Dispose()
            val.Dispose()
            pnts.Dispose()
        End Try
    End Sub
End Class