IccLookupTable16TagType Class

Imports Leadtools
Imports Leadtools.ColorConversion

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