#

# Sample: Creates and saves a matrix-shaper profile

#



from lcms import *



Rec709Primaries = cmsCIExyYTRIPLE(cmsCIExyY(0.6400, 0.3300, 1.0),

                                  cmsCIExyY(0.3000, 0.6000, 1.0),

                                  cmsCIExyY(0.1500, 0.0600, 1.0))





Gamma22 = GAMMATABLE(2.2, 4096)

D65 = cmsCIExyY()

cmsWhitePointFromTemp(6504, D65)



hVirtual_sRGB = cmsCreateRGBProfile(D65,

                             Rec709Primaries,

                            (Gamma22, Gamma22, Gamma22));







#

# This should probably be bettered somehow...

#



icSigProfileDescriptionTag  = icTagSignature(0x64657363)

text = StrPointer("Sample sRGB profile")





cmsAddTag(hVirtual_sRGB, icSigProfileDescriptionTag, text)





cmsSaveProfile(hVirtual_sRGB, "Virtual_sRGB.icm")



cmsCloseProfile(hVirtual_sRGB)





