X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FConvert%2FColor%2FLUV.pm;h=af09d7977d5e167dde17612841c5532c8ae791c3;hb=a17d2402f10384cb86b2b33118be1b0c2eb47024;hp=bc4d8549392900b5b7a28cb5b5e535b596e758f3;hpb=6bf4f934c8fb4150c09a13ea6d4147ce579c25df;p=convert-color-husl.git diff --git a/lib/Convert/Color/LUV.pm b/lib/Convert/Color/LUV.pm index bc4d854..af09d79 100644 --- a/lib/Convert/Color/LUV.pm +++ b/lib/Convert/Color/LUV.pm @@ -7,7 +7,7 @@ use parent qw/Convert::Color/; use Convert::Color::XYZ; -our $VERSION = '0.002'; +our $VERSION = '1.000'; use constant +{ ## no critic (Capitalization) KAPPA => (29/3) ** 3, @@ -54,7 +54,7 @@ sub convert_to_xyz { my $var_v = $v / (13 * $l) + REF_V; my $y = _l_to_y $l; my $x = 9 * $y * $var_u / (4 * $var_v); - my $z = (9 * $y - (14 * $var_v * $y) - ($var_v * $x)) / (3 * $var_v); + my $z = (9 * $y - (15 * $var_v * $y) - ($var_v * $x)) / (3 * $var_v); Convert::Color::XYZ->new($x, $y, $z) }