ぷろぐらむノート

Accordを使用して、画像を回転・反転・拡大縮する方法を記載します。

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

 

画像を回転する

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

'画像を４５度回転させる
Dim rotateFilter As RotateBilinear = New RotateBilinear(45.0, True)
Dim rotateImage As Bitmap = rotateFilter.Apply(img)
PictureBox1.Image = rotateImage

 

画像を反転する

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

'画像をY軸で反転させる
Dim mirrorFilter As Mirror = New Mirror(False, True)
Dim mirrorImage As Bitmap = mirrorFilter.Apply(img)
PictureBox1.Image = mirrorImage

 

画像の拡大縮小（サイズ変更）する

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

'画像のサイズを変更する
Dim rsizeFilter As ResizeBilinear = New ResizeBilinear(300, 400)
Dim rsizeImage As Bitmap = rsizeFilter.Apply(img)
PictureBox1.Image = rsizeImage

 

　

※AccordのFiltersは、AForgeのFiltersと同じなので、詳しくはAForgeを見て下さい。

 

Accordを使用して、画像をグレース化および２値化する方法を記載します。

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

 

グレース化する

Dim FilePath As String = "C:\work\Resources\lena_color.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 GrayImage As Bitmap = GrayFilter.Apply(img)

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

 

２値化する

Dim FilePath As String = "C:\work\Resources\lena_color.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 GrayImage As Bitmap = GrayFilter.Apply(img)
 
'二値化処理
Dim thresFilter As Threshold = New Threshold(100)
Dim thresImage As Bitmap = thresFilter.Apply(GrayImage)
 
PictureBox1.Image = thresImage

　　

 

※AccordのFiltersは、AForgeのFiltersと同じなので、詳しくはAForgeを見て下さい。