Public Class ChannelMixerCommand 
   Inherits Leadtools.ImageProcessing.RasterCommand
   Implements IRasterCommand 

Dim instance As ChannelMixerCommand

public class ChannelMixerCommand : Leadtools.ImageProcessing.RasterCommand, IRasterCommand  

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

Public Sub ChannelMixerCommandExample()
   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 RedFactor As ChannelMixerCommandFactor = New ChannelMixerCommandFactor
   RedFactor.Red = 50
   RedFactor.Green = 0
   RedFactor.Blue = 0
   RedFactor.Constant = 0
   Dim GreenFactor As ChannelMixerCommandFactor = New ChannelMixerCommandFactor
   GreenFactor.Red = 100
   GreenFactor.Green = 100
   GreenFactor.Blue = 0
   GreenFactor.Constant = 0
   Dim BlueFactor As ChannelMixerCommandFactor = New ChannelMixerCommandFactor
   BlueFactor.Red = 0
   BlueFactor.Green = 0
   BlueFactor.Blue = 100
   BlueFactor.Constant = 0
   Dim command As ChannelMixerCommand = New ChannelMixerCommand(RedFactor, GreenFactor, BlueFactor)
   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 ChannelMixerCommandExample()
   {
      // Load an image
      RasterCodecs codecs = new RasterCodecs();
      codecs.ThrowExceptionsOnInvalidImages = true;

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

      // Prepare the command
      ChannelMixerCommandFactor RedFactor = new ChannelMixerCommandFactor();
      RedFactor.Red = 50;
      RedFactor.Green = 0;
      RedFactor.Blue = 0;
      RedFactor.Constant = 0;
      ChannelMixerCommandFactor GreenFactor = new ChannelMixerCommandFactor();
      GreenFactor.Red = 100;
      GreenFactor.Green = 100;
      GreenFactor.Blue = 0;
      GreenFactor.Constant = 0;
      ChannelMixerCommandFactor BlueFactor = new ChannelMixerCommandFactor();
      BlueFactor.Red = 0;
      BlueFactor.Green = 0;
      BlueFactor.Blue = 100;
      BlueFactor.Constant = 0;
      ChannelMixerCommand command = new ChannelMixerCommand(RedFactor, GreenFactor, BlueFactor);
      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 ChannelMixerCommandExample(RasterImage image, Stream outStream)
{
   // Prepare the command
   ChannelMixerCommandFactor RedFactor = new ChannelMixerCommandFactor();
   RedFactor.Red = 50;
   RedFactor.Green = 0;
   RedFactor.Blue = 0;
   RedFactor.Constant = 0;
   ChannelMixerCommandFactor GreenFactor = new ChannelMixerCommandFactor();
   GreenFactor.Red = 100;
   GreenFactor.Green = 100;
   GreenFactor.Blue = 0;
   GreenFactor.Constant = 0;
   ChannelMixerCommandFactor BlueFactor = new ChannelMixerCommandFactor();
   BlueFactor.Red = 0;
   BlueFactor.Green = 0;
   BlueFactor.Blue = 100;
   BlueFactor.Constant = 0;
   ChannelMixerCommand command = new ChannelMixerCommand(RedFactor, GreenFactor, BlueFactor);
   command.Run(image);
   // Save result image
   RasterCodecs codecs = new RasterCodecs();
   codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24);
   image.Dispose();
}

Public Sub ChannelMixerCommandExample(ByVal image As RasterImage, ByVal outStream As Stream)
   ' Prepare the command
   Dim RedFactor As ChannelMixerCommandFactor = New ChannelMixerCommandFactor()
   RedFactor.Red = 50
   RedFactor.Green = 0
   RedFactor.Blue = 0
   RedFactor.Constant = 0
   Dim GreenFactor As ChannelMixerCommandFactor = New ChannelMixerCommandFactor()
   GreenFactor.Red = 100
   GreenFactor.Green = 100
   GreenFactor.Blue = 0
   GreenFactor.Constant = 0
   Dim BlueFactor As ChannelMixerCommandFactor = New ChannelMixerCommandFactor()
   BlueFactor.Red = 0
   BlueFactor.Green = 0
   BlueFactor.Blue = 100
   BlueFactor.Constant = 0
   Dim command As ChannelMixerCommand = New ChannelMixerCommand(RedFactor, GreenFactor, BlueFactor)
   command.Run(image)
   ' Save result image
   Dim codecs As RasterCodecs = New RasterCodecs()
   codecs.Save(image, outStream, RasterImageFormat.Jpeg, 24)
   image.Dispose()
End Sub