IccLookupTable8TagType Class

'Declaration
 
Public Class IccLookupTable8TagType 
   Inherits IccTagTypeBase

Public Sub IccLookupTable8TagTypeExample()
      ' 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 (IntputChannels(3) * 256) bytes
      ' output table will be (OutputChannels(3) * 256) bytes
      ' clut table will be ((CLUTPoints(8) ^ InputChannels(3)) * OutputChannels(3)) bytes
      Dim inputTables(767) As Byte
      Dim colorLUTTables(1535) As Byte
      Dim outputTables(767) As Byte

      ' fill the tables
      Dim nCntr As Integer
      For nCntr = 0 To 255
         inputTables(nCntr) = CByte(nCntr)
         inputTables(nCntr + 256) = CByte(nCntr)
         inputTables(nCntr + 512) = CByte(nCntr)

         outputTables(nCntr) = CByte(nCntr)
         outputTables(nCntr + 256) = CByte(nCntr)
         outputTables(nCntr + 512) = CByte(nCntr)
      Next nCntr

      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) = CByte((Math.Min(Math.Max(0, rI * 256), 65535) / 256))
               nI = nI + 1
               colorLUTTables(nI) = CByte((Math.Min(Math.Max(0, gI * 256), 65535) / 256))
               nI = nI + 1
               colorLUTTables(nI) = CByte((Math.Min(Math.Max(0, bI * 256), 65535) / 256))
               nI = nI + 1
            Next bI
         Next gI
      Next rI

      ' create new IccLookupTable8 class
      Dim iccLUT8 As New IccLookupTable8(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 iccLUT8TagType As New IccLookupTable8TagType(iccLUT8)

      ' add the new tag to the ICC Profile
      iccProfile.AddTag(iccLUT8TagType, IccTag.BToA1Tag, IccTagTypeBase.Lut8TypeSignature)

      ' 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, "IccLookupTable8TagTypeVB.icc"))
   End Sub

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