WindowLevelExtCommand Class

Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.ImageProcessing
Imports Leadtools.ImageProcessing.Core

Public Sub WindowLevelExtCommandExample()
   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 WindowLevelExtCommand = New WindowLevelExtCommand
   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 RasterColor16
   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 RasterColor16(RasterColor16.MaximumComponent, 0, 0)
   Next

   ' fill the rest with gray values.
   For x = Size \ 2 To Size - 1
      Dim y As Integer = Convert.ToInt32((x - minValue) * RasterColor16.MaximumComponent / (maxValue - minValue))
      LookupTable(x) = New RasterColor16(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

Imports Leadtools
Imports Leadtools.Codecs
Imports Leadtools.ImageProcessing.Core

Public Sub WindowLevelExtCommandExample(ByVal image As RasterImage, ByVal outStream As Stream)
   ' Prepare the command
   Dim x As Integer
   Dim y As Integer
   Dim Size As Integer
   Dim LookupTable As RasterColor16()
   Dim MinMaxBits As MinMaxBitsCommand = New MinMaxBitsCommand()
   Dim MinMaxValues As MinMaxValuesCommand = New MinMaxValuesCommand()
   Dim command As WindowLevelExtCommand = New WindowLevelExtCommand()

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

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

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

   ' fill the rest with gray values.
   x = Size / 2
   Do While x < Size
      y = CInt((x - MinMaxValues.MinimumValue) * RasterColor16.MaximumComponent / (MinMaxValues.MaximumValue - MinMaxValues.MinimumValue))
      LookupTable(x) = New RasterColor16(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