[SerializableAttribute]
public class CFviDistanceTransform : CFviImageParser

<SerializableAttribute>
Public Class CFviDistanceTransform
	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 Filter
    {
        // ============================================================
        /// <summary>
        /// 距離変換フィルタクラス.
        /// </summary>
        [FvPluginExecute]
        public void DistanceTransform()
        {
            // 1) インスタンスの準備.
            FVIL.Filter.CFviDistanceTransform parser = new FVIL.Filter.CFviDistanceTransform();
            FVIL.Data.CFviImage src = new FVIL.Data.CFviImage();
            FVIL.Data.CFviImage dst = new FVIL.Data.CFviImage();

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

            // 3) 処理対象画像の有効性検査.
            int valid = FVIL.Filter.CFviDistanceTransform.CheckValidity(src);
            if (valid != FVIL.ErrorCode._SUCCESS)
                throw new FVIL.CFviException(valid, "FVIL.Filter.CFviDistanceTransform.CheckValidity");

            // 4) 画像処理準備 (共通)
            parser.SrcImages[0] = src;
            parser.DstImages[0] = dst;
            if (!parser.IsValid())    // 有効性検査.
                parser.Validate();    // 有効化.

            // 5-1) パラメータ設定 (固有)
            parser.Mode = FVIL.Filter.DistanceTransformMode.CityBlock;

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

            // E) 処理結果画像の保存.
            FVIL.Data.CFviImage tmp = new FVIL.Data.CFviImage();

            // --- UC8 <- US16
            tmp.SetSize( dst.HorzSize, dst.VertSize, FVIL.ImageType.UC8, dst.Channel );
            tmp.Copy( dst, 0 );

            // --- 濃度値を 16 倍する.
            FVIL.Operation.CFviMulScalar mul = new FVIL.Operation.CFviMulScalar();
            mul.SrcImages[0] = tmp;
            mul.DstImages[0] = tmp;
            mul.Value = 16;
            mul.Execute();

            // --- 保存.
            FVIL.File.Function.SaveImageFile(Defs.ResultDir + "/Filter.DistanceTransform.png", tmp);
        }
    }
}

'    $Revision: 1.1 $

Imports System.Collections.Generic
Imports System.Text
Imports System.Drawing
Imports fvalgcli
' FvPluginXXXX attribute requires fvalgcli
Namespace SampleCode
    Public Partial Class Filter
        ' ============================================================
        ''' <summary>
        ''' 距離変換フィルタクラス.
        ''' </summary>
        <FvPluginExecute> _
        Public Sub DistanceTransform()
            ' 1) インスタンスの準備.
            Dim parser As New FVIL.Filter.CFviDistanceTransform()
            Dim src As New FVIL.Data.CFviImage()
            Dim dst As New FVIL.Data.CFviImage()

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

            ' 3) 処理対象画像の有効性検査.
            Dim valid As Integer = FVIL.Filter.CFviDistanceTransform.CheckValidity(src)
            If valid <> FVIL.ErrorCode._SUCCESS Then
                Throw New FVIL.CFviException(valid, "FVIL.Filter.CFviDistanceTransform.CheckValidity")
            End If

            ' 4) 画像処理準備 (共通)
            parser.SrcImages(0) = src
            parser.DstImages(0) = dst
            If Not parser.IsValid() Then
                ' 有効性検査.
                parser.Validate()
            End If
            ' 有効化.
            ' 5-1) パラメータ設定 (固有)
            parser.Mode = FVIL.Filter.DistanceTransformMode.CityBlock

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

            ' E) 処理結果画像の保存.
            Dim tmp As New FVIL.Data.CFviImage()

            ' --- UC8 <- US16
            tmp.SetSize(dst.HorzSize, dst.VertSize, FVIL.ImageType.UC8, dst.Channel)
            tmp.Copy(dst, 0)

            ' --- 濃度値を 16 倍する.
            Dim mul As New FVIL.Operation.CFviMulScalar()
            mul.SrcImages(0) = tmp
            mul.DstImages(0) = tmp
            mul.Value = 16
            mul.Execute()

            ' --- 保存.
            FVIL.File.[Function].SaveImageFile(Defs.ResultDir & "/Filter.DistanceTransform.png", tmp)
        End Sub
    End Class
End Namespace