VB.NET AForge RGBチャンネルの線形補正

AForgeを使用して、画像のRGBチャンネルの線形補正の方法を記載します。

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

LevelsLinearクラスを使用して画像の線形補正

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

'画像情報の取得
Dim statistics As AForge.Imaging.ImageStatistics = New AForge.Imaging.ImageStatistics(img)

Dim LevelFilter As LevelsLinear = New LevelsLinear()

'各チャンネルのコントラストを正規化して、各チャンネルから80％の範囲のみを取得する
LevelFilter.InRed = statistics.Red.GetRange(0.8)
LevelFilter.InGreen = statistics.Green.GetRange(0.8)
LevelFilter.InBlue = statistics.Blue.GetRange(0.8)

Dim levelImage As Bitmap = LevelFilter.Apply(img)

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