IccCurveTagType Class

'Declaration
 
Public Class IccCurveTagType 
   Inherits IccTagTypeBase

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

      ' preparing curve data, it consists of domain and range values
      ' if we have 1 value, it should be in the u8Fixed8Number format,
      ' and if we have more than 1 value, their type should be uInt16Number (ushort),
      ' in this example we will use more than 1 value, look at the CS example
      ' 1 value curve data example
      ' for more information about domain and range values refere to 
      ' ICC.1:2004-10 specification page 39.
      Dim myDoubleValue As Double = 1.5
      Dim curveData() As UShort = {1, 2, 3}

      ' in case of 1 value, the value should be in the u8Fixed8Number format, you can accomplish this by
      Dim dummyData As UShort = CType(IccTools.FromDoubleToU8Fixed8Number(myDoubleValue), UShort)

      ' to read the value back from the curve data use the following function
      myDoubleValue = IccTools.FromU8Fixed8NumberToDouble(dummyData)

      ' create the new iccCurveType
      Dim iccCurve As New IccCurve(curveData)

      ' define the tag type
      Dim iccCurveTagType As New IccCurveTagType(iccCurve)

      ' insert the new tag type into the Icc Profile
      iccProfile.AddTag(iccCurveTagType, IccTag.GrayTRCTag, IccTagTypeBase.CurveTypeSignature)

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

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