public static int fnFIE_edge1d_line2(
	FHANDLE hsrc,
	DSGMT_T line,
	int prj_width,
	F_EDGE1D_DIFF_FILTER diff_filter,
	int arnd,
	int interval,
	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,
	ref INT_PTR diff,
	ref int diff_len
)

Public Shared Function fnFIE_edge1d_line2 ( 
	hsrc As FHANDLE,
	line As DSGMT_T,
	prj_width As Integer,
	diff_filter As F_EDGE1D_DIFF_FILTER,
	arnd As Integer,
	interval As Integer,
	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,
	ByRef diff As INT_PTR,
	ByRef diff_len 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_line2()
        {
            string filepath = TestImageDir + "/testdata/image_file_8bpp.bmp";

            int status = (int)f_err.F_ERR_NONE;
            FHANDLE hImage = FHANDLE.Zero;
            INT_PTR diff = new INT_PTR();
            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 arnd = 0;
                int interval = 0;
                int diff_len = 0;
                double diff_thr = 75;
                F_EDGE1D_DIFF_FILTER diff_filter;
                diff_filter.minus_foot = 1;
                diff_filter.minus_len = 0;
                diff_filter.plus_foot = 1;
                diff_filter.plus_len = 0;                

                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_line2(hImage, line, prj_width, diff_filter, arnd, interval, direct_mode, diff_type, diff_thr, sort_mode, ref edges, ref edge_num, ref diff, ref diff_len);
                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "fnFIE_edge1d_line2: エラーが発生しました。({0})", (f_err)status);
                Console.WriteLine("fnFIE_edge1d_line2");
                for (int i = 0; i < edge_num; i++)
                    Console.WriteLine("edges[{0}]=({1}, {2}, {3}, {4})", i, edges[i].x, edges[i].y, edges[i].q, edges[i].mag);
            }
            finally
            {
                hImage.Dispose();
                diff.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_line2()
        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 diff As New INT_PTR()
        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 arnd As Integer = 0
            Dim interval As Integer = 0
            Dim diff_len As Integer = 0
            Dim diff_thr As Double = 75
            Dim diff_filter As F_EDGE1D_DIFF_FILTER
            diff_filter.minus_foot = 1
            diff_filter.minus_len = 0
            diff_filter.plus_foot = 1
            diff_filter.plus_len = 0

            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_line2(hImage, line, prj_width, diff_filter, arnd, interval, _
                direct_mode, diff_type, diff_thr, sort_mode, edges, edge_num, _
                diff, diff_len)
            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "fnFIE_edge1d_line2: エラーが発生しました。({0})", CType(status, f_err))
            Console.WriteLine("fnFIE_edge1d_line2")
            For i As Integer = 0 To edge_num - 1
                Console.WriteLine("edges[{0}]=({1}, {2}, {3}, {4})", i, edges(i).x, edges(i).y, edges(i).q, edges(i).mag)
            Next
        Finally
            hImage.Dispose()
            diff.Dispose()
            edges.Dispose()
        End Try
    End Sub
End Class