Public Shared Sub WindowLevelFillLookupTableExt( _
   ByVal lookupTable() As RasterColor16, _
   ByVal startColor As RasterColor16, _
   ByVal endColor As RasterColor16, _
   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 RasterColor16
Dim startColor As RasterColor16
Dim endColor As RasterColor16
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.WindowLevelFillLookupTableExt(lookupTable, startColor, endColor, low, high, lowBit, highBit, minValue, maxValue, factor, flags)

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

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

Public Sub WindowLevelFillLookupTableExampleExt()
      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 16-bit grayscale
      Dim image As RasterImage = codecs.Load(srcFileName, 16, CodecsLoadByteOrder.Gray, 1, 1)

      ' 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 RasterColor16() = New RasterColor16(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 RasterColor16 = New RasterColor16(RasterColor16.MaximumComponent, 0, 0) ' Red
      Dim endColor As RasterColor16 = New RasterColor16(0, 0, RasterColor16.MaximumComponent) ' Blue

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

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

      ' now do window level on the image
      image.WindowLevelExt(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 WindowLevelFillLookupTableExtExample()
   {
      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 16 bit grayscale
      RasterImage image = codecs.Load(srcFileName, 16, CodecsLoadByteOrder.Gray, 1, 1);

      // 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
      RasterColor16[] lookupTable = new RasterColor16[lookupTableSize];

      RasterPaletteWindowLevelFlags flags =
         RasterPaletteWindowLevelFlags.Inside |
         RasterPaletteWindowLevelFlags.Linear;

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

      // initialize the fill lookup table parameters
      RasterColor16 startColor = new RasterColor16(RasterColor16.MaximumComponent, 0, 0); // red
      RasterColor16 endColor = new RasterColor16(0, 0, RasterColor16.MaximumComponent); // blue

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

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

      // now do window level on the image
      image.WindowLevelExt(
         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 WindowLevelFillLookupTableExtExample(RasterImage image, Stream destStream)
{
   // image should be 16 bit grayscale
   RasterCodecs codecs = new RasterCodecs();
   codecs.ThrowExceptionsOnInvalidImages = true;
   // 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
   RasterColor16[] lookupTable = new RasterColor16[lookupTableSize];

   RasterPaletteWindowLevelFlags flags =
      RasterPaletteWindowLevelFlags.Inside |
      RasterPaletteWindowLevelFlags.Linear;

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

   // initialize the fill lookup table parameters
   RasterColor16 startColor = new RasterColor16(RasterColor16.MaximumComponent, 0, 0); // red
   RasterColor16 endColor = new RasterColor16(0, 0, RasterColor16.MaximumComponent); // blue

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

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

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

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

   // Clean up
   image.Dispose();
}

Public Sub WindowLevelFillLookupTableExtExample(ByVal image As RasterImage, ByVal destStream As Stream)
   ' image should be 16 bit grayscale
   Dim codecs As RasterCodecs = New RasterCodecs()
   codecs.ThrowExceptionsOnInvalidImages = True
   ' 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 RasterColor16() = New RasterColor16(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 RasterColor16 = New RasterColor16(RasterColor16.MaximumComponent, 0, 0) ' red
   Dim endColor As RasterColor16 = New RasterColor16(0, 0, RasterColor16.MaximumComponent) ' blue

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

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

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

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

   ' Clean up
   image.Dispose()
End Sub