Public Class ChangeHueSaturationIntensityCommand 
   Inherits Leadtools.ImageProcessing.RasterCommand
   Implements IRasterCommand 

Dim instance As ChangeHueSaturationIntensityCommand

public class ChangeHueSaturationIntensityCommand : Leadtools.ImageProcessing.RasterCommand, IRasterCommand  

public ref class ChangeHueSaturationIntensityCommand : public Leadtools.ImageProcessing.RasterCommand, IRasterCommand  

Public Sub ChangeHueSaturationIntensityCommandExample()
   Dim codecs As New RasterCodecs()
   codecs.ThrowExceptionsOnInvalidImages = True

   Dim leadImage As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"))

   ' Prepare the command
   Dim command As ChangeHueSaturationIntensityCommand = New ChangeHueSaturationIntensityCommand
   Dim Data() As ChangeHueSaturationIntensityCommandData
   ReDim Data(0)

   Data(0) = New ChangeHueSaturationIntensityCommandData
   Data(0).Hue = 18000
   Data(0).Saturation = 0
   Data(0).Intensity = 0
   Data(0).OuterLow = 315
   Data(0).OuterHigh = 45
   Data(0).InnerLow = 345
   Data(0).InnerHigh = 15
   command.Data = Data
   command.Hue = 0
   command.Saturation = 0
   command.Intensity = 0

   command.Run(leadImage)
   codecs.Save(leadImage, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24)

End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class

public void ChangeHueSaturationIntensityCommandExample()
   {
      // Load an image
      RasterCodecs codecs = new RasterCodecs();
      codecs.ThrowExceptionsOnInvalidImages = true;

      RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Master.jpg"));

      // Prepare the command
      ChangeHueSaturationIntensityCommand command    = new ChangeHueSaturationIntensityCommand();
      ChangeHueSaturationIntensityCommandData[] data = new ChangeHueSaturationIntensityCommandData[1];
      data[0]            = new ChangeHueSaturationIntensityCommandData();
      data[0].Hue        = 18000;
      data[0].Saturation = 0;
      data[0].Intensity  = 0;
      data[0].OuterLow   = 315;
      data[0].OuterHigh  = 45;
      data[0].InnerLow   = 345;
      data[0].InnerHigh  = 15;
      command.Data       = data;
      command.Hue        = 0;
      command.Saturation = 0;
      command.Intensity  = 0;

      command.Run(image);
      codecs.Save(image, Path.Combine(LEAD_VARS.ImagesDir, "Result.jpg"), RasterImageFormat.Jpeg, 24);

   }

static class LEAD_VARS
{
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}

public void ChangeHueSaturationIntensityCommandExample(RasterImage image, Stream outStream)
{
   // Prepare the command
   ChangeHueSaturationIntensityCommand command    = new ChangeHueSaturationIntensityCommand();
   ChangeHueSaturationIntensityCommandData[] data = new ChangeHueSaturationIntensityCommandData[1];
   data[0]            = new ChangeHueSaturationIntensityCommandData();
   data[0].Hue        = 18000;
   data[0].Saturation = 0;
   data[0].Intensity  = 0;
   data[0].OuterLow   = 315;
   data[0].OuterHigh  = 45;
   data[0].InnerLow   = 345;
   data[0].InnerHigh  = 15;
   command.Data       = data;
   command.Hue        = 0;
   command.Saturation = 0;
   command.Intensity  = 0;
   command.Run(image);

   // Save result image
   RasterCodecs codecs = new RasterCodecs();
   codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24);
   image.Dispose();
}

Public Sub ChangeHueSaturationIntensityCommandExample(ByVal image As RasterImage, ByVal outStream As Stream)
   ' Prepare the command
   Dim command As ChangeHueSaturationIntensityCommand = New ChangeHueSaturationIntensityCommand()
   Dim data As ChangeHueSaturationIntensityCommandData() = New ChangeHueSaturationIntensityCommandData(0){}
   data(0) = New ChangeHueSaturationIntensityCommandData()
   data(0).Hue = 18000
   data(0).Saturation = 0
   data(0).Intensity = 0
   data(0).OuterLow = 315
   data(0).OuterHigh = 45
   data(0).InnerLow = 345
   data(0).InnerHigh = 15
   command.Data = data
   command.Hue = 0
   command.Saturation = 0
   command.Intensity = 0
   command.Run(image)

   ' Save result image
   Dim codecs As RasterCodecs = New RasterCodecs()
   codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24)
   image.Dispose()
End Sub