📄 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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -