如何进行RGB和HSL之间的转换--GDI+
2012-06-06 10:13
302 查看
有人在MSDN Forum上问到类似问题http://social.msdn.microsoft.com/Forums/en-US/csharpgeneral/thread/a81916e9-52e0-4354-8143-c236ff13dc1a
，我找到一篇极好的解决方案 http://www.bobpowell.net/RGBHSB.htm
The classic RGB colour space used in GDI+ is excellent for choosing or defining a specific colour as a mixture of primary colour and intensity values but what happens if you want to take a particular colour and make it a bit lighter or a bit darker or change
its saturation. For this you need to be able to use the HSL (Hue, Saturation and Luminance) colour space.
The .NET framework actually provides RGB-HSL conversion but for some reason, the conversion of HSL to RGB is not provided as a public method. The Color class has three methods, GetHue, GetSaturation and GetBrightness that provide the basic components of
the HSL (or HSB) colour space. The conversion of HSL to RGB is a well known algorithm that you can find in numerous places on the web. Oddly enough, down in the bowels of the ControlPaint class, RGB to HSL is employed when you use the ControlPaint.Light(�)
or ControlPaint.DarkDark(�) methods but also unfortunately the scaling of the Light, Dark and DarkDark settings are, to say the least, brutal and offer no finesse.
A specific use for RGB-HSL conversions I have used in the past, is to provide colours that enhance objects drawn in a psuedo-3D or isometric style. In such a drawing, a cube having a specific colour, say red, may be shown with a lighter red on top to simulate
a shine on the object and a darker colour on one side to simulate a shadow. Figure1 shows two such cubes with and without shading yet still using red as the basic colour.
Figure 1
In addition to making a chosen colour lighter or darker, you may wish to choose a range of colour values that all have a similar brightness. Not an easy task where RGB is concerned but trivial using the HSL colour space. Similarly, you may wish to choose
random colours but ensure that they have a uniform level of saturation to ensure bright, non-pastel colours for ease of visibility. Once again, a task eminently possible if using HSL colour definitions.
If you're interested in further reading on the differences between colour spaces,
this link will take you to an excellent article on the Apple site which explains them nicely.
To accompany this FAQ entry I have provided the source code shown in listing 1. It provides an RGB-HSL and HSL-RGB conversion plus a few methods that assist in setting or modifying a brightness.
Listing 1:
C#.
/* This tool is part of the xRay Toolkit and is provided free of charge by Bob Powell.
* This code is not guaranteed to be free from defects or fit for merchantability in any way.
* By using this tool in your own programs you agree to hold Robert W. Powell free from all
* damages direct or incidental that arise from such use.
* You may use this code free of charge in your own projects on condition that you place the
* following paragraph (enclosed in quotes below) in your applications help or about dialog.
* "Portions of this code provided by Bob Powell. http://www.bobpowell.net"
*/
using System;
using System.Drawing;
namespace xRay.Toolkit.Utilities
{
public class RGBHSL
{
public class HSL
{
public HSL()
{
_h=0;
_s=0;
_l=0;
}
double _h;
double _s;
double _l;
public double H
{
get{return _h;}
set
{
_h=value;
_h=_h>1 ? 1 : _h<0 ? 0 : _h;
}
}
public double S
{
get{return _s;}
set
{
_s=value;
_s=_s>1 ? 1 : _s<0 ? 0 : _s;
}
}
public double L
{
get{return _l;}
set
{
_l=value;
_l=_l>1 ? 1 : _l<0 ? 0 : _l;
}
}
}
public RGBHSL()
{
}
///<summary>
/// Sets the absolute brightness of a colour
///</summary>
///<param name="c">Original colour</param>
///<param name="brightness">The luminance level to impose</param>
///<returns>an adjusted colour</returns>
public static Color SetBrightness(Color c,
double brightness)
{
HSL hsl = RGB_to_HSL(c);
hsl.L=brightness;
return HSL_to_RGB(hsl);
}
///<summary>
/// Modifies an existing brightness level
///</summary>
///<remarks>
/// To reduce brightness use a number smaller than 1. To increase brightness use a number larger tnan 1
///</remarks>
///<param name="c">The original colour</param>
///<param name="brightness">The luminance delta</param>
///<returns>An adjusted colour</returns>
public static Color ModifyBrightness(Color c,
double brightness)
{
HSL hsl = RGB_to_HSL(c);
hsl.L*=brightness;
return HSL_to_RGB(hsl);
}
///<summary>
/// Sets the absolute saturation level
///</summary>
///<remarks>Accepted values 0-1</remarks>
///<param name="c">An original colour</param>
///<param name="Saturation">The saturation value to impose</param>
///<returns>An adjusted colour</returns>
public static Color SetSaturation(Color c,
double Saturation)
{
HSL hsl = RGB_to_HSL(c);
hsl.S=Saturation;
return HSL_to_RGB(hsl);
}
///<summary>
/// Modifies an existing Saturation level
///</summary>
///<remarks>
/// To reduce Saturation use a number smaller than 1. To increase Saturation use a number larger tnan 1
///</remarks>
///<param name="c">The original colour</param>
///<param name="Saturation">The saturation delta</param>
///<returns>An adjusted colour</returns>
public static Color ModifySaturation(Color c,
double Saturation)
{
HSL hsl = RGB_to_HSL(c);
hsl.S*=Saturation;
return HSL_to_RGB(hsl);
}
///<summary>
/// Sets the absolute Hue level
///</summary>
///<remarks>Accepted values 0-1</remarks>
///<param name="c">An original colour</param>
///<param name="Hue">The Hue value to impose</param>
///<returns>An adjusted colour</returns>
public static Color SetHue(Color c,
double Hue)
{
HSL hsl = RGB_to_HSL(c);
hsl.H=Hue;
return HSL_to_RGB(hsl);
}
///<summary>
/// Modifies an existing Hue level
///</summary>
///<remarks>
/// To reduce Hue use a number smaller than 1. To increase Hue use a number larger tnan 1
///</remarks>
///<param name="c">The original colour</param>
///<param name="Hue">The Hue delta</param>
///<returns>An adjusted colour</returns>
public static Color ModifyHue(Color c,
double Hue)
{
HSL hsl = RGB_to_HSL(c);
hsl.H*=Hue;
return HSL_to_RGB(hsl);
}
///<summary>
/// Converts a colour from HSL to RGB
///</summary>
///<remarks>Adapted from the algoritm in Foley and Van-Dam</remarks>
///<param name="hsl">The HSL value</param>
///<returns>A Color structure containing the equivalent RGB values</returns>
public static Color HSL_to_RGB(HSL hsl)
{
double r=0,g=0,b=0;
double temp1,temp2;
if(hsl.L==0)
{
r=g=b=0;
}
else
{
if(hsl.S==0)
{
r=g=b=hsl.L;
}
else
{
temp2 = ((hsl.L<=0.5) ? hsl.L*(1.0+hsl.S) : hsl.L+hsl.S-(hsl.L*hsl.S));
temp1 = 2.0*hsl.L-temp2;
double[] t3=new
double[]{hsl.H+1.0/3.0,hsl.H,hsl.H-1.0/3.0};
double[] clr=new
double[]{0,0,0};
for(int i=0;i<3;i++)
{
if(t3[i]<0)
t3[i]+=1.0;
if(t3[i]>1)
t3[i]-=1.0;
if(6.0*t3[i] < 1.0)
clr[i]=temp1+(temp2-temp1)*t3[i]*6.0;
else
if(2.0*t3[i] < 1.0)
clr[i]=temp2;
else
if(3.0*t3[i] < 2.0)
clr[i]=(temp1+(temp2-temp1)*((2.0/3.0)-t3[i])*6.0);
else
clr[i]=temp1;
}
r=clr[0];
g=clr[1];
b=clr[2];
}
}
return Color.FromArgb((int)(255*r),(int)(255*g),(int)(255*b));
}
//
///<summary>
/// Converts RGB to HSL
///</summary>
///<remarks>Takes advantage of whats already built in to .NET by using the Color.GetHue, Color.GetSaturation and Color.GetBrightness methods</remarks>
///<param name="c">A Color to convert</param>
///<returns>An HSL value</returns>
public static HSL RGB_to_HSL (Color c)
{
HSL hsl = new HSL();
hsl.H=c.GetHue()/360.0; // we store hue as 0-1 as opposed to 0-360
hsl.L=c.GetBrightness();
hsl.S=c.GetSaturation();
return hsl;
}
}
}
VB
' This tool is part of the xRay Toolkit and is provided free of charge by Bob Powell.
' This code is not guaranteed to be free from defects or fit for mechantability in any way.
' By using this tool in your own programs you agree to hold Robert W. Powell free from all
' damages direct or incidental that arise from such use.
' You may use this code free of charge in your own projects on condition that you place the
' following paragraph (enclosed in quotes below) in your applications help or about dialog.
' "Portions of this code provided by Bob Powell. Http://www.bobpowell.net"
Imports System
Imports System.Drawing
Namespace xRay.Toolkit.Utilities
Public Class RGBHSL
Public Class HSL
Public Sub
New()
_h = 0
_s = 0
_l = 0
End Sub
'New
Private _h As
Double
Private _s As
Double
Private _l As
Double
Public Property H()
As Double
Get
Return _h
End Get
Set
_h = value
_h = IIf(_h > 1, 1, IIf(_h < 0, 0, _h))
End Set
End Property
Public Property S()
As Double
Get
Return _s
End Get
Set
_s = value
_s = IIf(_s > 1, 1, IIf(_s < 0, 0, _s))
End Set
End Property
Public Property L()
As Double
Get
Return _l
End Get
Set
_l = value
_l = IIf(_l > 1, 1, IIf(_l < 0, 0, _l))
End Set
End Property
End Class
'HSL
Public Sub
New()
End Sub
'New
'/ <summary>
'/ Sets the absolute brightness of a colour
'/ </summary>
'/ <param name="c">Original colour</param>
'/ <param name="brightness">The luminance level to impose</param>
'/ <returns>an adjusted colour</returns>
Public Shared
Function SetBrightness(c
As Color, brightness As
Double) As Color
Dim hsl As HSL = RGB_to_HSL(c)
hsl.L = brightness
Return HSL_to_RGB(hsl)
End Function
'SetBrightness
'/ <summary>
'/ Modifies an existing brightness level
'/ </summary>
'/ <remarks>
'/ To reduce brightness use a number smaller than 1. To increase brightness use a number larger tnan 1
'/ </remarks>
'/ <param name="c">The original colour</param>
'/ <param name="brightness">The luminance delta</param>
'/ <returns>An adjusted colour</returns>
Public Shared
Function ModifyBrightness(c
As Color, brightness As
Double) As Color
Dim hsl As HSL = RGB_to_HSL(c)
hsl.L *= brightness
Return HSL_to_RGB(hsl)
End Function
'ModifyBrightness
'/ <summary>
'/ Sets the absolute saturation level
'/ </summary>
'/ <remarks>Accepted values 0-1</remarks>
'/ <param name="c">An original colour</param>
'/ <param name="Saturation">The saturation value to impose</param>
'/ <returns>An adjusted colour</returns>
Public Shared
Function SetSaturation(c
As Color, Saturation As
Double) As Color
Dim hsl As HSL = RGB_to_HSL(c)
hsl.S = Saturation
Return HSL_to_RGB(hsl)
End Function
'SetSaturation
'/ <summary>
'/ Modifies an existing Saturation level
'/ </summary>
'/ <remarks>
'/ To reduce Saturation use a number smaller than 1. To increase Saturation use a number larger tnan 1
'/ </remarks>
'/ <param name="c">The original colour</param>
'/ <param name="Saturation">The saturation delta</param>
'/ <returns>An adjusted colour</returns>
Public Shared
Function ModifySaturation(c
As Color, Saturation As
Double) As Color
Dim hsl As HSL = RGB_to_HSL(c)
hsl.S *= Saturation
Return HSL_to_RGB(hsl)
End Function
'ModifySaturation
'/ <summary>
'/ Sets the absolute Hue level
'/ </summary>
'/ <remarks>Accepted values 0-1</remarks>
'/ <param name="c">An original colour</param>
'/ <param name="Hue">The Hue value to impose</param>
'/ <returns>An adjusted colour</returns>
Public Shared
Function SetHue(c As Color, Hue
As Double)
As Color
Dim hsl As HSL = RGB_to_HSL(c)
hsl.H = Hue
Return HSL_to_RGB(hsl)
End Function
'SetHue
'/ <summary>
'/ Modifies an existing Hue level
'/ </summary>
'/ <remarks>
'/ To reduce Hue use a number smaller than 1. To increase
Hue use a number larger tnan 1
'/ </remarks>
'/ <param name="c">The original colour</param>
'/ <param name="Hue">The Hue delta</param>
'/ <returns>An adjusted colour</returns>
Public Shared
Function ModifyHue(c As Color, Hue
As Double)
As Color
Dim hsl As HSL = RGB_to_HSL(c)
hsl.H *= Hue
Return HSL_to_RGB(hsl)
End Function
'ModifyHue
'/ <summary>
'/ Converts a colour from HSL to RGB
'/ </summary>
'/ <remarks>Adapted from the algoritm in Foley and Van-Dam</remarks>
'/ <param name="hsl">The HSL value</param>
'/ <returns>A Color structure containing the equivalent RGB values</returns>
Public Shared
Function HSL_to_RGB(hsl
As HSL) As Color
Dim r As
Double = 0
Dim g As
Double = 0
Dim b As
Double = 0
Dim temp1, temp2
As Double
If hsl.L = 0 Then
r = 0
g = 0
b = 0
Else
If hsl.S = 0
Then
r = hsl.L
g = hsl.L
b = hsl.L
Else
temp2 = IIf(hsl.L <= 0.5, hsl.L * (1.0 + hsl.S), hsl.L + hsl.S - hsl.L * hsl.S)
temp1 = 2.0 * hsl.L - temp2
Dim t3() As
Double = {hsl.H + 1.0 / 3.0, hsl.H, hsl.H - 1.0 / 3.0}
Dim clr() As
Double = {0, 0, 0}
Dim i As
Integer
For i = 0 To 2
If t3(i) < 0
Then
t3(i) += 1.0
End If
If t3(i) > 1
Then
t3(i) -= 1.0
End If
If 6.0 * t3(i) < 1.0
Then
clr(i) = temp1 + (temp2 - temp1) * t3(i) * 6.0
ElseIf 2.0 * t3(i) < 1.0
Then
clr(i) = temp2
ElseIf 3.0 * t3(i) < 2.0
Then
clr(i) = temp1 + (temp2 - temp1) * (2.0 / 3.0 - t3(i)) * 6.0
Else
clr(i) = temp1
End If
Next i
r = clr(0)
g = clr(1)
b = clr(2)
End If
End If
Return Color.FromArgb(CInt(255 * r),
CInt(255 * g), CInt(255 * b))
End Function
'HSL_to_RGB
'
'/ <summary>
'/ Converts RGB to HSL
'/ </summary>
'/ <remarks>Takes advantage of whats already built in to .NET by using the Color.GetHue, Color.GetSaturation and Color.GetBrightness methods</remarks>
'/ <param name="c">A Color to convert</param>
'/ <returns>An HSL value</returns>
Public Shared
Function RGB_to_HSL(c As Color)
As HSL
Dim hsl As
New HSL()
hsl.H = c.GetHue() / 360.0 ' we store hue as 0-1 as opposed to 0-360
hsl.L = c.GetBrightness()
hsl.S = c.GetSaturation()
Return hsl
End Function
'RGB_to_HSL
End Class
'RGBHSL
End Namespace
'xRay.Toolkit.Utilities
in action.
Figure 2
Listing 2 is the complete listing for this test application.
Listing 2.
C#
using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;
using xRay.Toolkit.Utilities;
namespace rgbhsltest
{
///<summary>
/// Summary description for Form1.
///</summary>
public class Form1 : System.Windows.Forms.Form
{
///<summary>
/// Required designer variable.
///</summary>
private System.ComponentModel.Container components =
null;
public Form1()
{
//
// Required for Windows Form Designer support
//
InitializeComponent();
SetStyle(ControlStyles.ResizeRedraw,true);
}
///<summary>
/// Clean up any resources being used.
///</summary>
protected override
void Dispose( bool disposing )
{
if( disposing )
{
if (components !=
null)
{
components.Dispose();
}
}
base.Dispose( disposing );
}
#region Windows Form Designer generated code
///<summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
///</summary>
private void InitializeComponent()
{
//
// Form1
//
this.AutoScaleBaseSize =
new System.Drawing.Size(5, 13);
this.BackColor = System.Drawing.Color.White;
this.ClientSize =
new System.Drawing.Size(600, 349);
this.Name = "Form1";
this.Text = "Form1";
this.Paint +=
new System.Windows.Forms.PaintEventHandler(this.Form1_Paint);
}
#endregion
///<summary>
/// The main entry point for the application.
///</summary>
[STAThread]
static void Main()
{
Application.Run(new Form1());
}
private void Form1_Paint(object sender, System.Windows.Forms.PaintEventArgs e)
{
Color[] rainbow=new Color[]{Color.Red,Color.Orange,Color.Yellow,Color.Green,Color.Blue,Color.Indigo,Color.Violet};
int n=0;
foreach(Color c
in rainbow)
{
for(double b=0;b<=1;b+=0.1)
{
SolidBrush br=new SolidBrush(RGBHSL.SetBrightness(c,b));
e.Graphics.FillRectangle(br, (float)(this.ClientSize.Width*b), (float)(this.ClientSize.Height/7*n), (float)(this.ClientSize.Width/10),
(float)(this.ClientSize.Height/6));
br.Dispose();
}
n++;
}
}
}
}
VB.
Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Imports xRay.Toolkit.Utilities
Namespace rgbhsltest
'/ <summary>
'/ Summary description for Form1.
'/ </summary>
Public Class Form1
Inherits System.Windows.Forms.Form
'/ <summary>
'/ Required designer variable.
'/ </summary>
Private components
As System.ComponentModel.Container = Nothing
Public Sub
New()
'
' Required for Windows Form Designer support
'
InitializeComponent()
SetStyle(ControlStyles.ResizeRedraw, True)
End Sub
'New
'/ <summary>
'/ Clean up any resources being used.
'/ </summary>
Protected Overloads
Overrides Sub Dispose(ByVal disposing
As Boolean)
If disposing Then
If Not (components
Is Nothing)
Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Dispose
#Region "Windows Form Designer generated code"
'/ <summary>
'/ Required method for Designer support - do not modify
'/ the contents of this method with the code editor.
'/ </summary>
Private Sub InitializeComponent()
'
' Form1
'
Me.AutoScaleBaseSize =
New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.White
Me.ClientSize =
New System.Drawing.Size(600, 349)
Me.Name = "Form1"
Me.Text = "Form1"
End Sub
'InitializeComponent
#End Region
'/ <summary>
'/ The main entry point for the application.
'/ </summary>
<STAThread()> _
Shared Sub Main()
Application.Run(New Form1)
End Sub
'Main
Private Sub Form1_Paint(ByVal sender
As Object,
ByVal e As System.Windows.Forms.PaintEventArgs)
Handles MyBase.Paint
Dim rainbow() As Color = {Color.Red, Color.Orange, Color.Yellow, Color.Green, Color.Blue, Color.Indigo, Color.Violet}
Dim n As
Integer = 0
Dim c As Color
For Each c
In rainbow
Dim b As
Double
For b = 0 To 1
Step 0.1
Dim br As
New SolidBrush(RGBHSL.SetBrightness(c, b))
e.Graphics.FillRectangle(br, CSng(Me.ClientSize.Width * b),
CSng(Me.ClientSize.Height / 7 * n),
CSng(Me.ClientSize.Width / 10),
CSng(Me.ClientSize.Height / 6))
br.Dispose()
Next b
n += 1
Next c
End Sub
'Form1_Paint
End Class
'Form1
End Namespace
'rgbhsltest
shade. This is particularly useful in graphing applications where you want the visual representation of the data to be evenly balanced.Figure 3 shows 100 randomly coloured tiles that have all been forced to a brightness of 0.6 (60%) and saturation of 1 (100%).
Figure 3.
Listing 3 shows the application that produced the effect.
C#
using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;
using xRay.Toolkit.Utilities;
namespace rgbhlstest2
{
///<summary>
/// Summary description for Form1.
///</summary>
public class Form1 : System.Windows.Forms.Form
{
///<summary>
/// Required designer variable.
///</summary>
private System.ComponentModel.Container components =
null;
public Form1()
{
//
// Required for Windows Form Designer support
//
InitializeComponent();
SetStyle(ControlStyles.ResizeRedraw,true);
}
///<summary>
/// Clean up any resources being used.
///</summary>
protected override
void Dispose( bool disposing )
{
if( disposing )
{
if (components !=
null)
{
components.Dispose();
}
}
base.Dispose( disposing );
}
#region Windows Form Designer generated code
///<summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
///</summary>
private void InitializeComponent()
{
//
// Form1
//
this.AutoScaleBaseSize =
new System.Drawing.Size(5, 13);
this.BackColor = System.Drawing.Color.White;
this.ClientSize =
new System.Drawing.Size(480, 285);
this.Name = "Form1";
this.Text = "Form1";
this.Paint +=
new System.Windows.Forms.PaintEventHandler(this.Form1_Paint);
}
#endregion
///<summary>
/// The main entry point for the application.
///</summary>
[STAThread]
static void Main()
{
Application.Run(new Form1());
}
private void Form1_Paint(object sender, System.Windows.Forms.PaintEventArgs e)
{
//Creates random colours that all have the same brightness and saturation.
Random r=new Random(1);
// although random, we want the randomness to be predictable for this example
for(int y=0;y<10;y++)
{
for(int x=0;x<10;x++)
{
Color rcolor=Color.FromArgb(r.Next(255),r.Next(255),r.Next(255));
rcolor=RGBHSL.SetBrightness(rcolor,0.6);
rcolor=RGBHSL.SetSaturation(rcolor,1);
SolidBrush b=new SolidBrush(rcolor);
e.Graphics.FillRectangle(b,x*this.ClientSize.Width/10,y*this.ClientSize.Height/10,this.ClientSize.Width/10,this.ClientSize.Height/10);
b.Dispose();
}
}
}
}
}
，我找到一篇极好的解决方案 http://www.bobpowell.net/RGBHSB.htm
The classic RGB colour space used in GDI+ is excellent for choosing or defining a specific colour as a mixture of primary colour and intensity values but what happens if you want to take a particular colour and make it a bit lighter or a bit darker or change
its saturation. For this you need to be able to use the HSL (Hue, Saturation and Luminance) colour space.
The .NET framework actually provides RGB-HSL conversion but for some reason, the conversion of HSL to RGB is not provided as a public method. The Color class has three methods, GetHue, GetSaturation and GetBrightness that provide the basic components of
the HSL (or HSB) colour space. The conversion of HSL to RGB is a well known algorithm that you can find in numerous places on the web. Oddly enough, down in the bowels of the ControlPaint class, RGB to HSL is employed when you use the ControlPaint.Light(�)
or ControlPaint.DarkDark(�) methods but also unfortunately the scaling of the Light, Dark and DarkDark settings are, to say the least, brutal and offer no finesse.
A specific use for RGB-HSL conversions I have used in the past, is to provide colours that enhance objects drawn in a psuedo-3D or isometric style. In such a drawing, a cube having a specific colour, say red, may be shown with a lighter red on top to simulate
a shine on the object and a darker colour on one side to simulate a shadow. Figure1 shows two such cubes with and without shading yet still using red as the basic colour.
Figure 1
In addition to making a chosen colour lighter or darker, you may wish to choose a range of colour values that all have a similar brightness. Not an easy task where RGB is concerned but trivial using the HSL colour space. Similarly, you may wish to choose
random colours but ensure that they have a uniform level of saturation to ensure bright, non-pastel colours for ease of visibility. Once again, a task eminently possible if using HSL colour definitions.
If you're interested in further reading on the differences between colour spaces,
this link will take you to an excellent article on the Apple site which explains them nicely.
To accompany this FAQ entry I have provided the source code shown in listing 1. It provides an RGB-HSL and HSL-RGB conversion plus a few methods that assist in setting or modifying a brightness.
Listing 1:
C#.
/* This tool is part of the xRay Toolkit and is provided free of charge by Bob Powell.
* This code is not guaranteed to be free from defects or fit for merchantability in any way.
* By using this tool in your own programs you agree to hold Robert W. Powell free from all
* damages direct or incidental that arise from such use.
* You may use this code free of charge in your own projects on condition that you place the
* following paragraph (enclosed in quotes below) in your applications help or about dialog.
* "Portions of this code provided by Bob Powell. http://www.bobpowell.net"
*/
using System;
using System.Drawing;
namespace xRay.Toolkit.Utilities
{
public class RGBHSL
{
public class HSL
{
public HSL()
{
_h=0;
_s=0;
_l=0;
}
double _h;
double _s;
double _l;
public double H
{
get{return _h;}
set
{
_h=value;
_h=_h>1 ? 1 : _h<0 ? 0 : _h;
}
}
public double S
{
get{return _s;}
set
{
_s=value;
_s=_s>1 ? 1 : _s<0 ? 0 : _s;
}
}
public double L
{
get{return _l;}
set
{
_l=value;
_l=_l>1 ? 1 : _l<0 ? 0 : _l;
}
}
}
public RGBHSL()
{
}
///<summary>
/// Sets the absolute brightness of a colour
///</summary>
///<param name="c">Original colour</param>
///<param name="brightness">The luminance level to impose</param>
///<returns>an adjusted colour</returns>
public static Color SetBrightness(Color c,
double brightness)
{
HSL hsl = RGB_to_HSL(c);
hsl.L=brightness;
return HSL_to_RGB(hsl);
}
///<summary>
/// Modifies an existing brightness level
///</summary>
///<remarks>
/// To reduce brightness use a number smaller than 1. To increase brightness use a number larger tnan 1
///</remarks>
///<param name="c">The original colour</param>
///<param name="brightness">The luminance delta</param>
///<returns>An adjusted colour</returns>
public static Color ModifyBrightness(Color c,
double brightness)
{
HSL hsl = RGB_to_HSL(c);
hsl.L*=brightness;
return HSL_to_RGB(hsl);
}
///<summary>
/// Sets the absolute saturation level
///</summary>
///<remarks>Accepted values 0-1</remarks>
///<param name="c">An original colour</param>
///<param name="Saturation">The saturation value to impose</param>
///<returns>An adjusted colour</returns>
public static Color SetSaturation(Color c,
double Saturation)
{
HSL hsl = RGB_to_HSL(c);
hsl.S=Saturation;
return HSL_to_RGB(hsl);
}
///<summary>
/// Modifies an existing Saturation level
///</summary>
///<remarks>
/// To reduce Saturation use a number smaller than 1. To increase Saturation use a number larger tnan 1
///</remarks>
///<param name="c">The original colour</param>
///<param name="Saturation">The saturation delta</param>
///<returns>An adjusted colour</returns>
public static Color ModifySaturation(Color c,
double Saturation)
{
HSL hsl = RGB_to_HSL(c);
hsl.S*=Saturation;
return HSL_to_RGB(hsl);
}
///<summary>
/// Sets the absolute Hue level
///</summary>
///<remarks>Accepted values 0-1</remarks>
///<param name="c">An original colour</param>
///<param name="Hue">The Hue value to impose</param>
///<returns>An adjusted colour</returns>
public static Color SetHue(Color c,
double Hue)
{
HSL hsl = RGB_to_HSL(c);
hsl.H=Hue;
return HSL_to_RGB(hsl);
}
///<summary>
/// Modifies an existing Hue level
///</summary>
///<remarks>
/// To reduce Hue use a number smaller than 1. To increase Hue use a number larger tnan 1
///</remarks>
///<param name="c">The original colour</param>
///<param name="Hue">The Hue delta</param>
///<returns>An adjusted colour</returns>
public static Color ModifyHue(Color c,
double Hue)
{
HSL hsl = RGB_to_HSL(c);
hsl.H*=Hue;
return HSL_to_RGB(hsl);
}
///<summary>
/// Converts a colour from HSL to RGB
///</summary>
///<remarks>Adapted from the algoritm in Foley and Van-Dam</remarks>
///<param name="hsl">The HSL value</param>
///<returns>A Color structure containing the equivalent RGB values</returns>
public static Color HSL_to_RGB(HSL hsl)
{
double r=0,g=0,b=0;
double temp1,temp2;
if(hsl.L==0)
{
r=g=b=0;
}
else
{
if(hsl.S==0)
{
r=g=b=hsl.L;
}
else
{
temp2 = ((hsl.L<=0.5) ? hsl.L*(1.0+hsl.S) : hsl.L+hsl.S-(hsl.L*hsl.S));
temp1 = 2.0*hsl.L-temp2;
double[] t3=new
double[]{hsl.H+1.0/3.0,hsl.H,hsl.H-1.0/3.0};
double[] clr=new
double[]{0,0,0};
for(int i=0;i<3;i++)
{
if(t3[i]<0)
t3[i]+=1.0;
if(t3[i]>1)
t3[i]-=1.0;
if(6.0*t3[i] < 1.0)
clr[i]=temp1+(temp2-temp1)*t3[i]*6.0;
else
if(2.0*t3[i] < 1.0)
clr[i]=temp2;
else
if(3.0*t3[i] < 2.0)
clr[i]=(temp1+(temp2-temp1)*((2.0/3.0)-t3[i])*6.0);
else
clr[i]=temp1;
}
r=clr[0];
g=clr[1];
b=clr[2];
}
}
return Color.FromArgb((int)(255*r),(int)(255*g),(int)(255*b));
}
//
///<summary>
/// Converts RGB to HSL
///</summary>
///<remarks>Takes advantage of whats already built in to .NET by using the Color.GetHue, Color.GetSaturation and Color.GetBrightness methods</remarks>
///<param name="c">A Color to convert</param>
///<returns>An HSL value</returns>
public static HSL RGB_to_HSL (Color c)
{
HSL hsl = new HSL();
hsl.H=c.GetHue()/360.0; // we store hue as 0-1 as opposed to 0-360
hsl.L=c.GetBrightness();
hsl.S=c.GetSaturation();
return hsl;
}
}
}
VB
' This tool is part of the xRay Toolkit and is provided free of charge by Bob Powell.
' This code is not guaranteed to be free from defects or fit for mechantability in any way.
' By using this tool in your own programs you agree to hold Robert W. Powell free from all
' damages direct or incidental that arise from such use.
' You may use this code free of charge in your own projects on condition that you place the
' following paragraph (enclosed in quotes below) in your applications help or about dialog.
' "Portions of this code provided by Bob Powell. Http://www.bobpowell.net"
Imports System
Imports System.Drawing
Namespace xRay.Toolkit.Utilities
Public Class RGBHSL
Public Class HSL
Public Sub
New()
_h = 0
_s = 0
_l = 0
End Sub
'New
Private _h As
Double
Private _s As
Double
Private _l As
Double
Public Property H()
As Double
Get
Return _h
End Get
Set
_h = value
_h = IIf(_h > 1, 1, IIf(_h < 0, 0, _h))
End Set
End Property
Public Property S()
As Double
Get
Return _s
End Get
Set
_s = value
_s = IIf(_s > 1, 1, IIf(_s < 0, 0, _s))
End Set
End Property
Public Property L()
As Double
Get
Return _l
End Get
Set
_l = value
_l = IIf(_l > 1, 1, IIf(_l < 0, 0, _l))
End Set
End Property
End Class
'HSL
Public Sub
New()
End Sub
'New
'/ <summary>
'/ Sets the absolute brightness of a colour
'/ </summary>
'/ <param name="c">Original colour</param>
'/ <param name="brightness">The luminance level to impose</param>
'/ <returns>an adjusted colour</returns>
Public Shared
Function SetBrightness(c
As Color, brightness As
Double) As Color
Dim hsl As HSL = RGB_to_HSL(c)
hsl.L = brightness
Return HSL_to_RGB(hsl)
End Function
'SetBrightness
'/ <summary>
'/ Modifies an existing brightness level
'/ </summary>
'/ <remarks>
'/ To reduce brightness use a number smaller than 1. To increase brightness use a number larger tnan 1
'/ </remarks>
'/ <param name="c">The original colour</param>
'/ <param name="brightness">The luminance delta</param>
'/ <returns>An adjusted colour</returns>
Public Shared
Function ModifyBrightness(c
As Color, brightness As
Double) As Color
Dim hsl As HSL = RGB_to_HSL(c)
hsl.L *= brightness
Return HSL_to_RGB(hsl)
End Function
'ModifyBrightness
'/ <summary>
'/ Sets the absolute saturation level
'/ </summary>
'/ <remarks>Accepted values 0-1</remarks>
'/ <param name="c">An original colour</param>
'/ <param name="Saturation">The saturation value to impose</param>
'/ <returns>An adjusted colour</returns>
Public Shared
Function SetSaturation(c
As Color, Saturation As
Double) As Color
Dim hsl As HSL = RGB_to_HSL(c)
hsl.S = Saturation
Return HSL_to_RGB(hsl)
End Function
'SetSaturation
'/ <summary>
'/ Modifies an existing Saturation level
'/ </summary>
'/ <remarks>
'/ To reduce Saturation use a number smaller than 1. To increase Saturation use a number larger tnan 1
'/ </remarks>
'/ <param name="c">The original colour</param>
'/ <param name="Saturation">The saturation delta</param>
'/ <returns>An adjusted colour</returns>
Public Shared
Function ModifySaturation(c
As Color, Saturation As
Double) As Color
Dim hsl As HSL = RGB_to_HSL(c)
hsl.S *= Saturation
Return HSL_to_RGB(hsl)
End Function
'ModifySaturation
'/ <summary>
'/ Sets the absolute Hue level
'/ </summary>
'/ <remarks>Accepted values 0-1</remarks>
'/ <param name="c">An original colour</param>
'/ <param name="Hue">The Hue value to impose</param>
'/ <returns>An adjusted colour</returns>
Public Shared
Function SetHue(c As Color, Hue
As Double)
As Color
Dim hsl As HSL = RGB_to_HSL(c)
hsl.H = Hue
Return HSL_to_RGB(hsl)
End Function
'SetHue
'/ <summary>
'/ Modifies an existing Hue level
'/ </summary>
'/ <remarks>
'/ To reduce Hue use a number smaller than 1. To increase
Hue use a number larger tnan 1
'/ </remarks>
'/ <param name="c">The original colour</param>
'/ <param name="Hue">The Hue delta</param>
'/ <returns>An adjusted colour</returns>
Public Shared
Function ModifyHue(c As Color, Hue
As Double)
As Color
Dim hsl As HSL = RGB_to_HSL(c)
hsl.H *= Hue
Return HSL_to_RGB(hsl)
End Function
'ModifyHue
'/ <summary>
'/ Converts a colour from HSL to RGB
'/ </summary>
'/ <remarks>Adapted from the algoritm in Foley and Van-Dam</remarks>
'/ <param name="hsl">The HSL value</param>
'/ <returns>A Color structure containing the equivalent RGB values</returns>
Public Shared
Function HSL_to_RGB(hsl
As HSL) As Color
Dim r As
Double = 0
Dim g As
Double = 0
Dim b As
Double = 0
Dim temp1, temp2
As Double
If hsl.L = 0 Then
r = 0
g = 0
b = 0
Else
If hsl.S = 0
Then
r = hsl.L
g = hsl.L
b = hsl.L
Else
temp2 = IIf(hsl.L <= 0.5, hsl.L * (1.0 + hsl.S), hsl.L + hsl.S - hsl.L * hsl.S)
temp1 = 2.0 * hsl.L - temp2
Dim t3() As
Double = {hsl.H + 1.0 / 3.0, hsl.H, hsl.H - 1.0 / 3.0}
Dim clr() As
Double = {0, 0, 0}
Dim i As
Integer
For i = 0 To 2
If t3(i) < 0
Then
t3(i) += 1.0
End If
If t3(i) > 1
Then
t3(i) -= 1.0
End If
If 6.0 * t3(i) < 1.0
Then
clr(i) = temp1 + (temp2 - temp1) * t3(i) * 6.0
ElseIf 2.0 * t3(i) < 1.0
Then
clr(i) = temp2
ElseIf 3.0 * t3(i) < 2.0
Then
clr(i) = temp1 + (temp2 - temp1) * (2.0 / 3.0 - t3(i)) * 6.0
Else
clr(i) = temp1
End If
Next i
r = clr(0)
g = clr(1)
b = clr(2)
End If
End If
Return Color.FromArgb(CInt(255 * r),
CInt(255 * g), CInt(255 * b))
End Function
'HSL_to_RGB
'
'/ <summary>
'/ Converts RGB to HSL
'/ </summary>
'/ <remarks>Takes advantage of whats already built in to .NET by using the Color.GetHue, Color.GetSaturation and Color.GetBrightness methods</remarks>
'/ <param name="c">A Color to convert</param>
'/ <returns>An HSL value</returns>
Public Shared
Function RGB_to_HSL(c As Color)
As HSL
Dim hsl As
New HSL()
hsl.H = c.GetHue() / 360.0 ' we store hue as 0-1 as opposed to 0-360
hsl.L = c.GetBrightness()
hsl.S = c.GetSaturation()
Return hsl
End Function
'RGB_to_HSL
End Class
'RGBHSL
End Namespace
'xRay.Toolkit.Utilities
Example using the RGBHSL class to modify brightness
This example shows how colours may be modified for brightness by simply setting their luminance levels. The application below uses the RGBHSL class to display a palette of colours taken from the seven classic colours of the rainbow. Figure 2 shows the programin action.
Figure 2
Listing 2 is the complete listing for this test application.
Listing 2.
C#
using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;
using xRay.Toolkit.Utilities;
namespace rgbhsltest
{
///<summary>
/// Summary description for Form1.
///</summary>
public class Form1 : System.Windows.Forms.Form
{
///<summary>
/// Required designer variable.
///</summary>
private System.ComponentModel.Container components =
null;
public Form1()
{
//
// Required for Windows Form Designer support
//
InitializeComponent();
SetStyle(ControlStyles.ResizeRedraw,true);
}
///<summary>
/// Clean up any resources being used.
///</summary>
protected override
void Dispose( bool disposing )
{
if( disposing )
{
if (components !=
null)
{
components.Dispose();
}
}
base.Dispose( disposing );
}
#region Windows Form Designer generated code
///<summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
///</summary>
private void InitializeComponent()
{
//
// Form1
//
this.AutoScaleBaseSize =
new System.Drawing.Size(5, 13);
this.BackColor = System.Drawing.Color.White;
this.ClientSize =
new System.Drawing.Size(600, 349);
this.Name = "Form1";
this.Text = "Form1";
this.Paint +=
new System.Windows.Forms.PaintEventHandler(this.Form1_Paint);
}
#endregion
///<summary>
/// The main entry point for the application.
///</summary>
[STAThread]
static void Main()
{
Application.Run(new Form1());
}
private void Form1_Paint(object sender, System.Windows.Forms.PaintEventArgs e)
{
Color[] rainbow=new Color[]{Color.Red,Color.Orange,Color.Yellow,Color.Green,Color.Blue,Color.Indigo,Color.Violet};
int n=0;
foreach(Color c
in rainbow)
{
for(double b=0;b<=1;b+=0.1)
{
SolidBrush br=new SolidBrush(RGBHSL.SetBrightness(c,b));
e.Graphics.FillRectangle(br, (float)(this.ClientSize.Width*b), (float)(this.ClientSize.Height/7*n), (float)(this.ClientSize.Width/10),
(float)(this.ClientSize.Height/6));
br.Dispose();
}
n++;
}
}
}
}
VB.
Imports System
Imports System.Drawing
Imports System.Collections
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Data
Imports xRay.Toolkit.Utilities
Namespace rgbhsltest
'/ <summary>
'/ Summary description for Form1.
'/ </summary>
Public Class Form1
Inherits System.Windows.Forms.Form
'/ <summary>
'/ Required designer variable.
'/ </summary>
Private components
As System.ComponentModel.Container = Nothing
Public Sub
New()
'
' Required for Windows Form Designer support
'
InitializeComponent()
SetStyle(ControlStyles.ResizeRedraw, True)
End Sub
'New
'/ <summary>
'/ Clean up any resources being used.
'/ </summary>
Protected Overloads
Overrides Sub Dispose(ByVal disposing
As Boolean)
If disposing Then
If Not (components
Is Nothing)
Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Dispose
#Region "Windows Form Designer generated code"
'/ <summary>
'/ Required method for Designer support - do not modify
'/ the contents of this method with the code editor.
'/ </summary>
Private Sub InitializeComponent()
'
' Form1
'
Me.AutoScaleBaseSize =
New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.Color.White
Me.ClientSize =
New System.Drawing.Size(600, 349)
Me.Name = "Form1"
Me.Text = "Form1"
End Sub
'InitializeComponent
#End Region
'/ <summary>
'/ The main entry point for the application.
'/ </summary>
<STAThread()> _
Shared Sub Main()
Application.Run(New Form1)
End Sub
'Main
Private Sub Form1_Paint(ByVal sender
As Object,
ByVal e As System.Windows.Forms.PaintEventArgs)
Handles MyBase.Paint
Dim rainbow() As Color = {Color.Red, Color.Orange, Color.Yellow, Color.Green, Color.Blue, Color.Indigo, Color.Violet}
Dim n As
Integer = 0
Dim c As Color
For Each c
In rainbow
Dim b As
Double
For b = 0 To 1
Step 0.1
Dim br As
New SolidBrush(RGBHSL.SetBrightness(c, b))
e.Graphics.FillRectangle(br, CSng(Me.ClientSize.Width * b),
CSng(Me.ClientSize.Height / 7 * n),
CSng(Me.ClientSize.Width / 10),
CSng(Me.ClientSize.Height / 6))
br.Dispose()
Next b
n += 1
Next c
End Sub
'Form1_Paint
End Class
'Form1
End Namespace
'rgbhsltest
Example using the RGBHSL class to force brightness and saturation
This example creates a set of random colours and then enforces a particular saturation and brightness. This tends to maintain the visual strength of colours so that when juxtaposed, one colour does not dominate the others and draw the eye to a particularshade. This is particularly useful in graphing applications where you want the visual representation of the data to be evenly balanced.Figure 3 shows 100 randomly coloured tiles that have all been forced to a brightness of 0.6 (60%) and saturation of 1 (100%).
Figure 3.
Listing 3 shows the application that produced the effect.
C#
using System;
using System.Drawing;
using System.Collections;
using System.ComponentModel;
using System.Windows.Forms;
using System.Data;
using xRay.Toolkit.Utilities;
namespace rgbhlstest2
{
///<summary>
/// Summary description for Form1.
///</summary>
public class Form1 : System.Windows.Forms.Form
{
///<summary>
/// Required designer variable.
///</summary>
private System.ComponentModel.Container components =
null;
public Form1()
{
//
// Required for Windows Form Designer support
//
InitializeComponent();
SetStyle(ControlStyles.ResizeRedraw,true);
}
///<summary>
/// Clean up any resources being used.
///</summary>
protected override
void Dispose( bool disposing )
{
if( disposing )
{
if (components !=
null)
{
components.Dispose();
}
}
base.Dispose( disposing );
}
#region Windows Form Designer generated code
///<summary>
/// Required method for Designer support - do not modify
/// the contents of this method with the code editor.
///</summary>
private void InitializeComponent()
{
//
// Form1
//
this.AutoScaleBaseSize =
new System.Drawing.Size(5, 13);
this.BackColor = System.Drawing.Color.White;
this.ClientSize =
new System.Drawing.Size(480, 285);
this.Name = "Form1";
this.Text = "Form1";
this.Paint +=
new System.Windows.Forms.PaintEventHandler(this.Form1_Paint);
}
#endregion
///<summary>
/// The main entry point for the application.
///</summary>
[STAThread]
static void Main()
{
Application.Run(new Form1());
}
private void Form1_Paint(object sender, System.Windows.Forms.PaintEventArgs e)
{
//Creates random colours that all have the same brightness and saturation.
Random r=new Random(1);
// although random, we want the randomness to be predictable for this example
for(int y=0;y<10;y++)
{
for(int x=0;x<10;x++)
{
Color rcolor=Color.FromArgb(r.Next(255),r.Next(255),r.Next(255));
rcolor=RGBHSL.SetBrightness(rcolor,0.6);
rcolor=RGBHSL.SetSaturation(rcolor,1);
SolidBrush b=new SolidBrush(rcolor);
e.Graphics.FillRectangle(b,x*this.ClientSize.Width/10,y*this.ClientSize.Height/10,this.ClientSize.Width/10,this.ClientSize.Height/10);
b.Dispose();
}
}
}
}
}
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 如何在ArrayBuffer对象与字符串之间进行互相转换
- 【转载】如何：在各种字符串类型之间进行转换
- VC++ 如何：在各种字符串类型之间进行转换
- ABAP--如何进行sap的金额数据存储和显示之间的转换(CURRENCY_AMOUNT_DISPLAY_TO_SAP)
- 如何：在各种字符串类型之间进行转换--如何从 char * 转换为上面列出的其他字符串类型
- 如何将RGB色彩信息和YUV色彩信息之间转换
- RGB和HSL之间的转换 C++实现
- Visual C++ 如何：在各种字符串类型之间进行转换
- RGB和HSL之间的转换 C++实现
- 如何在String和Byte[]对象之间进行转换
- 数组之间如何进行转换
- 如何做YUV的分辨率转换 - FFMPEG 实现 YUV，RGB各种图像原始数据之间的转换（swscale）
- Visual C++ 如何：在各种字符串类型之间进行转换
- 如何：在各种字符串类型之间进行转换
- 如何进行各种码制数据之间转换
- Visual C++ 如何：在各种字符串类型之间进行转换
- C++ 如何：在各种字符串类型之间进行转换
- Visual C++ 如何：在各种字符串类型之间进行转换
- Visual C++ 如何：在各种字符串类型之间进行转换
- 如何：在各种字符串类型之间进行转换