VB.NET AForge画像のグレース化

AForgeを使用して、画像簡単にグレース化する方法を記載します。

AForge.Imaging.Filters をインポートします。

　　

Grayscale クラスを使用してグレース化

Dim FilePath As String = "C:\work\imgsample01.jpg"
Dim img As System.Drawing.Image = System.Drawing.Image.FromFile(FilePath)

'グレース画像を作成するフィルターを作成する
Dim GrayFilter As Grayscale = New Grayscale(0.2125, 0.7154, 0.0721)

'グレース画像を取得する
Dim GryImage As Bitmap = GrayFilter.Apply(img)

'ピクチャーボックスに表示
PictureBox1.Image = GryImage

Grayscale クラスのパラメータは、色変換の係数で、左からR・G・Bです。

上記では、BT.709のグレースケール 赤：0.2125　緑：0.7154　青：0.0721　に設定しています。

BT.601 の場合は、赤：0.299　緑：0.587　青：0.114　などあります。