public static int fnFIE_edge1d_line(
	FHANDLE hsrc,
	DSGMT_T line,
	int prj_width,
	f_edge1d_filter filter_mode,
	f_edge1d_edge_direction direct_mode,
	f_diff_type diff_type,
	double diff_thr,
	f_edge1d_sort_mode sort_mode,
	ref F_DEDGE_PTR edges,
	ref int edge_num
)

Public Shared Function fnFIE_edge1d_line ( 
	hsrc As FHANDLE,
	line As DSGMT_T,
	prj_width As Integer,
	filter_mode As f_edge1d_filter,
	direct_mode As f_edge1d_edge_direction,
	diff_type As f_diff_type,
	diff_thr As Double,
	sort_mode As f_edge1d_sort_mode,
	ByRef edges As F_DEDGE_PTR,
	ByRef edge_num As Integer
) As Integer

//    $Revision: 1.1 $

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

namespace TC
{
    public partial class FIE
    {
        [FvPluginExecute]
        public void fnFIE_edge1d_line()
        {
            string filepath = TestImageDir + "/testdata/image_file_8bpp.bmp";

            int status = (int)f_err.F_ERR_NONE;
            FHANDLE hImage = FHANDLE.Zero;
            F_DEDGE_PTR edges = new F_DEDGE_PTR();

            try
            {
                DSGMT_T line;
                line.st.x = 50;
                line.st.y = 250;
                line.ed.x = 450;
                line.ed.y = 250;
                int prj_width = 0;
                int edge_num = 0;
                int offset = 0;
                double diff_thr = 75;

                f_edge1d_filter filter_mode = f_edge1d_filter.F_EDGE1D_CORR;
                f_edge1d_edge_direction direct_mode = f_edge1d_edge_direction.F_BRI_TO_DRK;
                f_diff_type diff_type = f_diff_type.F_RELATIVE_THR;
                f_edge1d_sort_mode sort_mode = f_edge1d_sort_mode.F_MAG_SORT;

                api.fnFIE_load_bmp(filepath, ref hImage, f_color_img_type.F_COLOR_IMG_TYPE_UC8);

                // 計測ラインの長さを計算.
                fnFIE_edge1d_calc_projection_line_length(line);

                // エッジ検出実行.
                status = api.fnFIE_edge1d_line(hImage, line, prj_width, filter_mode, direct_mode, diff_type, diff_thr, sort_mode, ref edges, ref edge_num);
                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "fnFIE_edge1d_line: エラーが発生しました。({0})", (f_err)status);
                Console.WriteLine("fnFIE_edge1d_line");
                for (int i = 0; i < edge_num; i++)
                    Console.Write("edges[{0}]=({1}, {2}, {3})\n", i, edges[i].x, edges[i].y, edges[i].mag);

                // 計測ライン(線分)上への座標変換.
                fnFIE_edge1d_trans_coord_line(edges, edge_num, line, offset);
            }
            finally
            {
                hImage.Dispose();
                edges.Dispose();
            }
        }
    }
}

'    $Revision: 1.1 $

Imports System.Collections.Generic
Imports System.Text
Imports System.Runtime.InteropServices
Imports fvalgcli

Public Partial Class FIE
    <FvPluginExecute> _
    Public Sub fnFIE_edge1d_line()
        Dim filepath As String = TestImageDir & "/testdata/image_file_8bpp.bmp"

        Dim status As Integer = CInt(f_err.F_ERR_NONE)
        Dim hImage As FHANDLE = FHANDLE.Zero
        Dim edges As New F_DEDGE_PTR()

        Try
            Dim line As DSGMT_T
            line.st.x = 50
            line.st.y = 250
            line.ed.x = 450
            line.ed.y = 250
            Dim prj_width As Integer = 0
            Dim edge_num As Integer = 0
            Dim offset As Integer = 0
            Dim diff_thr As Double = 75

            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_BRI_TO_DRK
            Dim diff_type As f_diff_type = f_diff_type.F_RELATIVE_THR
            Dim sort_mode As f_edge1d_sort_mode = f_edge1d_sort_mode.F_MAG_SORT

            api.fnFIE_load_bmp(filepath, hImage, f_color_img_type.F_COLOR_IMG_TYPE_UC8)

            ' 計測ラインの長さを計算.
            fnFIE_edge1d_calc_projection_line_length(line)

            ' エッジ検出実行.
            status = api.fnFIE_edge1d_line(hImage, line, prj_width, filter_mode, direct_mode, diff_type, _
                diff_thr, sort_mode, edges, edge_num)
            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "fnFIE_edge1d_line: エラーが発生しました。({0})", CType(status, f_err))
            Console.WriteLine("fnFIE_edge1d_line")
            For i As Integer = 0 To edge_num - 1
                Console.Write("edges[{0}]=({1}, {2}, {3})" & vbLf, i, edges(i).x, edges(i).y, edges(i).mag)
            Next

            ' 計測ライン(線分)上への座標変換.
            fnFIE_edge1d_trans_coord_line(edges, edge_num, line, offset)
        Finally
            hImage.Dispose()
            edges.Dispose()
        End Try
    End Sub
End Class