public static int fnFIE_edge1d_detect_edges_corr(
	DOUBLE_PTR pprj,
	int prj_len,
	f_edge1d_edge_direction direct_mode,
	f_diff_type diff_type,
	double diff_thr,
	f_edge1d_sort_mode sort_mode,
	F_DEDGE_PTR edges,
	int edge_len,
	ref int edge_num
)

Public Shared Function fnFIE_edge1d_detect_edges_corr ( 
	pprj As DOUBLE_PTR,
	prj_len 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,
	edges As F_DEDGE_PTR,
	edge_len As Integer,
	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_detect_edges_corr()
        {
            string filepath = TestImageDir + "/testdata/image_file_8bpp.bmp";

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

            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 prj_len = 0;
                int edge_num = 0;
                int edge_len = 0;
                double diff_thr = 75;

                // 計測ラインの長さを計算.
                int length = 0;
                api.fnFIE_edge1d_calc_projection_line_length(line, ref length);
                prj_len = (int)(length + 0.5);
                edge_len = prj_len;
                edges = F_DEDGE_PTR.alloc(edge_len);
                pprj = DOUBLE_PTR.alloc(prj_len);

                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;
                //F_ARRAY_INDEX valid_reg = new F_ARRAY_INDEX();

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

                // プロジェクション作成.
                //status = api.fnFIE_edge1d_projection_line(hImage, line, prj_width, pprj, prj_len, ref valid_reg);
                //Console.WriteLine(status);
                //Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "fnFIE_edge1d_projection_line: エラーが発生しました。({0})", (f_err)status);
                //Console.WriteLine("fnFIE_edge1d_projection_line");

                // エッジ検出実行.
                status = api.fnFIE_edge1d_detect_edges_corr(pprj, prj_len, direct_mode, diff_type, diff_thr, sort_mode, edges, edge_len, ref edge_num);
                Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "fnFIE_edge1d_detect_edges_corr: エラーが発生しました。({0})", (f_err)status);
                Console.WriteLine("fnFIE_edge1d_detect_edges_corr");
                for (int i = 0; i < edge_num; i++)
                    Console.WriteLine("edge[{0}]=({1}, {2}, {3}, {4})", i, edges[i].x, edges[i].y, edges[i].q, edges[i].mag);
            }
            finally
            {
                hImage.Dispose();
                edges.Dispose();
                pprj.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_detect_edges_corr()
        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 F_DEDGE_PTR = F_DEDGE_PTR.Zero
        Dim pprj As DOUBLE_PTR = DOUBLE_PTR.Zero

        Try
            Dim line As DSGMT_T
            line.st.x = 50
            line.st.y = 250
            line.ed.x = 450
            line.ed.y = 250
            'int prj_width = 0;
            Dim prj_len As Integer = 0
            Dim edge_num As Integer = 0
            Dim edge_len As Integer = 0
            Dim diff_thr As Double = 75

            ' 計測ラインの長さを計算.
            Dim length As Integer = 0
            api.fnFIE_edge1d_calc_projection_line_length(line, length)
            prj_len = CInt(Math.Truncate(length + 0.5))
            edge_len = prj_len
            edges = F_DEDGE_PTR.alloc(edge_len)
            pprj = DOUBLE_PTR.alloc(prj_len)

            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
            'F_ARRAY_INDEX valid_reg = new F_ARRAY_INDEX();

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

            ' プロジェクション作成.
            'status = api.fnFIE_edge1d_projection_line(hImage, line, prj_width, pprj, prj_len, ref valid_reg);
            'Console.WriteLine(status);
            'Assert.IsTrue(status == (int)f_err.F_ERR_NONE, "fnFIE_edge1d_projection_line: エラーが発生しました。({0})", (f_err)status);
            'Console.WriteLine("fnFIE_edge1d_projection_line");

            ' エッジ検出実行.
            status = api.fnFIE_edge1d_detect_edges_corr(pprj, prj_len, direct_mode, diff_type, diff_thr, sort_mode, _
                edges, edge_len, edge_num)
            Assert.IsTrue(status = CInt(f_err.F_ERR_NONE), "fnFIE_edge1d_detect_edges_corr: エラーが発生しました。({0})", CType(status, f_err))
            Console.WriteLine("fnFIE_edge1d_detect_edges_corr")
            For i As Integer = 0 To edge_num - 1
                Console.WriteLine("edge[{0}]=({1}, {2}, {3}, {4})", i, edges(i).x, edges(i).y, edges(i).q, edges(i).mag)
            Next
        Finally
            hImage.Dispose()
            edges.Dispose()
            pprj.Dispose()
        End Try
    End Sub
End Class