Back to Top

プログラムの覚書

Category: VB.NET

VB.NET

VB.NET AForge 画像のHSL彩度調整

AForgeを使用して、画像のHSL色空間で彩度値を調整するフィルタの使用方法を記載します。

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

SaturationCorrectionクラスを使用して彩度調整する

彩度調整は、HSL色空間で、ピクセルの彩度値を調整します。

彩度値は指定された割合で増加・減少します。

Dim FilePath As String = "C:\work\imgsample01.jpg"
Dim img As System.Drawing.Image = System.Drawing.Image.FromFile(FilePath)
 
'HSL色空間での彩度調整
Dim scFilter As SaturationCorrection = New SaturationCorrection(-0.3)
Dim scImage As Bitmap = scFilter.Apply(img)
 
'ピクチャーボックスに表示
PictureBox1.Image = scImage

  

 

Posted in AForge | Leave a reply

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 などあります。

 

Posted in AForge | Leave a reply