[SerializableAttribute]
public class CFviPolarTrans : CFviImageParser

<SerializableAttribute>
Public Class CFviPolarTrans
	Inherits CFviImageParser

//    $Revision: 1.3 $

using System;
using System.Collections.Generic;
using System.Text;
using System.Drawing;
using fvalgcli;    // FvPluginXXXX attribute requires fvalgcli

namespace User.SampleCode
{
    public partial class PolarTrans
    {
        // ============================================================
        /// <summary>
        /// 極座標変換クラス.
        /// </summary>
        [FvPluginExecute]
        public void PolarTransInvert()
        {
            // 1) インスタンスの準備.
            FVIL.PolarTrans.CFviPolarTrans parser = new FVIL.PolarTrans.CFviPolarTrans();
            FVIL.Data.CFviImage src = new FVIL.Data.CFviImage();
            FVIL.Data.CFviImage dst = new FVIL.Data.CFviImage();

            // 2) 処理対象画像の取り込み.
            FVIL.File.Function.LoadImageFile(Defs.TestImageDir + "/disk_cd_01.png", src, FVIL.PixelMode.Unpacking);

            // 3) 処理対象画像の有効性検査.
            if( FVIL.ErrorCode._SUCCESS != FVIL.PolarTrans.CFviPolarTrans.CheckValidity( src ) )
                return;

            // 4) 画像処理準備.
            parser.SrcImages[0] = src;
            parser.DstImages[0] = dst;

            // 5-1) パラメータ設定.
            parser.Invert = true;            // true: 円形→矩形.
            parser.ClearBackMode = true;
            parser.SamplingMode = FVIL.PolarTrans.SamplingMode.NearestNeighbor;

            // --- 円形領域の中心位置の取得.
            double target = 91/2.0;        // 目標の円半径 (画像によって調整が必要)
            double tie = 24;            // 目標の円の帯幅 (画像によって調整が必要)
            FVIL.Data.CFviPoint    center = new FVIL.Data.CFviPoint();    // 検出した円中心.
            double radius;                // 変換する円半径.
            try
            {
                center = get_center( src, target-(tie/4.0), target+(tie/4.0) );
                radius = (center.X<center.Y) ? center.X : center.Y;
            }
            catch( FVIL.CFviException ex )
            {
                throw new FVIL.CFviException(ex.ErrorCode, "get_center", "Failed to get a center point of circle.");
            }

            // --- パラメータ構造クラス.
            FVIL.PolarTrans.CFviPolarTransParam param = parser.Param;
            param.CoordinateMode = FVIL.PolarTrans.CoordinateMode.Lower;
            // --- 入力: 円形領域の設定.
            param.OriginOut = center;
            param.Radius = radius;
            param.StartAngle = new FVIL.Data.CFviAngle(235.0);    // (!) 画像によって調整が必要.
            param.RangeAngle = new FVIL.Data.CFviAngle(360.0);
            // --- 出力: 矩形領域の設定.
            param.OriginIn = new FVIL.Data.CFviPoint(0,radius-1);
            param.Width = 2 * FVIL.Math.Pi * (target+(tie/2.0));    // 目標の円の円周よりやや外側.
            param.Height = radius;

            // 5-2) 出力画像の有効化.
            parser.Validate(1);        // 有効化.

            // 6) 画像処理実行.
            parser.Execute();

            // E) 処理結果画像の保存.
            FVIL.File.Function.SaveImageFile(Defs.ResultDir + "/PolarTrans.PolarTransInvert.png", dst);
        }
    }
}

'    $Revision: 1.1 $

Imports System.Collections.Generic
Imports System.Text
Imports System.Drawing
Imports fvalgcli
' FvPluginXXXX attribute requires fvalgcli
Namespace SampleCode
    Public Partial Class PolarTrans
        ' ============================================================
        ''' <summary>
        ''' 極座標変換クラス.
        ''' </summary>
        <FvPluginExecute> _
        Public Sub PolarTransInvert()
            ' 1) インスタンスの準備.
            Dim parser As New FVIL.PolarTrans.CFviPolarTrans()
            Dim src As New FVIL.Data.CFviImage()
            Dim dst As New FVIL.Data.CFviImage()

            ' 2) 処理対象画像の取り込み.
            FVIL.File.[Function].LoadImageFile(Defs.TestImageDir & "/disk_cd_01.png", src, FVIL.PixelMode.Unpacking)

            ' 3) 処理対象画像の有効性検査.
            If FVIL.ErrorCode._SUCCESS <> FVIL.PolarTrans.CFviPolarTrans.CheckValidity(src) Then
                Return
            End If

            ' 4) 画像処理準備.
            parser.SrcImages(0) = src
            parser.DstImages(0) = dst

            ' 5-1) パラメータ設定.
            parser.Invert = True
            ' true: 円形→矩形.
            parser.ClearBackMode = True
            parser.SamplingMode = FVIL.PolarTrans.SamplingMode.NearestNeighbor

            ' --- 円形領域の中心位置の取得.
            Dim target As Double = 91 / 2.0
            ' 目標の円半径 (画像によって調整が必要)
            Dim tie As Double = 24
            ' 目標の円の帯幅 (画像によって調整が必要)
            Dim center As New FVIL.Data.CFviPoint()
            ' 検出した円中心.
            Dim radius As Double
            ' 変換する円半径.
            Try
                center = get_center(src, target - (tie / 4.0), target + (tie / 4.0))
                radius = If((center.X < center.Y), center.X, center.Y)
            Catch ex As FVIL.CFviException
                Throw New FVIL.CFviException(ex.ErrorCode, "get_center", "Failed to get a center point of circle.")
            End Try

            ' --- パラメータ構造クラス.
            Dim param As FVIL.PolarTrans.CFviPolarTransParam = parser.Param
            param.CoordinateMode = FVIL.PolarTrans.CoordinateMode.Lower
            ' --- 入力: 円形領域の設定.
            param.OriginOut = center
            param.Radius = radius
            param.StartAngle = New FVIL.Data.CFviAngle(235.0)
            ' (!) 画像によって調整が必要.
            param.RangeAngle = New FVIL.Data.CFviAngle(360.0)
            ' --- 出力: 矩形領域の設定.
            param.OriginIn = New FVIL.Data.CFviPoint(0, radius - 1)
            param.Width = 2 * FVIL.Math.Pi * (target + (tie / 2.0))
            ' 目標の円の円周よりやや外側.
            param.Height = radius

            ' 5-2) 出力画像の有効化.
            parser.Validate(1)
            ' 有効化.
            ' 6) 画像処理実行.
            parser.Execute()

            ' E) 処理結果画像の保存.
            FVIL.File.[Function].SaveImageFile(Defs.ResultDir & "/PolarTrans.PolarTransInvert.png", dst)
        End Sub
    End Class
End Namespace

//    $Revision: 1.2 $

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

namespace User.SampleCode
{
    public partial class PolarTrans
    {
        // ============================================================
        /// <summary>
        /// ディスクの中心座標の取得.
        /// </summary>
        internal FVIL.Data.CFviPoint get_center(FVIL.Data.CFviImage image, double radius_min, double radius_max)
        {
            FVIL.Data.CFviPoint    center = new FVIL.Data.CFviPoint(0,0);

            // -) 有効性の検査.
            int    valid = FVIL.Hough.CFviCircleHoughSobelEdge.CheckValidity(image);
            if( valid != FVIL.ErrorCode._SUCCESS )
                throw new FVIL.CFviException(valid,"FVIL.Hough.CFviCircleHoughSobelEdge.CheckValidity");

            // -) インスタンスの準備.
            FVIL.Hough.CFviCircleHoughSobelEdge parser = new FVIL.Hough.CFviCircleHoughSobelEdge();

            // -) 画像処理準備.
            parser.SrcImages[0] = image;

            // -) パラメータ設定 (本体)
            FVIL.Hough.CFviCircleHoughParam param = parser.Param;
            param.Resolution = 1.0;
            param.RadiusMin = radius_min;
            param.RadiusMax = radius_max;
            param.QRange = 30;
            param.EdgePercent = 20;
            param.MinScore = 8;
            param.ObjectColor = FVIL.Hough.ObjectColor.BlackOrWhite;
            param.MergeCenter = 2;
            param.MergeRadius = 1;

            // -) パラメータ設定 (エッジ検出部分)
            FVIL.Edge.CFviEdge2DSobelParam param_edge = parser.ParamEdge;
            param_edge.EdgeThreshold = 120;
            param_edge.NmsLength = 1;

            // -) 画像処理実行.
            parser.Execute();

            // -) スコア最大値の円を取得.
            FVIL.Data.CFviCircle max_circle = new FVIL.Data.CFviCircle();
            int max_score = 0;
            for(int i = 0; i < parser.Result.Count; i++ )
            {
                FVIL.Hough.CFviCircleHoughData data = parser.Result[i];
                if( max_score < data.Score )
                {
                    max_score = data.Score;
                    max_circle.Center = data.Center;
                    max_circle.Radius = data.Radius;
                }
            }
            center = max_circle.Center;

            // E) 確認用.
            {
                // 画像表示の準備.
                FVIL.GDI.CFviDisplay display = new FVIL.GDI.CFviDisplay();
                display.Image = image;
                display.DisplayRect = image.Window;

                // オーバレイの生成.
                FVIL.GDI.CFviOverlay pOverlay0 = new FVIL.GDI.CFviOverlay();
                pOverlay0.Scaling = true;
                display.Overlays.Add(pOverlay0);

                // 描画図形の生成と追加.

                // --- 円データ生成.
                FVIL.GDI.CFviGdiCircle circle = new FVIL.GDI.CFviGdiCircle(max_circle);
                circle.Pen.Color = System.Drawing.Color.Red;

                FVIL.GDI.CFviGdiPoint point = new FVIL.GDI.CFviGdiPoint(circle.Center);
                point.Pen.Color = System.Drawing.Color.Red;
                point.Style = FVIL.GDI.FigureStyle.Cross;
                point.Size = new System.Drawing.Size( 10, 10 );

                // --- オーバレイへ追加.
                pOverlay0.Figures.Add( circle );
                pOverlay0.Figures.Add( point );

                // 画像保存.
                FVIL.Data.CFviImage canvas = new FVIL.Data.CFviImage();
                display.SaveImage( canvas, display.DisplayRect, 1.0 );
                FVIL.File.Function.SaveImageFile(Defs.ResultDir + "/PolarTrans.get_center.png", canvas);
            }

            return center;
        }
    }
}

'    $Revision: 1.1 $

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

Namespace SampleCode
    Public Partial Class PolarTrans
        ' ============================================================
        ''' <summary>
        ''' ディスクの中心座標の取得.
        ''' </summary>
        Friend Function get_center(image As FVIL.Data.CFviImage, radius_min As Double, radius_max As Double) As FVIL.Data.CFviPoint
            Dim center As New FVIL.Data.CFviPoint(0, 0)

            ' -) 有効性の検査.
            Dim valid As Integer = FVIL.Hough.CFviCircleHoughSobelEdge.CheckValidity(image)
            If valid <> FVIL.ErrorCode._SUCCESS Then
                Throw New FVIL.CFviException(valid, "FVIL.Hough.CFviCircleHoughSobelEdge.CheckValidity")
            End If

            ' -) インスタンスの準備.
            Dim parser As New FVIL.Hough.CFviCircleHoughSobelEdge()

            ' -) 画像処理準備.
            parser.SrcImages(0) = image

            ' -) パラメータ設定 (本体)
            Dim param As FVIL.Hough.CFviCircleHoughParam = parser.Param
            param.Resolution = 1.0
            param.RadiusMin = radius_min
            param.RadiusMax = radius_max
            param.QRange = 30
            param.EdgePercent = 20
            param.MinScore = 8
            param.ObjectColor = FVIL.Hough.ObjectColor.BlackOrWhite
            param.MergeCenter = 2
            param.MergeRadius = 1

            ' -) パラメータ設定 (エッジ検出部分)
            Dim param_edge As FVIL.Edge.CFviEdge2DSobelParam = parser.ParamEdge
            param_edge.EdgeThreshold = 120
            param_edge.NmsLength = 1

            ' -) 画像処理実行.
            parser.Execute()

            ' -) スコア最大値の円を取得.
            Dim max_circle As New FVIL.Data.CFviCircle()
            Dim max_score As Integer = 0
            For i As Integer = 0 To parser.Result.Count - 1
                Dim data As FVIL.Hough.CFviCircleHoughData = parser.Result(i)
                If max_score < data.Score Then
                    max_score = data.Score
                    max_circle.Center = data.Center
                    max_circle.Radius = data.Radius
                End If
            Next
            center = max_circle.Center

            ' E) 確認用.
            If True Then
                ' 画像表示の準備.
                Dim display As New FVIL.GDI.CFviDisplay()
                display.Image = image
                display.DisplayRect = image.Window

                ' オーバレイの生成.
                Dim pOverlay0 As New FVIL.GDI.CFviOverlay()
                pOverlay0.Scaling = True
                display.Overlays.Add(pOverlay0)

                ' 描画図形の生成と追加.

                ' --- 円データ生成.
                Dim circle As New FVIL.GDI.CFviGdiCircle(max_circle)
                circle.Pen.Color = System.Drawing.Color.Red

                Dim point As New FVIL.GDI.CFviGdiPoint(circle.Center)
                point.Pen.Color = System.Drawing.Color.Red
                point.Style = FVIL.GDI.FigureStyle.Cross
                point.Size = New System.Drawing.Size(10, 10)

                ' --- オーバレイへ追加.
                pOverlay0.Figures.Add(circle)
                pOverlay0.Figures.Add(point)

                ' 画像保存.
                Dim canvas As New FVIL.Data.CFviImage()
                display.SaveImage(canvas, display.DisplayRect, 1.0)
                FVIL.File.[Function].SaveImageFile(Defs.ResultDir & "/PolarTrans.get_center.png", canvas)
            End If

            Return center
        End Function
    End Class
End Namespace