RemapHueCommand Constructor()

c#[Silverlight C# Example] 
using Leadtools; 
using Leadtools.Codecs; 
using Leadtools.ImageProcessing.Color; 
using Leadtools.Examples; 
 
public int INCREMENT_S2(int x, int Length) 
{ 
   return ((x + 1) % Length); 
} 
 
public int DECREMENT_S2(int x, int Length) 
{ 
   return ((x + (Length - 1)) % Length); 
} 
 
public int ADD_S2(int x, int y, int Length) 
{ 
   return ((x + y) % Length); 
} 
public void RemapHueCommandConstructorExample(RasterImage image, Stream outStream) 
{ 
   // Prepare the command 
   int Length; 
   if (image.BitsPerPixel >= 48) 
      Length = 0x10000; 
   else if (!(image.BitsPerPixel == 16 || image.BitsPerPixel == 12)) 
      Length = 256; 
   else if (image.GetLookupTable() != null && image.UseLookupTable) 
      Length = 256; 
   else 
      Length = (1 << image.BitsPerPixel); 
 
   //Allocate tables 
   int[] MaskTable = new int[Length]; 
   int[] HueTable = new int[Length]; 
 
   //Initialize tables 
   for (int i = 0; i < Length; i++) 
   { 
      MaskTable[i] = 0; 
      HueTable[i] = i; 
   } 
 
   //Get the hue for green 
   RasterHsvColor hsvRef = RasterHsvColor.FromRasterColor(new RasterColor(0, 255, 0)); 
 
   int HueGreen = hsvRef.H; 
 
   //Obtain new hue   
   hsvRef = RasterHsvColor.FromRasterColor(new RasterColor(255, 128, 0)); 
   int Change = (int)hsvRef.H - (int)HueGreen; 
   int HueChange = (Change > 0) ? (int)Change : (int)(Change + Length - 1); 
   HueGreen *= (Length - 1) / 255; 
   HueChange *= (Length - 1) / 255; 
 
   //Set values in HueTable, MaskTable  
   HueTable[HueGreen] = (HueTable[HueGreen] + HueChange); 
   MaskTable[HueGreen] = 1; 
 
   //set the hues near green (+/- 15) 
   int Count = (15 * (Length - 1)) / 255; 
   for (int i = INCREMENT_S2(HueGreen, Length); Count > 0; i = INCREMENT_S2(i, Length), Count--) 
   { 
      HueTable[i] = ADD_S2(HueTable[i], HueChange, Length); 
      MaskTable[i] = 1; 
   } 
 
   Count = (15 * (Length - 1)) / 255; 
   for (int i = DECREMENT_S2(HueGreen, Length); Count > 0; i = DECREMENT_S2(i, Length), Count--) 
   { 
      HueTable[i] = ADD_S2(HueTable[i], HueChange, Length); 
      MaskTable[i] = 1; 
   } 
 
   RemapHueCommand command = new RemapHueCommand(); 
   command.Mask = MaskTable; 
   command.HueTable = HueTable; 
   command.SaturationTable = null; 
   command.ValueTable = null; 
   command.LookUpTableLength = Length; 
   command.Run(image); 
 
   // Save result image 
   RasterCodecs codecs = new RasterCodecs(); 
   codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24); 
   image.Dispose(); 
} 
vb[Silverlight VB Example] 
Imports Leadtools 
Imports Leadtools.Codecs 
Imports Leadtools.ImageProcessing.Color 
 
Public Function INCREMENT_S2(ByVal x As Integer, ByVal Length As Integer) As Integer 
   Return ((x + 1) Mod Length) 
End Function 
 
Public Function DECREMENT_S2(ByVal x As Integer, ByVal Length As Integer) As Integer 
   Return ((x + (Length - 1)) Mod Length) 
End Function 
 
Public Function ADD_S2(ByVal x As Integer, ByVal y As Integer, ByVal Length As Integer) As Integer 
   Return ((x + y) Mod Length) 
End Function 
Public Sub RemapHueCommandConstructorExample(ByVal image As RasterImage, ByVal outStream As Stream) 
   ' Prepare the command 
   Dim Length As Integer 
   If image.BitsPerPixel >= 48 Then 
      Length = &H10000 
   ElseIf Not (image.BitsPerPixel = 16 OrElse image.BitsPerPixel = 12) Then 
      Length = 256 
   ElseIf Not image.GetLookupTable() Is Nothing AndAlso image.UseLookupTable Then 
      Length = 256 
   Else 
      Length = (1 << image.BitsPerPixel) 
   End If 
 
   'Allocate tables 
   Dim MaskTable As Integer() = New Integer(Length - 1) {} 
   Dim HueTable As Integer() = New Integer(Length - 1) {} 
 
   'Initialize tables 
   Dim i As Integer = 0 
   Do While i < Length 
      MaskTable(i) = 0 
      HueTable(i) = i 
      i += 1 
   Loop 
 
   'Get the hue for green 
   Dim hsvRef As RasterHsvColor = RasterHsvColor.FromRasterColor(New RasterColor(0, 255, 0)) 
 
   Dim HueGreen As Integer = hsvRef.H 
 
   'Obtain new hue   
   hsvRef = RasterHsvColor.FromRasterColor(New RasterColor(255, 128, 0)) 
   Dim Change As Integer = CInt(hsvRef.H) - CInt(HueGreen) 
   Dim HueChange As Integer 
   If (Change > 0) Then 
      HueChange = CInt(Change) 
   Else 
      HueChange = CInt(Change + Length - 1) 
   End If 
   HueGreen *= (Length - 1) / 255 
   HueChange *= (Length - 1) / 255 
 
   'Set values in HueTable, MaskTable  
   HueTable(HueGreen) = (HueTable(HueGreen) + HueChange) 
   MaskTable(HueGreen) = 1 
 
   'set the hues near green (+/- 15) 
   Dim Count As Integer = (15 * (Length - 1)) / 255 
   i = INCREMENT_S2(HueGreen, Length) 
   Do While Count > 0 
      HueTable(i) = ADD_S2(HueTable(i), HueChange, Length) 
      MaskTable(i) = 1 
      i = INCREMENT_S2(i, Length) 
      Count -= 1 
   Loop 
 
   Count = (15 * (Length - 1)) / 255 
   i = DECREMENT_S2(HueGreen, Length) 
   Do While Count > 0 
      HueTable(i) = ADD_S2(HueTable(i), HueChange, Length) 
      MaskTable(i) = 1 
      i = DECREMENT_S2(i, Length) 
      Count -= 1 
   Loop 
 
   Dim command As RemapHueCommand = New RemapHueCommand() 
   command.Mask = MaskTable 
   command.HueTable = HueTable 
   command.SaturationTable = Nothing 
   command.ValueTable = Nothing 
   command.LookUpTableLength = Length 
   command.Run(image) 
 
   ' Save result image 
   Dim codecs As RasterCodecs = New RasterCodecs() 
   codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24) 
   image.Dispose() 
End Sub