[SerializableAttribute]
public class CFviArbitraryKernelFilter : CFviFilter

<SerializableAttribute>
Public Class CFviArbitraryKernelFilter
	Inherits CFviFilter

//    $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 ArbitraryKernelFilter()
        {
            // 1) インスタンスの準備.
            FVIL.Filter.CFviArbitraryKernelFilter parser = new FVIL.Filter.CFviArbitraryKernelFilter();
            FVIL.Data.CFviImage src = new FVIL.Data.CFviImage();
            FVIL.Data.CFviImage dst = new FVIL.Data.CFviImage();

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

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

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

            // 5-1) パラメータ設定 (固有)
            //    Kernel=FVIL.Filter.CFviFilterKernel    
            //    FVIL.Filter.Preset.Sobel_X5_1
            //    [ 5][ 4][ 0][ -4][ -5]
            //    [ 8][10][ 0][-10][ -8]
            //    [10][20][ 0][-20][-10]
            //    [ 8][10][ 0][-10][ -8]
            //    [ 5][ 4][ 0][ -4][ -5]
#if false
            parser.Kernel.Preset(FVIL.Filter.Preset.Sobel_X5_1);
#else
            parser.Kernel.Resize(5,5);
            FVIL.Filter.CFviFilterKernel k = parser.Kernel;
            k[0, 0] = 5; k[0, 1] = 4; k[0, 2] = 0; k[0, 3] = -4; k[0, 4] = -5;
            k[1, 0] = 8; k[1, 1] = 10; k[1, 2] = 0; k[1, 3] = -10; k[1, 4] = -8;
            k[2, 0] = 10; k[2, 1] = 20; k[2, 2] = 0; k[2, 3] = -20; k[2, 4] = -10;
            k[3, 0] = 8; k[3, 1] = 10; k[3, 2] = 0; k[3, 3] = -10; k[3, 4] = -8;
            k[4, 0] = 5; k[4, 1] = 4; k[4, 2] = 0; k[4, 3] = -4; k[4, 4] = -5;
            k.Denom = 10;
#endif

            // 5-2) パラメータ設定 (継承)
            parser.BorderMode = FVIL.BorderMode.None;

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

            // E) 処理結果画像の保存.
            FVIL.File.Function.SaveImageFile(Defs.ResultDir + "/Filter.ArbitraryKernelFilter.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 Filter
        ' ============================================================
        ''' <summary>
        ''' 任意カーネルフィルタクラス＋フィルタカーネル構造クラス.
        ''' </summary>
        <FvPluginExecute> _
        Public Sub ArbitraryKernelFilter()
            ' 1) インスタンスの準備.
            Dim parser As New FVIL.Filter.CFviArbitraryKernelFilter()
            Dim src As New FVIL.Data.CFviImage()
            Dim dst As New FVIL.Data.CFviImage()

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

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

            ' 4) 画像処理準備 (共通)
            parser.SrcImages(0) = src
            parser.DstImages(0) = dst
            If Not parser.IsValid() Then
                ' 有効性検査.
                parser.Validate()
            End If
            ' 有効化.
            ' 5-1) パラメータ設定 (固有)
            '    Kernel=FVIL.Filter.CFviFilterKernel    
            '    FVIL.Filter.Preset.Sobel_X5_1
            '    [ 5][ 4][ 0][ -4][ -5]
            '    [ 8][10][ 0][-10][ -8]
            '    [10][20][ 0][-20][-10]
            '    [ 8][10][ 0][-10][ -8]
            '    [ 5][ 4][ 0][ -4][ -5]
            #If False Then
            parser.Kernel.Preset(FVIL.Filter.Preset.Sobel_X5_1)
            #Else
            parser.Kernel.Resize(5, 5)
            Dim k As FVIL.Filter.CFviFilterKernel = parser.Kernel
            k(0, 0) = 5
            k(0, 1) = 4
            k(0, 2) = 0
            k(0, 3) = -4
            k(0, 4) = -5
            k(1, 0) = 8
            k(1, 1) = 10
            k(1, 2) = 0
            k(1, 3) = -10
            k(1, 4) = -8
            k(2, 0) = 10
            k(2, 1) = 20
            k(2, 2) = 0
            k(2, 3) = -20
            k(2, 4) = -10
            k(3, 0) = 8
            k(3, 1) = 10
            k(3, 2) = 0
            k(3, 3) = -10
            k(3, 4) = -8
            k(4, 0) = 5
            k(4, 1) = 4
            k(4, 2) = 0
            k(4, 3) = -4
            k(4, 4) = -5
            k.Denom = 10
            #End If

            ' 5-2) パラメータ設定 (継承)
            parser.BorderMode = FVIL.BorderMode.None

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

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