Click here to Skip to main content
15,891,529 members
Articles / Programming Languages / Visual Basic
Article

ColorMatrix Basics - Simple Image Color Adjustment

Rate me:
Please Sign up or sign in to vote.
4.75/5 (50 votes)
2 Apr 2003CPOL3 min read 474.6K   95   68
A beginners guide to using the GDI+ ColorMatrix.

Color Image Grayscale Image Blue Image

Introduction

This article discusses color operations on digital images, using the new ColorMatrix class provided by GDI+. The ColorMatrix is a welcome addition to the GDI library, especially with the increase in demand of digital imaging applications, as more and more consumer products are made available. This class, as well as many other new GDI classes, provide more control to the developer and reduce dependence on 3rd party applications such as LEAD tools, and others. Some basic knowledge of matrix operations (multiplication, addition, etc), the RGBA colorspace and GDI+ is assumed.

Background

ColorMatrix operations are performed in the RGBA colorspace (red, green, blue, alpha). A ColorMatrix consists of a 5x5 matrix, with color values normalized to 1 for full intensity (255 -> 1.0). You might expect the matrix to be 4x4 ( [R, G, B, A] ), which would be sufficient if we only needed to perform linear transformations (multiplication: scaling, rotation, etc). However, one of the most frequent color manipulations, color adjustment, requires adding color values. This is a non-linear operation, referred to as a translation. Adding a 5th element to the color vector ( [R, G, B, A, w] ) combines these two operations, linear and non-linear, into a single operation called an affine transformation. The 5th element of the color vector is simply a dummy element, always with a value of 1, which only serves to allow a translation (addition) of the color vector.

The example below scales the color vector [255, 128, 102, 255] by .5 and then adds a value of 26 to the R, G and B components, leaving the A component at full intensity. Remember that the component values are normalized, with full intensity, 255, equal to 1.0 (values have been rounded to the nearest tenth). Also notice the addition of the 5th element to the color vector, which is simply ignored in the resultant color vector.

Image 4

This takes the color Image 5 and transforms it to Image 6.

Now that we've covered the basic principle of the ColorMatrix and it's operations on color vectors, we can start exploring some practical uses.

Applying the code

Applying a ColorMatrix to an image is quite simple. You must first associate a ColorMatrix object with an ImageAttributes object. Then you simply pass the ImageAttributes object as a parameter to the Graphics.DrawImage method.

Color adjustment is one of the more common color operations applied to digital images. The code to do this might look as follows:

VB
Public Function translate(ByVal img As Image, ByVal red As Single, _
                       ByVal green As Single, ByVal blue As Single, _
                       Optional ByVal alpha As Single = 0) As Boolean

    
    Dim sr, sg, sb, sa As Single
    
    ' noramlize the color components to 1
    sr = red / 255
    sg = green / 255
    sb = blue / 255
    sa = alpha / 255
 
    ' create the color matrix
    dim New ColorMatrix(New Single()() _
                       {New Single() {1, 0, 0, 0, 0}, _
                        New Single() {0, 1, 0, 0, 0}, _
                        New Single() {0, 0, 1, 0, 0}, _
                        New Single() {0, 0, 0, 1, 0}, _
                        New Single() {sr, sg, sb, sa, 1}})

    ' apply the matrix to the image
    Return draw_adjusted_image(img, cm)

End Function
        
                               
Private Function draw_adjusted_image(ByVal img As Image, _
                ByVal cm As ColorMatrix) As Boolean


    Try
        Dim bmp As New Bitmap(img) ' create a copy of the source image 
        Dim imgattr As New ImageAttributes()
        Dim rc As New Rectangle(0, 0, img.Width, img.Height)
        Dim g As Graphics = Graphics.FromImage(img)

        ' associate the ColorMatrix object with an ImageAttributes object
        imgattr.SetColorMatrix(cm) 

        ' draw the copy of the source image back over the original image, 
        'applying the ColorMatrix
        g.DrawImage(bmp, rc, 0, 0, img.Width, img.Height, _
                               GraphicsUnit.Pixel, imgattr)

        g.Dispose()

        Return True

    Catch
        Return False
    End Try

End Function

Conversion to grayscale is another common conversion. Grayscale values are determined by calculating the luminosity of a color, which is a weighted average of the R, G and B color components. The average is weighted according to the sensitivity of the human eye to each color component. The weights used here are as given by the NTSC (North America Television Standards Committee) and are widely accepted.

VB
Public Function grayscale(ByVal img As Image) As Boolean


    Dim cm As ColorMatrix = New ColorMatrix(New Single()() _
                           {New Single() {0.299, 0.299, 0.299, 0, 0}, _
                            New Single() {0.587, 0.587, 0.587, 0, 0}, _
                            New Single() {0.114, 0.114, 0.114, 0, 0}, _
                            New Single() {0, 0, 0, 1, 0}, _
                            New Single() {0, 0, 0, 0, 1}})


    Return draw_adjusted_image(img, cm)
    
End Function

The code below creates a digital negative:

VB
Public Function negative(ByVal img As Image) As Boolean

    Dim cm As ColorMatrix = New ColorMatrix(New Single()() _
                           {New Single() {-1, 0, 0, 0, 0}, _
                            New Single() {0, -1, 0, 0, 0}, _
                            New Single() {0, 0, -1, 0, 0}, _
                            New Single() {0, 0, 0, 1, 0}, _
                            New Single() {0, 0, 0, 0, 1}})

    Return draw_adjusted_image(img, cm)

End Function

Color channel separations, alpha transparency adjustment, image toning (Sepia, etc) are just a few more common operations that can be easily performed with a ColorMatrix.

License

This article, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)


Written By
Architect
United States United States
Michael has been developing software for about 19 years primarily in C#, C/C++, Fortran, and Visual Basic. His previous experience includes Internet data services (communication protocols, data storage and GIS) for the mortgage industry, oil platform instrumentation and explosives simulation and testing. He holds a B.S. in astrophysics and computer science. He is currently working for Global Software in Oklahoma City developing law enforcement and emergency services related software.

Comments and Discussions

 
Questionabaout grayscale Pin
aimaniez10-Mar-07 13:22
aimaniez10-Mar-07 13:22 
GeneralUnderstanding The Matrix Pin
JonFrost25-Nov-06 23:32
JonFrost25-Nov-06 23:32 
QuestionColoring a grayscale image Pin
kspaun28-Sep-06 2:17
kspaun28-Sep-06 2:17 
AnswerRe: Coloring a grayscale image Pin
thefellow3j3-Feb-07 20:32
thefellow3j3-Feb-07 20:32 
Questionhow to do sharpness and blur [modified] Pin
singam17-Jul-06 3:35
singam17-Jul-06 3:35 
AnswerRe: how to do sharpness and blur [modified] Pin
wlh21cn19-Jul-06 23:44
wlh21cn19-Jul-06 23:44 
GeneralStrange bug while printing Pin
Pugwash200410-May-06 0:23
Pugwash200410-May-06 0:23 
GeneralComplete Grayscale Class Pin
Anonymous3-May-05 10:49
Anonymous3-May-05 10:49 
This class can be used to convert bitmaps (as well as color objects) to grayscale using several semi-standard formulas.

I had to remove the Xml documentation since it was interfering with the message format, but it should be fairly straightforward to figure out.

<code>
Dim oGray As New OpenBook.Graphics.Colors.Grayscale
_newImage = oGray.ConvertBitmapToGrayscale(_oldImage, OpenBook.Graphics.Colors.Grayscale.Formula.CCIRRec709)
</code>

You will have to replace [OpenBook] with something else. It's simply the way I've organized the namespaces for myself.

Thanks to the original author of this tutorial on the help with ColorMatrix. It makes an enormous performance difference (even if I wish it was a bit quicker still).

Kevin Townsend

<code>
Imports System.Drawing
Imports System.Drawing.Imaging

Namespace Graphics.Colors

Public Class Grayscale

Public Enum Formula
SimpleAverage = 0 ' Least accurate
WeightAverage = 1
NtscPal = 2 ' CCIR Recommendation 601-1 (Used in Ntsc/Pal Standards)
CCIRRec709 = 3 ' CCIR Recommendation 709
End Enum

Public Function ConvertRgbToGrayscale(ByVal sourceColor As Drawing.Color, Optional ByVal formula As Formula = Formula.CCIRRec709)
Dim newColor As New Drawing.Color
Dim a1, r1, g1, b1 As Int16
Dim a2, r2, g2, b2 As Int16

' Get source color ARGB attributes
a1 = Convert.ToInt16(sourceColor.A)
r1 = Convert.ToInt16(sourceColor.R)
g1 = Convert.ToInt16(sourceColor.G)
b1 = Convert.ToInt16(sourceColor.B)

' Calculate changes depending on foruma selected
Select Case formula
Case formula.SimpleAverage
a2 = a1
r2 = Convert.ToInt16((r1 + g1 + b1) / 3)
g2 = Convert.ToInt16((r1 + g1 + b1) / 3)
b2 = Convert.ToInt16((r1 + g1 + b1) / 3)
Case formula.WeightAverage
a2 = a1
r2 = Convert.ToInt16((3 * r1) + (4 * b1) + (2 * g1) / 9)
g2 = Convert.ToInt16((3 * r1) + (4 * b1) + (2 * g1) / 9)
b2 = Convert.ToInt16((3 * r1) + (4 * b1) + (2 * g1) / 9)
Case formula.NtscPal
a2 = a1
r2 = Convert.ToInt16((0.299 * r1) + (0.587 * g1) + (0.114 * b1))
g2 = Convert.ToInt16((0.299 * r1) + (0.587 * g1) + (0.114 * b1))
b2 = Convert.ToInt16((0.299 * r1) + (0.587 * g1) + (0.114 * b1))
Case formula.CCIRRec709
a2 = a1
r2 = Convert.ToInt16((0.2125 * r1) + (0.7154 * g1) + (0.0721 * b1))
g2 = Convert.ToInt16((0.2125 * r1) + (0.7154 * g1) + (0.0721 * b1))
b2 = Convert.ToInt16((0.2125 * r1) + (0.7154 * g1) + (0.0721 * b1))
Case Else
' Use CCIR Rec 709 as default
a2 = a1
r2 = Convert.ToInt16((0.2125 * r1) + (0.7154 * g1) + (0.0721 * b1))
g2 = Convert.ToInt16((0.2125 * r1) + (0.7154 * g1) + (0.0721 * b1))
b2 = Convert.ToInt16((0.2125 * r1) + (0.7154 * g1) + (0.0721 * b1))
End Select

' Check limits
If r2 > 255 Then r2 = 255
If g2 > 255 Then g2 = 255
If b2 > 255 Then b2 = 255
If r2 < 0 Then r2 = 0
If g2 < 0 Then g2 = 0
If b2 < 0 Then b2 = 0

' Set newColor
newColor = Drawing.Color.FromArgb(a2, r2, g2, b2)

' Return
Return newColor
End Function

Public Function ConvertBitmapToGrayscale(ByVal sourceImage As Bitmap, Optional ByVal formula As Formula = Formula.CCIRRec709) As Bitmap
Dim output As Bitmap = New Bitmap(sourceImage.Width, sourceImage.Height)
Dim rect As New Rectangle(0, 0, sourceImage.Width, sourceImage.Height)
Dim cm As ColorMatrix
Dim ia As New ImageAttributes
' Assign sourceBitmap to a new graphics object
Dim g As Drawing.Graphics = Drawing.Graphics.FromImage(output)

' Apply selected grayscale formula
Select Case formula
Case Colors.Grayscale.Formula.CCIRRec709
cm = New ColorMatrix(New Single()() _
{New Single() {0.213, 0.213, 0.213, 0, 0}, _
New Single() {0.715, 0.715, 0.715, 0, 0}, _
New Single() {0.072, 0.072, 0.072, 0, 0}, _
New Single() {0, 0, 0, 1, 0}, _
New Single() {0, 0, 0, 0, 1}})
Case Colors.Grayscale.Formula.NtscPal
cm = New ColorMatrix(New Single()() _
{New Single() {0.299, 0.299, 0.299, 0, 0}, _
New Single() {0.587, 0.587, 0.587, 0, 0}, _
New Single() {0.114, 0.114, 0.114, 0, 0}, _
New Single() {0, 0, 0, 1, 0}, _
New Single() {0, 0, 0, 0, 1}})
Case Colors.Grayscale.Formula.SimpleAverage
cm = New ColorMatrix(New Single()() _
{New Single() {0.333, 0.333, 0.333, 0, 0}, _
New Single() {0.333, 0.333, 0.333, 0, 0}, _
New Single() {0.333, 0.333, 0.333, 0, 0}, _
New Single() {0, 0, 0, 1, 0}, _
New Single() {0, 0, 0, 0, 1}})
Case Colors.Grayscale.Formula.WeightAverage
cm = New ColorMatrix(New Single()() _
{New Single() {0.333, 0.333, 0.333, 0, 0}, _
New Single() {0.444, 0.444, 0.444, 0, 0}, _
New Single() {0.222, 0.222, 0.222, 0, 0}, _
New Single() {0, 0, 0, 1, 0}, _
New Single() {0, 0, 0, 0, 1}})
Case Else
' Use CCIR Rec. 709 as catch all
cm = New ColorMatrix(New Single()() _
{New Single() {0.213, 0.213, 0.213, 0, 0}, _
New Single() {0.715, 0.715, 0.715, 0, 0}, _
New Single() {0.072, 0.072, 0.072, 0, 0}, _
New Single() {0, 0, 0, 1, 0}, _
New Single() {0, 0, 0, 0, 1}})
End Select

' Set color matrix
ia.SetColorMatrix(cm)

' Render new bitmap image
g.DrawImage(sourceImage, rect, 0, 0, sourceImage.Width, sourceImage.Height, GraphicsUnit.Pixel, ia)

' Return converted image
Return output
End Function

End Class

End Namespace

</code>
QuestionHow about 256-colored pictures Pin
offslinker16-Apr-05 21:41
offslinker16-Apr-05 21:41 
AnswerRe: How about 256-colored pictures [modified] Pin
Luca Crisi, MCP23-May-08 2:30
Luca Crisi, MCP23-May-08 2:30 
GeneralHue, Saturation and Brightness... Pin
AndrewVos1-Apr-05 1:30
AndrewVos1-Apr-05 1:30 
GeneralRe: Hue, Saturation and Brightness... Pin
headspin30-Jan-06 8:45
headspin30-Jan-06 8:45 
QuestionRe: Hue, Saturation and Brightness... Pin
codepunk9-Feb-06 12:29
codepunk9-Feb-06 12:29 
AnswerRe: Hue, Saturation and Brightness... Pin
headspin9-Feb-06 14:11
headspin9-Feb-06 14:11 
GeneralRe: Hue, Saturation and Brightness... Pin
TENware17-Mar-09 6:29
TENware17-Mar-09 6:29 
GeneralTranslucent Example Pin
Anonymous19-Mar-05 2:20
Anonymous19-Mar-05 2:20 
GeneralWhy doi get an error Pin
BigBertB4-Mar-05 1:47
BigBertB4-Mar-05 1:47 
GeneralRe: Why do i get an error Pin
Olaf.Rabbachin19-Mar-05 7:03
Olaf.Rabbachin19-Mar-05 7:03 
GeneralRe: Why do i get an error Pin
speqter19-Jul-07 20:29
speqter19-Jul-07 20:29 
GeneralWow! Pin
CQüeb14-Dec-04 9:25
CQüeb14-Dec-04 9:25 
GeneralYeah, fine... Pin
Anonymous15-Jun-04 21:31
Anonymous15-Jun-04 21:31 
GeneralNegative matrix correction Pin
Konstantin Vasserman20-Nov-03 16:39
Konstantin Vasserman20-Nov-03 16:39 
GeneralRe: Negative matrix correction Pin
Anthony Queen24-May-06 5:37
Anthony Queen24-May-06 5:37 
GeneralRe: Negative matrix correction Pin
MikeDC18-Sep-06 19:04
MikeDC18-Sep-06 19:04 
GeneralSaving the new changed image Pin
Qaiser_Awan21-Oct-03 0:03
Qaiser_Awan21-Oct-03 0:03 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.