IccLookupTable16TagType Class

'Declaration
 
Public Class IccLookupTable16TagType 
   Inherits IccTagTypeBase

Public Sub IccLookupTable16TagTypeExample()
      ' load an Icc Profile
      Dim iccProfile As New IccProfileExtended(Path.Combine(LEAD_VARS.ImagesDir, "EmptyIcc.icc"))

      ' these arrays should be filled with the appropriate data
      ' input table will be (InputChannels(3) * InputEntries(2)) shorts
      ' output table will be (OutputChannels(3) * OutputEntries(2)) shorts
      ' clut table will be ((CLUTPoints(8) ^ InputChannels(3)) * OutputChannels(3)) shorts
      Dim inputTables(5) As UShort
      Dim colorLUTTables(1535) As UShort
      Dim outputTables(5) As UShort

      ' fill the tables
      inputTables(0) = 0
      inputTables(1) = 65535
      inputTables(2) = 0
      inputTables(3) = 65535
      inputTables(4) = 0
      inputTables(5) = 65535

      outputTables(0) = 0
      outputTables(1) = 65535
      outputTables(2) = 0
      outputTables(3) = 65535
      outputTables(4) = 0
      outputTables(5) = 65535

      Dim nI As Integer = 0
      Dim rI As Integer = 0
      Dim gI As Integer = 0
      Dim bI As Integer = 0

      For rI = 0 To 255 Step +32
         For gI = 0 To 255 Step +32
            For bI = 0 To 255 Step +32
               colorLUTTables(nI) = CUShort(Math.Min(Math.Max(0, rI * 256), 65535))
               nI = nI + 1
               colorLUTTables(nI) = CUShort(Math.Min(Math.Max(0, gI * 256), 65535))
               nI = nI + 1
               colorLUTTables(nI) = CUShort(Math.Min(Math.Max(0, bI * 256), 65535))
               nI = nI + 1
            Next bI
         Next gI
      Next rI

      ' create new IccLookupTable16 class
      Dim iccCLUT16 As New IccLookupTable16(3, 3, 8, _
            IccTools.FromDoubleTo2bFixed2bNumber(1.0), _
            IccTools.FromDoubleTo2bFixed2bNumber(0.0), _
            IccTools.FromDoubleTo2bFixed2bNumber(0.0), _
            IccTools.FromDoubleTo2bFixed2bNumber(0.0), _
            IccTools.FromDoubleTo2bFixed2bNumber(1.0), _
            IccTools.FromDoubleTo2bFixed2bNumber(0.0), _
            IccTools.FromDoubleTo2bFixed2bNumber(0.0), _
            IccTools.FromDoubleTo2bFixed2bNumber(0.0), _
            IccTools.FromDoubleTo2bFixed2bNumber(1.0), _
            inputTables, _
            colorLUTTables, _
            outputTables)

      ' define the tag type
      Dim iccCLUT16TagType As New IccLookupTable16TagType(iccCLUT16)

      ' add the new tag to the ICC Profile
      iccProfile.AddTag(iccCLUT16TagType, IccTag.BToA0Tag, IccTagTypeBase.Lut16TypeSignature)

      ' generate the new profile id
      iccProfile.GenerateProfileId()

      ' update the icc array with the new changes
      iccProfile.UpdateDataArray()

      ' write the Icc Profile into a new file
      iccProfile.GenerateIccFile(Path.Combine(LEAD_VARS.ImagesDir, "IccLookupTable16TagTypeVB.icc"))
   End Sub

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