Back to Top

プログラムの覚書

Category: AForge

VB.NET AForge 画像のセピア化

AForgeを使用して、画像をセピア調(古い茶色の写真)にする方法を記載します。

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

Sepia クラスを使用してセピア調にする

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

'セピア調に変換
Dim sepiaFilter As Sepia = New Sepia()
Dim sepiaImage As Bitmap = sepiaFilter.Apply(img)

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

  

 

Posted in AForge | Leave a reply

VB.NET AForgeでYCbCrを使用

AForgeを使用して、画像をYCbCrにて変換する方法を記載します。

JPEGで保存する色は、RGBでなくYCbCrです。

RGBは Red(赤)、Green(緑)、Blue(青)で色を表現しますが、

YCbCr は Y (輝度)、Cb(青の色差)、Cr(赤の色差)で色を表現します。

RGB → YCbCr

  • Y = 0.29900×R + 0.58700×G + 0.11400×B
  • Cb = −0.16874×R − 0.33126×G + 0.50000×B
  • Cr = 0.50000×R − 0.41869×G − 0.081×B

YCbCr → RGB

  • R = Y + 1.40200×Cr
  • G = Y − 0.34414×Cb − 0.71414×Cr
  • B = Y + 1.77200×Cb
      

YCbCrLinear クラスにてYCbCrによる変換

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

'YCbCrフィルタリング
Dim ycbcrFilter As YCbCrLinear = New YCbCrLinear()
ycbcrFilter.InY = New AForge.Range(-0.276, 0.163)
ycbcrFilter.InCb = New AForge.Range(-0.276, 0.163)
ycbcrFilter.InCr = New AForge.Range(-0.202, 0.5)
Dim ycbcrImage As Bitmap = ycbcrFilter.Apply(img)

PictureBox1.Image = ycbcrImage

  

 

Posted in AForge | Leave a reply