Public Class RemapIntensityCommand 
   Inherits Leadtools.ImageProcessing.RasterCommand
   Implements IRasterCommand 

Dim instance As RemapIntensityCommand

public class RemapIntensityCommand : Leadtools.ImageProcessing.RasterCommand, IRasterCommand  

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

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

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

   ' Prepare the command
   'This example will darken loaded image by using lookup table affected by exponential function.
   Dim LookupTable() As Integer ' Array to hold lookup table.
   ReDim LookupTable(255)

   'Get Lookup table where the array calculated by the linear function for all the items of the array is from 0 - 255.
   LookupTable(0) = 255
   LookupTable(255) = 0

   EffectsUtilities.GetFunctionalLookupTable(LookupTable, 0, 255, 5, FunctionalLookupTableFlags.Linear)

   Dim command As RemapIntensityCommand = New RemapIntensityCommand
   command.Flags = RemapIntensityCommandFlags.Master
   command.LookupTable = LookupTable

   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 RemapIntensityCommandExample()
   {
      // Load an image
      RasterCodecs codecs = new RasterCodecs();
      codecs.ThrowExceptionsOnInvalidImages = true;

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

      // Prepare the command
      //This example will darken loaded image by using lookup table affected by exponential function.
      int[] LookupTable = new int[256]; // Array to hold lookup table.

      //Get Lookup table where the array calculated by the linear function for all the items of the array is from 0 - 255.
      LookupTable[0] = 255;
      LookupTable[255] = 0; 

      EffectsUtilities.GetFunctionalLookupTable(LookupTable, 0, 255, 5, FunctionalLookupTableFlags.Linear);

      RemapIntensityCommand command = new RemapIntensityCommand();
      command.Flags = RemapIntensityCommandFlags.Master;
      command.LookupTable = LookupTable;
      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 RemapIntensityCommandExample(RasterImage image, Stream outStream)
{
   // Prepare the command
   //This example will darken loaded image by using lookup table affected by exponential function.
   int[] LookupTable = new int[256]; // Array to hold lookup table.
   //Get Lookup table where the array calculated by the linear function for all the items of the array is from 0 - 255.
   LookupTable[0] = 255;
   LookupTable[255] = 0;

   EffectsUtilities.GetFunctionalLookupTable(LookupTable, 0, 255, 5, FunctionalLookupTableFlags.Linear);
   RemapIntensityCommand command = new RemapIntensityCommand();
   command.Flags = RemapIntensityCommandFlags.Master;
   command.LookupTable = LookupTable;
   command.Run(image);

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

Public Sub RemapIntensityCommandExample(ByVal image As RasterImage, ByVal outStream As Stream)
   ' Prepare the command
   'This example will darken loaded image by using lookup table affected by exponential function.
   Dim LookupTable As Integer() = New Integer(255){} ' Array to hold lookup table.
   'Get Lookup table where the array calculated by the linear function for all the items of the array is from 0 - 255.
   LookupTable(0) = 255
   LookupTable(255) = 0

   EffectsUtilities.GetFunctionalLookupTable(LookupTable, 0, 255, 5, FunctionalLookupTableFlags.Linear)
   Dim command As RemapIntensityCommand = New RemapIntensityCommand()
   command.Flags = RemapIntensityCommandFlags.Master
   command.LookupTable = LookupTable
   command.Run(image)

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