Public Class WindowLevelCommand 
   Inherits Leadtools.ImageProcessing.RasterCommand
   Implements IRasterCommand 

Dim instance As WindowLevelCommand

public class WindowLevelCommand : Leadtools.ImageProcessing.RasterCommand, IRasterCommand  

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

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

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

   ' Prepare the command
   'Change the image to 16-bit grayscale
   Dim graycommand As GrayscaleCommand = New GrayscaleCommand(16)
   Dim command As WindowLevelCommand = New WindowLevelCommand
   graycommand.Run(leadImage)

   Dim minValue As Integer = leadImage.MinValue
   Dim maxValue As Integer = leadImage.MaxValue
   Dim minBit As Integer = leadImage.LowBit
   Dim maxBit As Integer = leadImage.HighBit

   Dim Size As Integer = (1 << (maxBit - minBit + 1))
   Dim LookupTable() As RasterColor
   ReDim LookupTable(Size - 1)

   ' fill the first half of the LookupTable with RED.
   Dim x As Integer
   For x = 0 To Size \ 2 - 1
      LookupTable(x) = New RasterColor(255, 0, 0)
   Next

   ' fill the rest with gray values.
   For x = Size \ 2 To Size - 1
      Dim y As Byte = Convert.ToByte((x - minValue) * 255 / (maxValue - minValue))
      LookupTable(x) = New RasterColor(y, y, y)
   Next

   command.HighBit = maxBit
   command.LowBit = minBit

   command.LookupTable = LookupTable
   command.Order = RasterByteOrder.Bgr
   command.Run(leadImage)

End Sub

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

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

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

      // Prepare the command
      int x;
      byte y;
      int Size;
      RasterColor [] LookupTable;

      //Change the image to 16-bit grayscale
      GrayscaleCommand graycommand = new GrayscaleCommand(16);
      MinMaxBitsCommand MinMaxBits = new MinMaxBitsCommand();
      MinMaxValuesCommand MinMaxValues = new MinMaxValuesCommand();
      WindowLevelCommand command = new WindowLevelCommand();

      graycommand.Run(image);
      MinMaxBits.Run(image);
      MinMaxValues.Run(image);

      Size = (1 <<(MinMaxBits.MaximumBit - MinMaxBits.MinimumBit + 1));
      LookupTable = new Leadtools.RasterColor[Size];

      // fill the first half of the LookupTable with RED.
      for(x = 0; x < Size / 2; x++)
         LookupTable[x] = new Leadtools.RasterColor(255, 0, 0);

      // fill the rest with gray values.
      for(x = Size / 2; x < Size; x++)
      {
         y = (byte)((x - MinMaxValues.MinimumValue) * 255 / (MinMaxValues.MaximumValue - MinMaxValues.MinimumValue));
         LookupTable[x] = new Leadtools.RasterColor(y, y, y);
      }

      command.HighBit = MinMaxBits.MaximumBit;
      command.LowBit  = MinMaxBits.MinimumBit;
      command.LookupTable = LookupTable;
      command.Order = Leadtools.RasterByteOrder.Bgr;

      command.Run(image);

   }

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

public void WindowLevelCommandExample(RasterImage image, Stream outStream)
{
   // Prepare the command
   int x;
   byte y;
   int Size;
   RasterColor[] LookupTable;
   //Change the image to 16-bit grayscale
   GrayscaleCommand graycommand = new GrayscaleCommand(16);
   MinMaxBitsCommand MinMaxBits = new MinMaxBitsCommand();
   MinMaxValuesCommand MinMaxValues = new MinMaxValuesCommand();
   WindowLevelCommand command = new WindowLevelCommand();

   graycommand.Run(image);
   MinMaxBits.Run(image);
   MinMaxValues.Run(image);

   Size = (1 << (MinMaxBits.MaximumBit - MinMaxBits.MinimumBit + 1));
   LookupTable = new Leadtools.RasterColor[Size];

   // fill the first half of the LookupTable with RED.
   for (x = 0; x < Size / 2; x++)
      LookupTable[x] = new Leadtools.RasterColor(255, 0, 0);

   // fill the rest with gray values.
   for (x = Size / 2; x < Size; x++)
   {
      y = (byte)((x - MinMaxValues.MinimumValue) * 255 / (MinMaxValues.MaximumValue - MinMaxValues.MinimumValue));
      LookupTable[x] = new Leadtools.RasterColor(y, y, y);
   }

   command.HighBit = MinMaxBits.MaximumBit;
   command.LowBit = MinMaxBits.MinimumBit;
   command.LookupTable = LookupTable;
   command.Order = Leadtools.RasterByteOrder.Bgr;

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

Public Sub WindowLevelCommandExample(ByVal image As RasterImage, ByVal outStream As Stream)
   ' Prepare the command
   Dim x As Integer
   Dim y As Byte
   Dim Size As Integer
   Dim LookupTable As RasterColor()
   'Change the image to 16-bit grayscale
   Dim graycommand As GrayscaleCommand = New GrayscaleCommand(16)
   Dim MinMaxBits As MinMaxBitsCommand = New MinMaxBitsCommand()
   Dim MinMaxValues As MinMaxValuesCommand = New MinMaxValuesCommand()
   Dim command As WindowLevelCommand = New WindowLevelCommand()

   graycommand.Run(image)
   MinMaxBits.Run(image)
   MinMaxValues.Run(image)

   Size = (1 << (MinMaxBits.MaximumBit - MinMaxBits.MinimumBit + 1))
   LookupTable = New RasterColor(Size - 1) {}

   ' fill the first half of the LookupTable with RED.
   x = 0
   Do While x < Size / 2
      LookupTable(x) = New RasterColor(255, 0, 0)
      x += 1
   Loop

   ' fill the rest with gray values.
   x = Size / 2
   Do While x < Size
      y = CByte((x - MinMaxValues.MinimumValue) * 255 / (MinMaxValues.MaximumValue - MinMaxValues.MinimumValue))
      LookupTable(x) = New RasterColor(y, y, y)
      x += 1
   Loop

   command.HighBit = MinMaxBits.MaximumBit
   command.LowBit = MinMaxBits.MinimumBit
   command.LookupTable = LookupTable
   command.Order = RasterByteOrder.Bgr

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