Buenas tardes.
Sé que habéis llegado hasta aquí pensando en detectar otro tipo de “bordes”, pero esos que pensáis no hace falta detectarlos de ninguna manera ya que se dejan ver por si solos.
Hoy os voy a hablar de otro tipo de “bordes”. El título podría ser “detección de bordes” o “detección de contornos”.
Evidentemente hay miles de herramientas con miles de filtros que realizan ésta tarea muchísimo mejor de lo que yo lo voy a hacer aquí, pero ya sabéis que ésto trata de “lo entendí, y fui capaz de hacerlo por mí mismo, que sabe mucho mejor…” Al final del artículo tenéis tanto el código fuente como el link para descargar el ejecutable.
Por trabajo, me tocó investigar sobre detección de contornos en una imagen para ver cómo se podría realizar un reconocimiento de caracteres o cosas similares, pero autónomamente. Es decir, sin depender de un software de tercero con el que aplicar los filtros y tratar las imágenes, si no desarrollar un software que aplicase los filtros necesarios y extrajese la información necesaria de la imagen por si sólo.
Buscando información en Internet, encontraréis que si filtros laplacianos, que si matriz de Sobel vertical, matriz de Sobel horizontal… y unas explicaciones con fórmulas matemáticas, gráficos y demás parafernalia que al final no es tan complicada de entender.
Para mis pruebas yo me decidí por la matriz de Sobel. Lo que hace básicamente es tener en cuenta los 8 píxeles que rodean al píxel que estamos analizando en cada momento para determinar un “gradiente” y, dependiendo del umbral que le hayamos marcado, decidir si lo marca como “contorno” o no. Al final, lo que tendremos será una imágen en la que tendremos píxeles a blanco y píxeles a negro donde esté el contorno o borde y de la que eliminaremos el resto de la información.
Dependiendo del “umbral” que marquemos, la imagen tendrá unos contornos finos y definidos o gruesos y más difuminados. El resultado final dependerá de dicho umbral que decidamos aplicar.
He realizado una aplicación en visual basic (visual studio 2010) para demostrar el funcionamiento de dicha matriz.
El funcionamiento es sencillo:
- Con el botón “abrir imagen” seleccionamos la imagen de la que deseamos extraer los contornos.
- Seleccionamos un umbral con el trackbar (entre 0 y 255 que son las intensidades que podemos encontrar para un pixel).
- Por último pulsamos sobre “aplicar Sobel” y veremos aparecer el resultado en la ventana adjunta.
- Podremos guardar la imagen resultante pulsando sobre “Guardar”.
Aquí os presento la diferencia entre aplicar un umbral bajo o uno alto a una matrícula, por ejemplo.
Umbral Bajo:
Umbral Alto:
Como se puede apreciar, con un umbral alto se obtienen unos contornos muy claros y definidos (también se debe al alto contraste entre los caracteres de la matrícula y el fondo).
Os dejo otro ejemplo más aplicado sobre la imagen de un coche.
Os dejo el código fuente del programa para que veáis lo sencillo que puede ser crear nuestro propio filtro detector de contornos o bordes.
Aquí el enlace al ejecutable.
Saludos y hasta la próxima.
Imports System.drawing Public Class Form1 Dim contador Dim horizontal() Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click OpenFileDialog1.ShowDialog() If OpenFileDialog1.FileName <> "" Then PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName) ListBox1.Items.Clear() End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ListBox1.Items.Clear() Dim vectorx(,) = {{1, 0, -1}, {2, 0, -2}, {1, 0, -1}} Dim vectory(,) = {{1, 2, 1}, {0, 0, 0}, {-1, -2, -1}} Dim img1 As Bitmap img1 = New Bitmap(PictureBox1.Image) Dim img2 As New Bitmap(img1.Width, img1.Height, Imaging.PixelFormat.Format32bppArgb) ReDim horizontal(img2.Width - 1) For i As Integer = 0 To UBound(horizontal) - 1 horizontal(i) = 0 Next For y As Integer = 0 To img1.Height - 1 contador = 0 For x As Integer = 0 To img1.Width - 1 Dim gradX As Single = 0 Dim gradY As Single = 0 Dim grad As Single = 0 If x = 0 Or y = 0 Or x = img1.Width - 1 Or y = img1.Height - 1 Then grad = 0 Else For i As Integer = -1 To 1 For j As Integer = -1 To 1 Dim p As Color = img1.GetPixel(x + i, y + j) Dim intensity As Single = 0.333F * (CInt(p.R) + p.G + p.B) gradX += intensity * vectorx(i + 1, j + 1) gradY += intensity * vectory(i + 1, j + 1) Next Next grad = (Math.Abs(gradX) + Math.Abs(gradY)) End If grad = Math.Max(0, grad) grad = Math.Min(255, grad) If grad >= TrackBar1.Value Then img2.SetPixel(x, y, Color.Black) contador += 1 horizontal(x) = horizontal(x) + 1 End If Next PictureBox2.Image = img2 PictureBox2.Refresh() ListBox1.Items.Add(contador) Next End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click SaveFileDialog1.ShowDialog() If SaveFileDialog1.FileName <> "" Then PictureBox2.Image.Save(SaveFileDialog1.FileName) End If End Sub Private Sub Form1_Load(sender As Object, e As System.EventArgs) Handles Me.Load TrackBar1.Value = 122 End Sub End Class