IccNamedColor2TagType Class

'Declaration
 
Public Class IccNamedColor2TagType 
   Inherits IccTagTypeBase

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