public static int fnFIE_edge1d_arc2(
	FHANDLE hsrc,
	F_ARC arc,
	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_arc2 ( 
	hsrc As FHANDLE,
	arc As F_ARC,
	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_arc2()
        {
            string filepath = TestImageDir + "/testdata/image_file_8bpp.bmp";

            int status = (int)f_err.F_ERR_NONE;
            FHANDLE hImageSrc = FHANDLE.Zero;
            F_DEDGE_PTR edges = new F_DEDGE_PTR();
            INT_PTR diff = new INT_PTR();

            try
            {
                int edge_num = 0;
                int prj_width = 5;
                int diff_len = 0;
                int arnd = 0;
                int interval = 0;
                double diff_thr = 10;
                F_ARC arc = new F_ARC();
                arc.x = 200;
                arc.y = 200;
                arc.radius = 100;
                arc.start_angle = 0;
                arc.sweep_angle = Math.PI * 2;
                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 hImageSrc, f_color_img_type.F_COLOR_IMG_TYPE_UC8);

                // 計測ライン(円弧)の長さを計算.
                fnFIE_edge1d_calc_projection_arc_length(arc);

                // エッジ検出実行.
                status = api.fnFIE_edge1d_arc2(hImageSrc, arc, 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_arc2: エラーが発生しました。({0})", (f_err)status);
                Console.WriteLine("fnFIE_edge1d_arc2");
                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
            {
                hImageSrc.Dispose();
                edges.Dispose();
                diff.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_arc2()
        Dim filepath As String = TestImageDir & "/testdata/image_file_8bpp.bmp"

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

        Try
            Dim edge_num As Integer = 0
            Dim prj_width As Integer = 5
            Dim diff_len As Integer = 0
            Dim arnd As Integer = 0
            Dim interval As Integer = 0
            Dim diff_thr As Double = 10
            Dim arc As New F_ARC()
            arc.x = 200
            arc.y = 200
            arc.radius = 100
            arc.start_angle = 0
            arc.sweep_angle = Math.PI * 2
            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, hImageSrc, f_color_img_type.F_COLOR_IMG_TYPE_UC8)

            ' 計測ライン(円弧)の長さを計算.
            fnFIE_edge1d_calc_projection_arc_length(arc)

            ' エッジ検出実行.
            status = api.fnFIE_edge1d_arc2(hImageSrc, arc, 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_arc2: エラーが発生しました。({0})", CType(status, f_err))
            Console.WriteLine("fnFIE_edge1d_arc2")
            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
            hImageSrc.Dispose()
            edges.Dispose()
            diff.Dispose()
        End Try
    End Sub
End Class