adjust t_xyz2lab for correct temperature of 6504K

PDLPorters · Jan 23, 2022 · 3b13d1b · 3b13d1b
1 parent 9b55b2a
commit 3b13d1b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/lib/PDL/Transform/Color.pm b/lib/PDL/Transform/Color.pm
@@ -2152,7 +2152,7 @@ sub xyy_from_D {
 	$u_opt);
 
     die "cie_xy_from_D: D must be between 40 and 250" if(any($D< 40) || any($D > 250));
-    my $T = $D*100;
+    my $T = $D*100 * 1.4388/1.438; # adjust for 6504K not 6500K
 
     my $Xd;
     $Xd = ($D<=70) * ( 0.244063 + 0.09911e3/$T + 2.9678e6/$T/$T - 4.6070e9/$T/$T/$T ) +

diff --git a/t/color.t b/t/color.t
@@ -178,6 +178,6 @@ eval {$t = t_xyz2lab();};
 is $@, '', "t_xyz2lab ran OK";
 eval {$b=pdl(1,1,1)->apply($t);};
 is $@, '', "t_xyz2lab applied OK";
-ok all(approx $b, pdl(100, 8.5841461, 5.5183538)), 't_xyz2lab right values' or diag "got=$b";
+ok all(approx $b, pdl(100, 8.5859237, 5.5509345)), 't_xyz2lab right values' or diag "got=$b";
 
 done_testing;