پردازش تصویر(Image Proccessing)

يك Bitmap آرايه اي دو بعدي از رنگها است. اين آرايه در حافظه ذخيره مي شود و زماني كه يك تصوير در فرم يا جعبه عكس نمايش داده ميشود هر يك از مقادير رنگ به يك پيكسل در تصوير برگردانده مي شود.و البته اين زماني درست است كه اندازه ي عكس را تغيير ندهيم كه در اين صورت تصوير به حالت يك به يك برگردانده ميشود.

پردازش تصوير چيزي جز انجام عمليات محاسباتي بر روي مقادير رنگ پيكسلها نيست. برنامه پردازش تصويري كه در ادامه توضيح داده ميشود ويژگيهاي يك برنامه پردازش تصوير حرفه اي را ندارد ولي قانون اصلي آن را بيان مي كند و مي تواند نقطه آغاز براي آن باشد.

پردازش تصاوير با دوحالقه تو در تو ممكن ميشود كه به ترتيب نشانگر ريف و ستون Bitmap شما مي باشد.در حلقه ي داخلي محاسباتي روي پيكسل(row,column ( و پيكسل هاي مجاور تا شعاع مشخص انجام مي شود و نتيجه ي آن تشخيص ويژگي خاص يا تغيير رنگ پيكسل اصلي است.به اين تر تيب ممكن است هر پيكسل يك يا چند بار برسي شود.

For pxlCol As Integer = 0 To PictureBox1.Image.Height - 1

For pxlRow As Integer = 0 To PictureBox1.Image.Width - 1

’ محاسبات مربط به پردازش پيكسل جاري

’ (pxlRow, pxlCol)

Negative (معكوس كردن رنگ)

براي اين كار تمامي رنگهاي تصوير بايد به مكمل آن برگردانده شود به تصوير حاصل Negative عكس ميگويند . مكمل رنگ (r,g,b) رنگ (255-a,255-g,255-b) مي باشد بنابراين مكمل رنگ سياه (0,0,0) رنگ سفيد (255,255,255) مي شود.برنامه به شكل زير است.براي تمامي برنامه هاي زير يك جعبه عكس و دكمه دستور با نامهاي پيش فرض.در ضمن در جعبه عكس قبل از اجرا يك عكس دلخواه قرار دهيد.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim bmp As New Bitmap(PictureBox1.Image)

Dim c As Color

PictureBox1.Image = bmp

For pxlCol As Integer = 0 To PictureBox1.Image.Height - 1

For pxlRow As Integer = 0 To PictureBox1.Image.Width - 1

c = bmp.GetPixel(pxlRow, pxlCol)

bmp.SetPixel(pxlRow, pxlCol, Color.FromArgb(c.A, 255 - c.R, 255 - c.G, 255 - c.B))

End Sub

Smooth

براي كاهش جزئيات عكس به كار مي رود و لبه هاي زبر عكس را نرم ميكند. تصوير حاصله با تصوير قديم تفاوت چنداني نمي كند وبه آن شبيه است جز اينكه جزءيات آن كم ميشود.براي اين كار بايد اختلاف رنگ پيكسلهاي مجاور كاهش يابد. براي اين منظور براي هر پيكسل در اطراف آن يك مربع 3*3 را در نظر مي گيريم به طوري كه پيكسل مورد نظر در وسط باشد . سپس رنگ تمامي اين 9 پيكسل ميانگين گرفته شده ودر پيكسل وسط قرار مي گيرد.براي اين مي توان مربع 5*5 يا بيشتر را انتخاب كرد .در برنامه زير پيكسل هاي مرزي چون همه ي همسايه ها را ندارد ثابت مي گذاريم تا برنامه ساده باشد. وچون تصوير تغيير خواهد كرد براي محاسبات ديگر مشكل پيش مي آيد چون برخي از اين رنگها جديد وبرخي قديمي است پس معتبر نيست براي اين منظور يك كپي از تصوير تهيه مي كنيم تا بدون تغيير با قي بماند.

Normal

Smoothing

Sharpening

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim bmp As New Bitmap(PictureBox1.Image)

Dim temp As New Bitmap(PictureBox1.Image)

Dim c(9) As Color

Dim r, g, b As Integer

PictureBox1.Image = bmp

For pxlCol As Integer = 1 To PictureBox1.Image.Height - 2

For pxlRow As Integer = 1 To PictureBox1.Image.Width - 2

c(0) = temp.GetPixel(pxlRow, pxlCol)

c(1) = temp.GetPixel(pxlRow + 1, pxlCol)

c(2) = temp.GetPixel(pxlRow, pxlCol + 1)

c(3) = temp.GetPixel(pxlRow - 1, pxlCol)

c(4) = temp.GetPixel(pxlRow, pxlCol - 1)

c(5) = temp.GetPixel(pxlRow + 1, pxlCol + 1)

c(6) = temp.GetPixel(pxlRow - 1, pxlCol - 1)

c(7) = temp.GetPixel(pxlRow + 1, pxlCol - 1)

c(8) = temp.GetPixel(pxlRow - 1, pxlCol + 1)

r = 0 : g = 0 : b = 0

For i = 0 To 9

r = r + c(i).R

g = g + c(i).G

b = b + c(i).B

r /= 9 : g /= 9 : b /= 9

bmp.SetPixel(pxlRow, pxlCol, Color.FromArgb(255, r, g, b))

End Sub

از ديگر موارد پردازش تصوير Sharpening Images و Embossing Images است كه اولي براي افزايش جزءيات است وبرعكس برنامه بالا عمل مي كند به اين ترتيب كه براي هر پيكسل درصدي از اختلاف رنگ آن با پيكسلهاي مجاور را به رنگش اضافه مي كند به اين ترتيب فاصله رنگها افزايش مي يابد. و دومي نيز اختلاف رنگ پيكسل با همسايهايش به اضافه ي عددي ثابت را جايگزين رنگ آن ميكند.

پردازش تصویر(Image Proccessing)

مطالب مشابه :

پردازش تصوير چيست؟

آموزش پردازش تصوير

پردازش تصویر(Image Proccessing)

آموزش پردازش تصوير(1) - IMAGE PROCESSING

پردازش تصویر

آموزش پردازش تصوير(1) - IMAGE PROCESSING

پردازش تصویر