public abstract class api

Public MustInherit Class api

//    $Revision: 1.1 $

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

namespace User.SampleCode.FIE
{
    public class fvalgcli1
    {
        /// <summary>
        /// ライブラリの初期化と終了処理.
        /// </summary>
        public void Direction1()
        {
            // 1) ライブラリの初期化.
            fvalgcli.api.fnFIE_setup();

            // 
            // 2) ここで画像処理を行います.
            // 

            // 3) ライブラリの終了処理.
            fvalgcli.api.fnFIE_teardown();
        }

        /// <summary>
        /// ライブラリの初期化状態の確認.
        /// </summary>
        public void Direction2()
        {
            // 1) ライブラリの初期化状態を確認します.
            if (fvalgcli.api.fnFIE_is_setuped() == false)
                fvalgcli.api.fnFIE_setup();
        }
    }
}

'    $Revision: 1.1 $

Imports System.Collections.Generic
Imports System.Text

Namespace User.SampleCode.FIE
    Public Class fvalgcli1
        ''' <summary>
        ''' ライブラリの初期化と終了処理.
        ''' </summary>
        Public Sub Direction1()
            ' 1) ライブラリの初期化.
            fvalgcli.api.fnFIE_setup()

            '
            ' 2) ここで画像処理を行います.
            '

            ' 3) ライブラリの終了処理.
            fvalgcli.api.fnFIE_teardown()
        End Sub

        ''' <summary>
        ''' ライブラリの初期化状態の確認.
        ''' </summary>
        Public Sub Direction2()
            ' 1) ライブラリの初期化状態を確認します.
            If fvalgcli.api.fnFIE_is_setuped() = False Then
                fvalgcli.api.fnFIE_setup()
            End If
        End Sub
    End Class
End Namespace

//    $Revision: 1.1 $

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

namespace User.SampleCode.FIE
{
    public class fvalgcli3
    {
        /// <summary>
        /// 配列を使用する画像処理 (その１)
        /// </summary>
        public void Direction()
        {
            // 1) オブジェクトの宣言.

            int status = 0;
            FHANDLE himage = FHANDLE.Zero;            // 処理対象画像.
            FHANDLE hresult = FHANDLE.Zero;            // ブローブ解析結果ハンドル.
            UINT_PTR blob_numbers = UINT_PTR.Zero;    // ブローブ番号配列.(UINT*)
            uint num = 0;                            // ブローブ番号配列の要素数. 

            try
            {
                // ==================================================
                // 2) 画像入力.

                status = api.fnFIE_load_img_file("./blob_BIN.png", ref himage, f_color_img_type.F_COLOR_IMG_TYPE_UC8);

                if (status != (int)f_err.F_ERR_NONE)
                    throw new FvException(status);

                // ==================================================
                // 3) 画像処理の実行.

                PNT_T offset = PNT_T.init(0, 0);

                // -) パラメータの初期化.(前景:白、背景:黒、８近傍)
                F_MEASURE_PARAMS param =
                    F_MEASURE_PARAMS.init(f_measure_color_mode.F_MEASURE_WHITEFG_BLACKBG, 8);

                hresult = api.fnFIE_measure_execute(himage, offset, ref param, ref status);

                if (status != (int)f_err.F_ERR_NONE)
                    throw new FvException(status);

                // ==================================================
                // 4) 処理結果の取得.

                // -) 全ての有効ブローブを取得します.
                //    この場合、第2,第3引数の filters, fiter_num に NULL, 0 を指定して省略できます.

                status = api.fnFIE_measure_get_list(
                    hresult,
                    F_MEASURE_FILTER_RANGE_PTR.Zero, 0,
                    ref blob_numbers, ref num);

                if (status != (int)f_err.F_ERR_NONE)
                    throw new FvException(status);

                // ==================================================
                // -) 確認.
                SaveResult(himage, hresult, blob_numbers, num);
            }
            finally
            {
                // ==================================================
                // E) オブジェクトの解放.

                himage.Dispose();
                hresult.Dispose();
                blob_numbers.Dispose();
            }
        }

        /// <summary>
        /// 処理結果の保存.
        /// </summary>
        /// <param name="himage">処理対象画像</param>
        /// <param name="hresult">ブローブ解析結果ハンドル</param>
        /// <param name="blob_numbers">ブローブ番号配列</param>
        /// <param name="num">ブローブ番号配列の要素数</param>
        private void SaveResult(FHANDLE himage, FHANDLE hresult, UINT_PTR blob_numbers, uint num)
        {
            int status = 0;
            FHANDLE htmp = FHANDLE.Zero;            // 作業用画像.
            FHANDLE hchild = FHANDLE.Zero;            // 作業用画像.(チャイルド画像)
            DOUBLE_PTR values = DOUBLE_PTR.Zero;

            try
            {
                int width = api.fnFIE_img_get_width(himage);
                int height = api.fnFIE_img_get_height(himage);
                int type = (int)f_imgtype.F_IMG_UC8;
                int channels = 3;

                htmp = api.fnFIE_img_root_alloc(type, channels, width, height);
                if (htmp == FHANDLE.Zero)
                    throw new FvException(f_err.F_ERR_NOMEMORY);

                // カラー化.
                for(int ch=0 ; ch<channels ; ch++)
                {
                    hchild = api.fnFIE_img_child_alloc_single_ch(htmp, ch, 0, 0, width, height);
                    status = api.fnFIE_img_copy_ex(himage, hchild, 1, 0, 0);
                    hchild.Dispose();
                    if (status != (int)f_err.F_ERR_NONE)
                        throw new FvException(status);
                }

                // ブローブの重心を画像に描画します.
                values = DOUBLE_PTR.alloc(channels);
                values[0] = 0xFF;    // R
                values[1] = 0x00;    // G
                values[2] = 0x00;    // B
                for (int i = 0; i < (int)num; i++)
                {
                    uint blobno = blob_numbers[i];
                    double center_x = 0;
                    double center_y = 0;
                    api.fnFIE_measure_get_center(hresult, blobno, ref center_x, ref center_y);
                    api.fnFIE_draw_circle(
                        htmp, values, f_draw_fill_mode.F_DRAW_FILL_IN, DPNT_T.init(center_x, center_y), 2);
                }

                // PNGファイルに保存します.
                string filename = this.GetType().ToString() + ".png";
                status = api.fnFIE_save_png(filename, htmp, -1);
                if (status != (int)f_err.F_ERR_NONE)
                    throw new FvException(status);
            }
            finally
            {
                htmp.Dispose();
                values.Dispose();
            }
        }
    }
}

'    $Revision: 1.1 $

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

Namespace User.SampleCode.FIE
    Public Class fvalgcli3
        ''' <summary>
        ''' 配列を使用する画像処理 (その１)
        ''' </summary>
        Public Sub Direction()
            ' 1) オブジェクトの宣言.

            Dim status As Integer = 0
            Dim himage As FHANDLE = FHANDLE.Zero
            ' 処理対象画像.
            Dim hresult As FHANDLE = FHANDLE.Zero
            ' ブローブ解析結果ハンドル.
            Dim blob_numbers As UINT_PTR = UINT_PTR.Zero
            ' ブローブ番号配列.(UINT*)
            Dim num As UInteger = 0
            ' ブローブ番号配列の要素数. 
            Try
                ' ==================================================
                ' 2) 画像入力.

                status = api.fnFIE_load_img_file("./blob_BIN.png", himage, f_color_img_type.F_COLOR_IMG_TYPE_UC8)

                If status <> CInt(f_err.F_ERR_NONE) Then
                    Throw New FvException(status)
                End If

                ' ==================================================
                ' 3) 画像処理の実行.

                Dim offset As PNT_T = PNT_T.init(0, 0)

                ' -) パラメータの初期化.(前景:白、背景:黒、８近傍)
                Dim param As F_MEASURE_PARAMS = F_MEASURE_PARAMS.init(f_measure_color_mode.F_MEASURE_WHITEFG_BLACKBG, 8)

                hresult = api.fnFIE_measure_execute(himage, offset, param, status)

                If status <> CInt(f_err.F_ERR_NONE) Then
                    Throw New FvException(status)
                End If

                ' ==================================================
                ' 4) 処理結果の取得.

                ' -) 全ての有効ブローブを取得します.
                '    この場合、第2,第3引数の filters, fiter_num に NULL, 0 を指定して省略できます.

                status = api.fnFIE_measure_get_list(hresult, F_MEASURE_FILTER_RANGE_PTR.Zero, 0, blob_numbers, num)

                If status <> CInt(f_err.F_ERR_NONE) Then
                    Throw New FvException(status)
                End If

                ' ==================================================
                ' -) 確認.
                SaveResult(himage, hresult, blob_numbers, num)
            Finally
                ' ==================================================
                ' E) オブジェクトの解放.

                himage.Dispose()
                hresult.Dispose()
                blob_numbers.Dispose()
            End Try
        End Sub

        ''' <summary>
        ''' 処理結果の保存.
        ''' </summary>
        ''' <param name="himage">処理対象画像</param>
        ''' <param name="hresult">ブローブ解析結果ハンドル</param>
        ''' <param name="blob_numbers">ブローブ番号配列</param>
        ''' <param name="num">ブローブ番号配列の要素数</param>
        Private Sub SaveResult(himage As FHANDLE, hresult As FHANDLE, blob_numbers As UINT_PTR, num As UInteger)
            Dim status As Integer = 0
            Dim htmp As FHANDLE = FHANDLE.Zero
            ' 作業用画像.
            Dim hchild As FHANDLE = FHANDLE.Zero
            ' 作業用画像.(チャイルド画像)
            Dim values As DOUBLE_PTR = DOUBLE_PTR.Zero

            Try
                Dim width As Integer = api.fnFIE_img_get_width(himage)
                Dim height As Integer = api.fnFIE_img_get_height(himage)
                Dim type As Integer = CInt(f_imgtype.F_IMG_UC8)
                Dim channels As Integer = 3

                htmp = api.fnFIE_img_root_alloc(type, channels, width, height)
                If htmp = FHANDLE.Zero Then
                    Throw New FvException(f_err.F_ERR_NOMEMORY)
                End If

                ' カラー化.
                For ch As Integer = 0 To channels - 1
                    hchild = api.fnFIE_img_child_alloc_single_ch(htmp, ch, 0, 0, width, height)
                    status = api.fnFIE_img_copy_ex(himage, hchild, 1, 0, 0)
                    hchild.Dispose()
                    If status <> CInt(f_err.F_ERR_NONE) Then
                        Throw New FvException(status)
                    End If
                Next

                ' ブローブの重心を画像に描画します.
                values = DOUBLE_PTR.alloc(channels)
                values(0) = &Hff
                ' R
                values(1) = &H0
                ' G
                values(2) = &H0
                ' B
                For i As Integer = 0 To CInt(num) - 1
                    Dim blobno As UInteger = blob_numbers(i)
                    Dim center_x As Double = 0
                    Dim center_y As Double = 0
                    api.fnFIE_measure_get_center(hresult, blobno, center_x, center_y)
                    api.fnFIE_draw_circle(htmp, values, f_draw_fill_mode.F_DRAW_FILL_IN, DPNT_T.init(center_x, center_y), 2)
                Next

                ' PNGファイルに保存します.
                Dim filename As String = Me.[GetType]().ToString() & ".png"
                status = api.fnFIE_save_png(filename, htmp, -1)
                If status <> CInt(f_err.F_ERR_NONE) Then
                    Throw New FvException(status)
                End If
            Finally
                htmp.Dispose()
                values.Dispose()
            End Try
        End Sub
    End Class
End Namespace

//    $Revision: 1.1 $

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

namespace User.SampleCode.FIE
{
    public class fvalgcli4
    {
        /// <summary>
        /// 配列を使用する画像処理 (その２)
        /// </summary>
        public void Direction()
        {
            // 1) オブジェクトの宣言.

            int status = 0;
            FVIL.Data.CFviImage src = null;
            FVIL.Blob.CFviBlobResult result = null;
            PNT_T_PTR points = PNT_T_PTR.Zero;    // PNT_T 配列.(PNT_T*)
            uint num = 0;                        // PNT_T 配列の要素数. 

            try
            {
                // ==================================================
                // 2) 画像入力.

                src = FVIL.File.Function.LoadImageFile("./blob_BIN.png");

                // ==================================================
                // 3) 画像処理の実行.

                result = new FVIL.Blob.CFviBlobResult();

                FVIL.Blob.CFviBlob parser = new FVIL.Blob.CFviBlob(src, result);
                parser.Param.ColorMode = FVIL.Blob.ObjectColor.WhiteFG_BlackBG;
                parser.Param.Neighborhood = FVIL.Blob.Neighborhood.Eight;
                parser.Execute();

                // ==================================================
                // 4) 処理結果の取得.

                // -- １つ目のブローブの境界点列を取得します.

                status = api.fnFIE_measure_get_boundary(result.Handle, 1, ref points, ref num);

                if (status != (int)f_err.F_ERR_NONE)
                    throw new FvException(status);

                // ==================================================
                // -) 確認.
                //    点列のアドレス(PNT_T_PTR)を FVIL のクラス(PNT_T_ARRAY)に設定して渡します.

                SaveResult(src, new FVIL.PNT_T_ARRAY(points, (int)num, true));
            }
            finally
            {
                // ==================================================
                // E) オブジェクトの解放.

                if (src != null)
                    src.Dispose();
                if (result != null)
                    result.Dispose();
                points.Dispose();
            }
        }

        /// <summary>
        /// 処理結果の保存.
        /// </summary>
        /// <param name="src">処理対象画像</param>
        /// <param name="points">ブローブの境界点列</param>
        private void SaveResult(FVIL.Data.CFviImage src, FVIL.PNT_T_ARRAY points)
        {
            // カラー化.
            FVIL.Data.CFviImage canvas =
                new FVIL.Data.CFviImage(src.HorzSize, src.VertSize, FVIL.ImageType.UC8, 3);
            new FVIL.Conversion.CFviTrueColor(src, canvas).Execute();

            // ブローブの境界点列を画像に描画します.
            FVIL.Paint.Function.DrawPoints(canvas, points, new double[] { 255, 0, 0 });

            // 保存.
            string filename = this.GetType().ToString() + ".png";
            FVIL.File.Function.SaveImageFile(filename, canvas);

            canvas.Dispose();
        }
    }
}

'    $Revision: 1.1 $

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

Namespace User.SampleCode.FIE
    Public Class fvalgcli4
        ''' <summary>
        ''' 配列を使用する画像処理 (その２)
        ''' </summary>
        Public Sub Direction()
            ' 1) オブジェクトの宣言.

            Dim status As Integer = 0
            Dim src As FVIL.Data.CFviImage = Nothing
            Dim result As FVIL.Blob.CFviBlobResult = Nothing
            Dim points As PNT_T_PTR = PNT_T_PTR.Zero
            ' PNT_T 配列.(PNT_T*)
            Dim num As UInteger = 0
            ' PNT_T 配列の要素数. 
            Try
                ' ==================================================
                ' 2) 画像入力.

                src = FVIL.File.[Function].LoadImageFile("./blob_BIN.png")

                ' ==================================================
                ' 3) 画像処理の実行.

                result = New FVIL.Blob.CFviBlobResult()

                Dim parser As New FVIL.Blob.CFviBlob(src, result)
                parser.Param.ColorMode = FVIL.Blob.ObjectColor.WhiteFG_BlackBG
                parser.Param.Neighborhood = FVIL.Blob.Neighborhood.Eight
                parser.Execute()

                ' ==================================================
                ' 4) 処理結果の取得.

                ' -- １つ目のブローブの境界点列を取得します.

                status = api.fnFIE_measure_get_boundary(result.Handle, 1, points, num)

                If status <> CInt(f_err.F_ERR_NONE) Then
                    Throw New FvException(status)
                End If

                ' ==================================================
                ' -) 確認.
                '    点列のアドレス(PNT_T_PTR)を FVIL のクラス(PNT_T_ARRAY)に設定して渡します.

                SaveResult(src, New FVIL.PNT_T_ARRAY(points, CInt(num), True))
            Finally
                ' ==================================================
                ' E) オブジェクトの解放.

                If src IsNot Nothing Then
                    src.Dispose()
                End If
                If result IsNot Nothing Then
                    result.Dispose()
                End If
                points.Dispose()
            End Try
        End Sub

        ''' <summary>
        ''' 処理結果の保存.
        ''' </summary>
        ''' <param name="src">処理対象画像</param>
        ''' <param name="points">ブローブの境界点列</param>
        Private Sub SaveResult(src As FVIL.Data.CFviImage, points As FVIL.PNT_T_ARRAY)
            ' カラー化.
            Dim canvas As New FVIL.Data.CFviImage(src.HorzSize, src.VertSize, FVIL.ImageType.UC8, 3)
            Dim parser = New FVIL.Conversion.CFviTrueColor(src, canvas)
            parser.Execute()

            ' ブローブの境界点列を画像に描画します.
            FVIL.Paint.[Function].DrawPoints(canvas, points, New Double() {255, 0, 0})

            ' 保存.
            Dim filename As String = Me.[GetType]().ToString() & ".png"
            FVIL.File.[Function].SaveImageFile(filename, canvas)

            canvas.Dispose()
        End Sub
    End Class
End Namespace

//    $Revision: 1.1 $

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

namespace User.SampleCode.FIE
{
    public class fvalgcli5
    {
        /// <summary>
        /// 配列を使用する画像処理 (その３)
        /// </summary>
        public void Direction()
        {
            // ==================================================
            // 1) オブジェクトの宣言.

            int status = 0;
            FVIL.Data.CFviImage src = null;
            F_DEDGE_PTR edges = F_DEDGE_PTR.Zero;
            int edge_num = 0;

            try
            {
                // ==================================================
                // 2) 画像入力.

                src = FVIL.File.Function.LoadImageFile("./disk_cd_01.png");

                // ==================================================
                // 3) 画像処理の実行.

                // -- 入力.
                FHANDLE hsrc = src.GetFIEChild();

                // -- パラメータ.
                F_ARC arc = F_ARC.init(157, 123, 24, 0, FVIL.Math.DegToRad(63));
                int prj_width = 0;
                f_edge1d_filter filter_mode = f_edge1d_filter.F_EDGE1D_CORR;
                f_edge1d_edge_direction direct_mode = f_edge1d_edge_direction.F_DTC_BOTH;
                f_diff_type diff_type = f_diff_type.F_ABSOLUTE_THR;
                double diff_thr = 25;
                f_edge1d_sort_mode sort_mode = f_edge1d_sort_mode.F_POS_SORT; 

                // -- 実行.
                status = api.fnFIE_edge1d_arc(
                    hsrc, arc, prj_width, filter_mode, direct_mode, diff_type, diff_thr, sort_mode,
                    ref edges, ref edge_num);

                if (status != (int)f_err.F_ERR_NONE)
                    throw new FvException(status);

                // ==================================================
                // -) 確認.
                //    エッジ点列のアドレス(F_DEDGE_PTR)を FVIL のクラス(CFviEdgeResultD64)に設定して渡します.

                SaveResult(src, new FVIL.Edge.CFviEdgeResultD64(edges, edge_num, true));
            }
            finally
            {
                // ==================================================
                // E) オブジェクトの解放.

                if (src != null)
                    src.Dispose();
                edges.Dispose();
            }
        }

        /// <summary>
        /// 処理結果の保存.
        /// </summary>
        /// <param name="src">処理対象画像</param>
        /// <param name="result">エッジ検出結果</param>
        private void SaveResult(FVIL.Data.CFviImage src, FVIL.Edge.CFviEdgeResultD64 result)
        {
            // カラー化.
            FVIL.Data.CFviImage canvas =
                new FVIL.Data.CFviImage(src.HorzSize, src.VertSize, FVIL.ImageType.UC8, 3);
            new FVIL.Conversion.CFviTrueColor(src, canvas).Execute();

            // 描画.
            FVIL.Paint.Function.DrawPoints(canvas, result, new double[] {255, 0, 0});
            for (int i = 0; i < result.Count; i++)
            {
                FVIL.Paint.Function.DrawCircle(
                        canvas,
                        new FVIL.Data.CFviCircle(result[i].x, result[i].y, 5),
                        new double[] { 255, 0, 0 },
                        FVIL.Paint.FillMode.Line
                    );
            }

            // 保存.
            string filename = this.GetType().ToString() + ".png";
            FVIL.File.Function.SaveImageFile(filename, canvas);

            canvas.Dispose();
        }
    }
}

'    $Revision: 1.1 $

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

Namespace User.SampleCode.FIE
    Public Class fvalgcli5
        ''' <summary>
        ''' 配列を使用する画像処理 (その３)
        ''' </summary>
        Public Sub Direction()
            ' ==================================================
            ' 1) オブジェクトの宣言.

            Dim status As Integer = 0
            Dim src As FVIL.Data.CFviImage = Nothing
            Dim edges As F_DEDGE_PTR = F_DEDGE_PTR.Zero
            Dim edge_num As Integer = 0

            Try
                ' ==================================================
                ' 2) 画像入力.

                src = FVIL.File.[Function].LoadImageFile("./disk_cd_01.png")

                ' ==================================================
                ' 3) 画像処理の実行.

                ' -- 入力.
                Dim hsrc As FHANDLE = src.GetFIEChild()

                ' -- パラメータ.
                Dim arc As F_ARC = F_ARC.init(157, 123, 24, 0, FVIL.Math.DegToRad(63))
                Dim prj_width As Integer = 0
                Dim filter_mode As f_edge1d_filter = f_edge1d_filter.F_EDGE1D_CORR
                Dim direct_mode As f_edge1d_edge_direction = f_edge1d_edge_direction.F_DTC_BOTH
                Dim diff_type As f_diff_type = f_diff_type.F_ABSOLUTE_THR
                Dim diff_thr As Double = 25
                Dim sort_mode As f_edge1d_sort_mode = f_edge1d_sort_mode.F_POS_SORT

                ' -- 実行.
                status = api.fnFIE_edge1d_arc(hsrc, arc, prj_width, filter_mode, direct_mode, diff_type, _
                    diff_thr, sort_mode, edges, edge_num)

                If status <> CInt(f_err.F_ERR_NONE) Then
                    Throw New FvException(status)
                End If

                ' ==================================================
                ' -) 確認.
                '    エッジ点列のアドレス(F_DEDGE_PTR)を FVIL のクラス(CFviEdgeResultD64)に設定して渡します.

                SaveResult(src, New FVIL.Edge.CFviEdgeResultD64(edges, edge_num, True))
            Finally
                ' ==================================================
                ' E) オブジェクトの解放.

                If src IsNot Nothing Then
                    src.Dispose()
                End If
                edges.Dispose()
            End Try
        End Sub

        ''' <summary>
        ''' 処理結果の保存.
        ''' </summary>
        ''' <param name="src">処理対象画像</param>
        ''' <param name="result">エッジ検出結果</param>
        Private Sub SaveResult(src As FVIL.Data.CFviImage, result As FVIL.Edge.CFviEdgeResultD64)
            ' カラー化.
            Dim canvas As New FVIL.Data.CFviImage(src.HorzSize, src.VertSize, FVIL.ImageType.UC8, 3)
            Dim parser = New FVIL.Conversion.CFviTrueColor(src, canvas)
            parser.Execute()

            ' 描画.
            FVIL.Paint.[Function].DrawPoints(canvas, result, New Double() {255, 0, 0})
            For i As Integer = 0 To result.Count - 1
                FVIL.Paint.[Function].DrawCircle(canvas, New FVIL.Data.CFviCircle(result(i).x, result(i).y, 5), New Double() {255, 0, 0}, FVIL.Paint.FillMode.Line)
            Next

            ' 保存.
            Dim filename As String = Me.[GetType]().ToString() & ".png"
            FVIL.File.[Function].SaveImageFile(filename, canvas)

            canvas.Dispose()
        End Sub
    End Class
End Namespace

//    $Revision: 1.1 $

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

namespace User.SampleCode.FIE
{
    public class fvalgcli6
    {
        /// <summary>
        /// 配列を使用する画像処理 (その４)
        /// </summary>
        public void Direction()
        {
            // ==================================================
            // 1) オブジェクトの宣言.

            int status = 0;
            FVIL.Data.CFviImage src = null;
            FVIL.Data.CFviImage dst = null;

            try
            {
                // ==================================================
                // 2) 画像生成.

                src = new FVIL.Data.CFviImage(256, 1, FVIL.ImageType.RGB32, 1);
                dst = new FVIL.Data.CFviImage(256, 25, FVIL.ImageType.UC8, 3);

                // ==================================================
                // 3) 画像処理の実行.

                RGBQUAD_PTR rgb = src.GetImageAdrs(0, 0, 0);

                status = api.fnFIE_make_pseudo_colormap(
                    rgb, src.HorzSize, f_colormap_type.F_COLORMAP_RAINBOW_CYCLIC, 255);

                if (status != (int)f_err.F_ERR_NONE)
                    throw new FvException(status);

                // ==================================================
                // 4) 処理結果(１次元配列)を２次元の画像に変換.

                for (int y = 0; y < dst.VertSize; y++)
                {
                    dst.Window = new Rectangle(0, y, src.HorzSize, src.VertSize);
                    new FVIL.Conversion.CFviTrueColor(src, dst).Execute();
                }

                // ==================================================
                // -) 確認.
                string filename = this.GetType().ToString() + ".png";
                FVIL.File.Function.SaveImageFile(filename, dst);
            }
            finally
            {
                // ==================================================
                // E) オブジェクトの解放.

                if (src != null) src.Dispose();
                if (dst != null) dst.Dispose();
            }
        }
    }
}

'    $Revision: 1.1 $

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

Namespace User.SampleCode.FIE
    Public Class fvalgcli6
        ''' <summary>
        ''' 配列を使用する画像処理 (その４)
        ''' </summary>
        Public Sub Direction()
            ' ==================================================
            ' 1) オブジェクトの宣言.

            Dim status As Integer = 0
            Dim src As FVIL.Data.CFviImage = Nothing
            Dim dst As FVIL.Data.CFviImage = Nothing

            Try
                ' ==================================================
                ' 2) 画像生成.

                src = New FVIL.Data.CFviImage(256, 1, FVIL.ImageType.RGB32, 1)
                dst = New FVIL.Data.CFviImage(256, 25, FVIL.ImageType.UC8, 3)

                ' ==================================================
                ' 3) 画像処理の実行.

                Dim rgb As RGBQUAD_PTR = src.GetImageAdrs(0, 0, 0)

                status = api.fnFIE_make_pseudo_colormap(rgb, src.HorzSize, f_colormap_type.F_COLORMAP_RAINBOW_CYCLIC, 255)

                If status <> CInt(f_err.F_ERR_NONE) Then
                    Throw New FvException(status)
                End If

                ' ==================================================
                ' 4) 処理結果(１次元配列)を２次元の画像に変換.

                For y As Integer = 0 To dst.VertSize - 1
                    dst.Window = New Rectangle(0, y, src.HorzSize, src.VertSize)
                    Dim parser = New FVIL.Conversion.CFviTrueColor(src, dst)
                    parser.Execute()
                Next

                ' ==================================================
                ' -) 確認.
                Dim filename As String = Me.[GetType]().ToString() & ".png"
                FVIL.File.[Function].SaveImageFile(filename, dst)
            Finally
                ' ==================================================
                ' E) オブジェクトの解放.

                If src IsNot Nothing Then
                    src.Dispose()
                End If
                If dst IsNot Nothing Then
                    dst.Dispose()
                End If
            End Try
        End Sub
    End Class
End Namespace