public static int fnFIE_draw_circle(
	FHANDLE hImg,
	DOUBLE_PTR val,
	f_draw_fill_mode mode,
	DPNT_T center,
	double radius
)

Public Shared Function fnFIE_draw_circle ( 
	hImg As FHANDLE,
	val As DOUBLE_PTR,
	mode As f_draw_fill_mode,
	center As DPNT_T,
	radius As Double
) 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_circle()
        {
            int status = (int)f_err.F_ERR_NONE;

            FHANDLE hImg = FHANDLE.Zero;    // 処理画像.
            DOUBLE_PTR val = IntPtr.Zero;    // 濃度値を格納した配列(チャネル数分)
            const f_draw_fill_mode mode = f_draw_fill_mode.F_DRAW_FILL_IN;    // 描画モード.
            DPNT_T center;    // 中心点.
            double radius;    // 半径.

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

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

                int channels = api.fnFIE_img_get_channels(hImg);

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

                for (int i = 0; i < channels; i++)
                    val[i] = 128;


                // パラメータの設定.
                // 円の描画位置は、処理画像の中央とする.
                center.x = (double)(width - 1) / 2;
                center.y = (double)(height - 1) / 2;
                radius = Math.Min(center.x, center.y);

                // 処理の実行.
                status = api.fnFIE_draw_circle(hImg, val, mode, center, radius);

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

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

'    $Revision: 1.1 $

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

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

        Dim hImg As FHANDLE = FHANDLE.Zero
        ' 処理画像.
        Dim val As DOUBLE_PTR = IntPtr.Zero
        ' 濃度値を格納した配列(チャネル数分)
        Const  mode As f_draw_fill_mode = f_draw_fill_mode.F_DRAW_FILL_IN
        ' 描画モード.
        Dim center As DPNT_T
        ' 中心点.
        Dim radius As Double
        ' 半径.
        Const  width As Integer = 128
        Const  height As Integer = 64

        Try
            ' 処理画像の生成.
            hImg = api.fnFIE_img_root_alloc(CInt(f_imgtype.F_IMG_UC8), 1, width, height)
            api.fnFIE_img_clear(hImg, 128 \ 2)

            Dim channels As Integer = api.fnFIE_img_get_channels(hImg)

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

            For i As Integer = 0 To channels - 1
                val(i) = 128
            Next


            ' パラメータの設定.
            ' 円の描画位置は、処理画像の中央とする.
            center.x = CDbl(width - 1) / 2
            center.y = CDbl(height - 1) / 2
            radius = Math.Min(center.x, center.y)

            ' 処理の実行.
            status = api.fnFIE_draw_circle(hImg, val, mode, center, radius)

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

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