Public Shared Sub WindowLevelFillLookupTable( _
   ByVal lookupTable() As RasterColor, _
   ByVal startColor As RasterColor, _
   ByVal endColor As RasterColor, _
   ByVal low As Integer, _
   ByVal high As Integer, _
   ByVal lowBit As Integer, _
   ByVal highBit As Integer, _
   ByVal minValue As Integer, _
   ByVal maxValue As Integer, _
   ByVal factor As Integer, _
   ByVal flags As RasterPaletteWindowLevelFlags _
) 

Dim lookupTable() As RasterColor
Dim startColor As RasterColor
Dim endColor As RasterColor
Dim low As Integer
Dim high As Integer
Dim lowBit As Integer
Dim highBit As Integer
Dim minValue As Integer
Dim maxValue As Integer
Dim factor As Integer
Dim flags As RasterPaletteWindowLevelFlags
 
RasterPalette.WindowLevelFillLookupTable(lookupTable, startColor, endColor, low, high, lowBit, highBit, minValue, maxValue, factor, flags)

public static void WindowLevelFillLookupTable( 
   RasterColor[] lookupTable,
   RasterColor startColor,
   RasterColor endColor,
   int low,
   int high,
   int lowBit,
   int highBit,
   int minValue,
   int maxValue,
   int factor,
   RasterPaletteWindowLevelFlags flags
)

public:
static void WindowLevelFillLookupTable( 
   array<RasterColor>^ lookupTable,
   RasterColor startColor,
   RasterColor endColor,
   int low,
   int high,
   int lowBit,
   int highBit,
   int minValue,
   int maxValue,
   int factor,
   RasterPaletteWindowLevelFlags flags
) 

Public Sub WindowLevelFillLookupTableExample()
      Dim codecs As RasterCodecs = New RasterCodecs()

      codecs.ThrowExceptionsOnInvalidImages = True

      Dim srcFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Image1.cmp")
      Dim destFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Image1_WindowLevel.tif")

      ' Load an image as 8 bits/pixel
      Dim image As RasterImage = codecs.Load(srcFileName, 8, CodecsLoadByteOrder.Rgb, 1, 1)

      ' change the image to be 16-bit grayscale
      Dim grayscaleCmd As GrayscaleCommand = New GrayscaleCommand(16)
      grayscaleCmd.Run(image)

      ' get the lookup table size
      Dim lookupTableSize As Integer = 1 << (image.HighBit - image.LowBit + 1)

      ' get low/hight bits and minimum/maximum value of this grayscale image
      Dim minMaxBitsCmd As MinMaxBitsCommand = New MinMaxBitsCommand()
      minMaxBitsCmd.Run(image)

      Dim lowBit As Integer = minMaxBitsCmd.MinimumBit
      Dim highBit As Integer = minMaxBitsCmd.MaximumBit

      Dim minMaxValuesCmd As MinMaxValuesCommand = New MinMaxValuesCommand()
      minMaxValuesCmd.Run(image)
      Dim minVal As Integer = minMaxValuesCmd.MinimumValue
      Dim maxVal As Integer = minMaxValuesCmd.MaximumValue

      ' create the lookup table
      Dim lookupTable As RasterColor() = New RasterColor(lookupTableSize - 1) {}

      Dim flags As RasterPaletteWindowLevelFlags = RasterPaletteWindowLevelFlags.Inside Or RasterPaletteWindowLevelFlags.Linear

      If image.Signed Then
         flags = flags Or RasterPaletteWindowLevelFlags.Signed
      End If

      ' initialize the fill lookup table parameters
      Dim startColor As RasterColor = RasterColor.FromKnownColor(RasterKnownColor.Red)
      Dim endColor As RasterColor = RasterColor.FromKnownColor(RasterKnownColor.Blue)

      Dim low As Integer = 23000
      Dim high As Integer = 45000
      Dim factor As Integer = 10

      ' fill the lookup table
      RasterPalette.WindowLevelFillLookupTable(lookupTable, startColor, endColor, low, high, lowBit, highBit, minVal, maxVal, factor, flags)

      ' now do window level on the image
      image.WindowLevel(lowBit, highBit, lookupTable, RasterWindowLevelMode.PaintAndProcessing)

      ' save it back on disk
      codecs.Save(image, destFileName, RasterImageFormat.Tif, 16)

      ' Clean up
      image.Dispose()
   End Sub

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

public void WindowLevelFillLookupTableExample()
   {
      RasterCodecs codecs = new RasterCodecs();

      codecs.ThrowExceptionsOnInvalidImages = true;

      string srcFileName = Path.Combine(LEAD_VARS.ImagesDir, "Image1.cmp");
      string destFileName = Path.Combine(LEAD_VARS.ImagesDir, "Image1_WindowLevel.tif");

      // Load an image as 8 bits/pixel
      RasterImage image = codecs.Load(srcFileName, 8, CodecsLoadByteOrder.Rgb, 1, 1);

      // change the image to be 16-bit grayscale
      GrayscaleCommand grayscaleCmd = new GrayscaleCommand(16);
      grayscaleCmd.Run(image);

      // get the lookup table size
      int lookupTableSize = 1 << (image.HighBit - image.LowBit + 1);

      // get low/hight bits and minimum/maximum value of this grayscale image
      MinMaxBitsCommand minMaxBitsCmd = new MinMaxBitsCommand();
      minMaxBitsCmd.Run(image);

      int lowBit = minMaxBitsCmd.MinimumBit;
      int highBit= minMaxBitsCmd.MaximumBit;

      MinMaxValuesCommand minMaxValuesCmd = new MinMaxValuesCommand();
      minMaxValuesCmd.Run(image);
      int minVal = minMaxValuesCmd.MinimumValue;
      int maxVal = minMaxValuesCmd.MaximumValue;

      // create the lookup table
      RasterColor[] lookupTable = new RasterColor[lookupTableSize];

      RasterPaletteWindowLevelFlags flags =
         RasterPaletteWindowLevelFlags.Inside |
         RasterPaletteWindowLevelFlags.Linear;

      if(image.Signed)
         flags |= RasterPaletteWindowLevelFlags.Signed;

      // initialize the fill lookup table parameters
      RasterColor startColor= RasterColor.FromKnownColor(RasterKnownColor.Red);
      RasterColor endColor = RasterColor.FromKnownColor(RasterKnownColor.Blue);

      int low = 23000;
      int high = 45000;
      int factor = 10;

      // fill the lookup table
      RasterPalette.WindowLevelFillLookupTable(
         lookupTable,
         startColor,
         endColor,
         low,
         high,
         lowBit,
         highBit,
         minVal,
         maxVal,
         factor,
         flags);

      // now do window level on the image
      image.WindowLevel(
         lowBit,
         highBit,
         lookupTable,
         RasterWindowLevelMode.PaintAndProcessing);

      // save it back on disk
      codecs.Save(image, destFileName, RasterImageFormat.Tif, 16);

      // Clean up
      image.Dispose();
   }

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

public void WindowLevelFillLookupTableExample(RasterImage image, Stream destStream)
{
   // image should be 8 bits/pixel
   RasterCodecs codecs = new RasterCodecs();
   codecs.ThrowExceptionsOnInvalidImages = true;
   // change the image to be 16-bit grayscale
   GrayscaleCommand grayscaleCmd = new GrayscaleCommand(16);
   grayscaleCmd.Run(image);

   // get the lookup table size
   int lookupTableSize = 1 << (image.HighBit - image.LowBit + 1);

   // get low/hight bits and minimum/maximum value of this grayscale image
   MinMaxBitsCommand minMaxBitsCmd = new MinMaxBitsCommand();
   minMaxBitsCmd.Run(image);

   int lowBit = minMaxBitsCmd.MinimumBit;
   int highBit= minMaxBitsCmd.MaximumBit;

   MinMaxValuesCommand minMaxValuesCmd = new MinMaxValuesCommand();
   minMaxValuesCmd.Run(image);
   int minVal = minMaxValuesCmd.MinimumValue;
   int maxVal = minMaxValuesCmd.MaximumValue;

   // create the lookup table
   RasterColor[] lookupTable = new RasterColor[lookupTableSize];

   RasterPaletteWindowLevelFlags flags =
      RasterPaletteWindowLevelFlags.Inside |
      RasterPaletteWindowLevelFlags.Linear;

   if(image.Signed)
      flags |= RasterPaletteWindowLevelFlags.Signed;

   // initialize the fill lookup table parameters
   RasterColor startColor = RasterColorConverter.FromColor(Colors.Red);
   RasterColor endColor = RasterColorConverter.FromColor(Colors.Blue);

   int low = 23000;
   int high = 45000;
   int factor = 10;

   // fill the lookup table
   RasterPalette.WindowLevelFillLookupTable(
      lookupTable,
      startColor,
      endColor,
      low,
      high,
      lowBit,
      highBit,
      minVal,
      maxVal,
      factor,
      flags);

   // now do window level on the image
   image.WindowLevel(
      lowBit,
      highBit,
      lookupTable,
      RasterWindowLevelMode.PaintAndProcessing);

   // save it back on disk
   codecs.Save(image, destStream, RasterImageFormat.Tif, 16);

   // Clean up
   image.Dispose();
}

Public Sub WindowLevelFillLookupTableExample(ByVal image As RasterImage, ByVal destStream As Stream)
   ' image should be 8 bits/pixel
   Dim codecs As RasterCodecs = New RasterCodecs()
   codecs.ThrowExceptionsOnInvalidImages = True
   ' change the image to be 16-bit grayscale
   Dim grayscaleCmd As GrayscaleCommand = New GrayscaleCommand(16)
   grayscaleCmd.Run(image)

   ' get the lookup table size
   Dim lookupTableSize As Integer = 1 << (image.HighBit - image.LowBit + 1)

   ' get low/hight bits and minimum/maximum value of this grayscale image
   Dim minMaxBitsCmd As MinMaxBitsCommand = New MinMaxBitsCommand()
   minMaxBitsCmd.Run(image)

   Dim lowBit As Integer = minMaxBitsCmd.MinimumBit
   Dim highBit As Integer= minMaxBitsCmd.MaximumBit

   Dim minMaxValuesCmd As MinMaxValuesCommand = New MinMaxValuesCommand()
   minMaxValuesCmd.Run(image)
   Dim minVal As Integer = minMaxValuesCmd.MinimumValue
   Dim maxVal As Integer = minMaxValuesCmd.MaximumValue

   ' create the lookup table
   Dim lookupTable As RasterColor() = New RasterColor(lookupTableSize - 1){}

   Dim flags As RasterPaletteWindowLevelFlags = RasterPaletteWindowLevelFlags.Inside Or RasterPaletteWindowLevelFlags.Linear

   If image.Signed Then
      flags = flags Or RasterPaletteWindowLevelFlags.Signed
   End If

   ' initialize the fill lookup table parameters
   Dim startColor As RasterColor = RasterColorConverter.FromColor(Colors.Red)
   Dim endColor As RasterColor = RasterColorConverter.FromColor(Colors.Blue)

   Dim low As Integer = 23000
   Dim high As Integer = 45000
   Dim factor As Integer = 10

   ' fill the lookup table
   RasterPalette.WindowLevelFillLookupTable(lookupTable, startColor, endColor, low, high, lowBit, highBit, minVal, maxVal, factor, flags)

   ' now do window level on the image
   image.WindowLevel(lowBit, highBit, lookupTable, RasterWindowLevelMode.PaintAndProcessing)

   ' save it back on disk
   codecs.Save(image, destStream, RasterImageFormat.Tif, 16)

   ' Clean up
   image.Dispose()
End Sub