IccNamedColor2TagType Class

Imports Leadtools
Imports Leadtools.ColorConversion

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

   ' define the color root names
   Dim colorRootName1(31) As Byte
   colorRootName1(0) = CByte(AscW("a"c))
   colorRootName1(1) = CByte(AscW("n"c))
   colorRootName1(2) = CByte(AscW("y"c))
   colorRootName1(3) = CByte(AscW(" "c))
   colorRootName1(4) = CByte(AscW("n"c))
   colorRootName1(5) = CByte(AscW("a"c))
   colorRootName1(6) = CByte(AscW("m"c))
   colorRootName1(7) = CByte(AscW("e"c))
   colorRootName1(8) = CByte(AscW("1"c))
   colorRootName1(9) = 0

   Dim colorRootName2(31) As Byte
   colorRootName2(0) = CByte(AscW("a"c))
   colorRootName2(1) = CByte(AscW("n"c))
   colorRootName2(2) = CByte(AscW("y"c))
   colorRootName2(3) = CByte(AscW(" "c))
   colorRootName2(4) = CByte(AscW("n"c))
   colorRootName2(5) = CByte(AscW("a"c))
   colorRootName2(6) = CByte(AscW("m"c))
   colorRootName2(7) = CByte(AscW("e"c))
   colorRootName2(8) = CByte(AscW("2"c))
   colorRootName2(9) = 0

   ' define color PCS coordinates, must be 3 values only
   Dim colorPCSCoords() As UShort = {1, 2, 3}

   ' and then define the Device coordinates
   Dim colorDEVCoords() As UShort = {4, 3, 2, 1}

   ' define two named color data
   Dim namedColors() As IccNamedColor2Data = { _
      New IccNamedColor2Data(colorRootName1, colorPCSCoords, colorDEVCoords), _
      New IccNamedColor2Data(colorRootName2, colorPCSCoords, colorDEVCoords)}

   ' any vendor flag
   Dim vendorFlag As Integer = &H1234

   ' the prefix for each color name, must be 32 bytes
   Dim prefix(31) As Byte
   prefix(0) = CByte(AscW("a"c))
   prefix(1) = CByte(AscW("n"c))
   prefix(2) = CByte(AscW("y"c))
   prefix(3) = CByte(AscW(" "c))
   prefix(4) = CByte(AscW("p"c))
   prefix(5) = CByte(AscW("r"c))
   prefix(6) = CByte(AscW("e"c))
   prefix(7) = CByte(AscW("f"c))
   prefix(8) = CByte(AscW("i"c))
   prefix(9) = CByte(AscW("x"c))
   prefix(10) = 0

   ' the suffix for each color name, must be 32 bytes
   Dim suffix(31) As Byte
   suffix(0) = CByte(AscW("a"c))
   suffix(1) = CByte(AscW("n"c))
   suffix(2) = CByte(AscW("y"c))
   suffix(3) = CByte(AscW(" "c))
   suffix(4) = CByte(AscW("s"c))
   suffix(5) = CByte(AscW("u"c))
   suffix(6) = CByte(AscW("f"c))
   suffix(7) = CByte(AscW("f"c))
   suffix(8) = CByte(AscW("i"c))
   suffix(9) = CByte(AscW("x"c))
   suffix(10) = 0

   ' create the IccNamedColor2 class
   Dim namedColor2 As New IccNamedColor2(vendorFlag, prefix, suffix, namedColors)

   ' define the tag type
   Dim namedColor2TagType As New IccNamedColor2TagType(namedColor2)

   ' add the new tag to the ICC Profile
   iccProfile.AddTag(namedColor2TagType, IccTag.NamedColor2Tag, IccTagTypeBase.NamedColor2TypeSignature)

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

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