create.pas

下载来的一个看图软件的源代码

PROGRAM CreateProfile;
USES lcmsdll, Windows;


VAR
        Primaries:  cmsCIExyYTRIPLE;
        WhitePoint: cmsCIExyY;
        GammaTables: ARRAY [1..3] OF LPGAMMATABLE;
        TheProfile: cmsHPROFILE;


BEGIN

        WriteLn('Creation of profile TEST.ICM...');

        {Fill in primaries (Rec709 as example) }

        Primaries.Red.x := 0.6400;
        Primaries.Red.y := 0.3300;
        Primaries.Red.YY := 1.0;

        Primaries.Green.x := 0.3000;
        Primaries.Green.y := 0.6000;
        Primaries.Green.YY := 1.0;

        Primaries.Blue.x := 0.1500;
        Primaries.Blue.y := 0.0600;
        Primaries.Blue.YY := 1.0;


        {Calculates white point from temperature}
        {That is, 6504