public static int fnFIE_img_set_dens(
	FHANDLE himg,
	int ch,
	int x,
	int y,
	double val
)

Public Shared Function fnFIE_img_set_dens ( 
	himg As FHANDLE,
	ch As Integer,
	x As Integer,
	y As Integer,
	val 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_img_set_dens()
        {
            int status = (int)f_err.F_ERR_NONE;

            FHANDLE himg = FHANDLE.Zero;    // 濃度を設定する画像.
            const int ch    = 0;            // 対象チャネル.
            const int x        = 3;            // 対象画素のX座標.
            const int y        = 7;            // 対象画素のY座標.
            double val        = 128;            // 設定する濃度値.

            try
            {
                // 濃度を設定する画像の確保.
                himg = api.fnFIE_img_root_alloc((int)f_imgtype.F_IMG_UC8, ch + 1, x * 2, y * 2);
                api.fnFIE_img_clear(himg, 255);

                // 指定座標の濃度値設定.
                status = api.fnFIE_img_set_dens(himg, ch, x, y, val);
                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "エラーが発生しました。({0})", (f_err)status);

                // 結果画像をファイルに保存する.
                api.fnFIE_save_bmp(ResultDir + "/fnFIE_img_set_dens.bmp", himg);

            }
            finally
            {
                // オブジェクトの開放.
                himg.Dispose();
            }
        }
    }
}

'    $Revision: 1.1 $

Imports System.Collections.Generic
Imports System.Text

Imports fvalgcli

Public Partial Class FIE
    ''' <summary>
    ''' 指定座標の濃度値設定.
    ''' </summary>
    <FvPluginExecute> _
    Public Sub fnFIE_img_set_dens()
        Dim status As Integer = CInt(f_err.F_ERR_NONE)

        Dim himg As FHANDLE = FHANDLE.Zero
        ' 濃度を設定する画像.
        Const  ch As Integer = 0
        ' 対象チャネル.
        Const  x As Integer = 3
        ' 対象画素のX座標.
        Const  y As Integer = 7
        ' 対象画素のY座標.
        Dim val As Double = 128
        ' 設定する濃度値.
        Try
            ' 濃度を設定する画像の確保.
            himg = api.fnFIE_img_root_alloc(CInt(f_imgtype.F_IMG_UC8), ch + 1, x * 2, y * 2)
            api.fnFIE_img_clear(himg, 255)

            ' 指定座標の濃度値設定.
            status = api.fnFIE_img_set_dens(himg, ch, x, y, val)
            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "エラーが発生しました。({0})", CType(status, f_err))

            ' 結果画像をファイルに保存する.

            api.fnFIE_save_bmp(ResultDir & "/fnFIE_img_set_dens.bmp", himg)
        Finally
            ' オブジェクトの開放.
            himg.Dispose()
        End Try
    End Sub
End Class