Emboss Laplacian
This is an image processing algorithm in which in which each pixel of an image is replaced either by a highlight or a shadow, depending on light/dark boundaries on the original image.
Private Class ConvolutionMatrix
Public Sub New()
Pixel = 1
Factor = 1
End Sub
Public Sub Apply(Val As Integer)
TopLeft = Val
TopMid = Val
TopRight = Val
MidLeft = Val
MidRight = Val
BottomLeft = Val
BottomMid = Val
BottomRight = Val
Pixel = Val
End Sub
Public Property TopLeft() As Integer
Get
Return m_TopLeft
End Get
Set(value As Integer)
m_TopLeft = value
End Set
End Property
Private m_TopLeft As Integer
Public Property TopMid() As Integer
Get
Return m_TopMid
End Get
Set(value As Integer)
m_TopMid = value
End Set
End Property
Private m_TopMid As Integer
Public Property TopRight() As Integer
Get
Return m_TopRight
End Get
Set(value As Integer)
m_TopRight = value
End Set
End Property
Private m_TopRight As Integer
Public Property MidLeft() As Integer
Get
Return m_MidLeft
End Get
Set(value As Integer)
m_MidLeft = value
End Set
End Property
Private m_MidLeft As Integer
Public Property MidRight() As Integer
Get
Return m_MidRight
End Get
Set(value As Integer)
m_MidRight = value
End Set
End Property
Private m_MidRight As Integer
Public Property BottomLeft() As Integer
Get
Return m_BottomLeft
End Get
Set(value As Integer)
m_BottomLeft = value
End Set
End Property
Private m_BottomLeft As Integer
Public Property BottomMid() As Integer
Get
Return m_BottomMid
End Get
Set(value As Integer)
m_BottomMid = value
End Set
End Property
Private m_BottomMid As Integer
Public Property BottomRight() As Integer
Get
Return m_BottomRight
End Get
Set(value As Integer)
m_BottomRight = value
End Set
End Property
Private m_BottomRight As Integer
Public Property Pixel() As Integer
Get
Return m_Pixel
End Get
Set(value As Integer)
m_Pixel = value
End Set
End Property
Private m_Pixel As Integer
Public Property Factor() As Integer
Get
Return m_Factor
End Get
Set(value As Integer)
m_Factor = value
End Set
End Property
Private m_Factor As Integer
Public Property Offset() As Integer
Get
Return m_Offset
End Get
Set(value As Integer)
m_Offset = value
End Set
End Property
Private m_Offset As Integer
End Class
Private Class Convolution
Public Sub Convolution3x3(ByRef bmp As Bitmap)
Dim Factor As Integer = Matrix.Factor
If Factor = 0 Then
Return
End If
Dim TopLeft As Integer = Matrix.TopLeft
Dim TopMid As Integer = Matrix.TopMid
Dim TopRight As Integer = Matrix.TopRight
Dim MidLeft As Integer = Matrix.MidLeft
Dim MidRight As Integer = Matrix.MidRight
Dim BottomLeft As Integer = Matrix.BottomLeft
Dim BottomMid As Integer = Matrix.BottomMid
Dim BottomRight As Integer = Matrix.BottomRight
Dim Pixel As Integer = Matrix.Pixel
Dim Offset As Integer = Matrix.Offset
Dim TempBmp As Bitmap = bmp.Clone()
Dim bmpData As BitmapData = bmp.LockBits(New Rectangle(0, 0, bmp.Width, bmp.Height), ImageLockMode.ReadWrite, PixelFormat.Format24bppRgb)
Dim TempBmpData As BitmapData = TempBmp.LockBits(New Rectangle(0, 0, TempBmp.Width, TempBmp.Height), ImageLockMode.[ReadOnly], PixelFormat.Format24bppRgb)
Dim ptr As IntPtr = bmpData.Scan0
Dim TempPtr As IntPtr = TempBmpData.Scan0
Dim Pix As Integer = 0
Dim Stride As Integer = bmpData.Stride
Dim DoubleStride As Integer = Stride * 2
Dim Width As Integer = bmp.Width - 2
Dim Height As Integer = bmp.Height - 2
Dim stopAddress As Integer = CInt(ptr) + bmpData.Stride * bmpData.Height
For y As Integer = 0 To Height - 1
For x As Integer = 0 To Width - 1
Pix = (((((Marshal.ReadByte(TempPtr + 2) * TopLeft) + (Marshal.ReadByte(TempPtr + 5) * TopMid) + (Marshal.ReadByte(TempPtr + 8) * TopRight)) + _
((Marshal.ReadByte(TempPtr + 2 + Stride) * MidLeft) + (Marshal.ReadByte(TempPtr + 5 + Stride) * Pixel) + (Marshal.ReadByte(TempPtr + 8 + Stride) * MidRight)) + _
((Marshal.ReadByte(TempPtr + 2 + DoubleStride) * BottomLeft) + (Marshal.ReadByte(TempPtr + 5 + DoubleStride) * BottomMid) + (Marshal.ReadByte(TempPtr + 8 + DoubleStride) * BottomRight))) \ Factor) + Offset)
If Pix < 0 Then
Pix = 0
ElseIf Pix > 255 Then
Pix = 255
End If
Marshal.WriteByte(ptr + 5 + Stride, CByte(Pix))
Pix = (((((Marshal.ReadByte(TempPtr + 1) * TopLeft) + (Marshal.ReadByte(TempPtr + 4) * TopMid) + (Marshal.ReadByte(TempPtr + 7) * TopRight)) + _
((Marshal.ReadByte(TempPtr + 1 + Stride) * MidLeft) + (Marshal.ReadByte(TempPtr + 4 + Stride) * Pixel) + (Marshal.ReadByte(TempPtr + 7 + Stride) * MidRight)) + _
((Marshal.ReadByte(TempPtr + 1 + DoubleStride) * BottomLeft) + (Marshal.ReadByte(TempPtr + 4 + DoubleStride) * BottomMid) + (Marshal.ReadByte(TempPtr + 7 + DoubleStride) * BottomRight))) \ Factor) + Offset)
If Pix < 0 Then
Pix = 0
ElseIf Pix > 255 Then
Pix = 255
End If
Marshal.WriteByte(ptr + 4 + Stride, CByte(Pix))
Pix = (((((Marshal.ReadByte(TempPtr) * TopLeft) + (Marshal.ReadByte(TempPtr + 3) * TopMid) + (Marshal.ReadByte(TempPtr + 6) * TopRight)) + _
((Marshal.ReadByte(TempPtr + Stride) * MidLeft) + (Marshal.ReadByte(TempPtr + 3 + Stride) * Pixel) + (Marshal.ReadByte(TempPtr + 6 + Stride) * MidRight)) + _
((Marshal.ReadByte(TempPtr + DoubleStride) * BottomLeft) + (Marshal.ReadByte(TempPtr + 3 + DoubleStride) * BottomMid) + (Marshal.ReadByte(TempPtr + 6 + DoubleStride) * BottomRight))) \ Factor) + Offset)
If Pix < 0 Then
Pix = 0
ElseIf Pix > 255 Then
Pix = 255
End If
Marshal.WriteByte(ptr + 3 + Stride, CByte(Pix))
ptr += 3
TempPtr += 3
Next
Next
bmp.UnlockBits(bmpData)
TempBmp.UnlockBits(TempBmpData)
End Sub
Public Property Matrix() As ConvolutionMatrix
Get
Return m_Matrix
End Get
Set(value As ConvolutionMatrix)
m_Matrix = value
End Set
End Property
Private m_Matrix As ConvolutionMatrix
End Class
Public Shared Sub ApplyEmbossLaplacian(ByRef bmp As Bitmap)
Dim m As New ConvolutionMatrix()
m.Apply(-1)
m.TopMid = 0
m.MidLeft = 0
m.MidRight = 0
m.BottomMid = 0
m.Pixel = 4
m.Offset = 127
Dim C As New Convolution()
C.Matrix = m
C.Convolution3x3(bmp)
End Sub
Example
DIm b As Bitmap = CType(Image.FromFile("rose.jpg"), Bitmap)
ApplyEmbossLaplacian(b)