From 00e063a53708d76f2a54ce1eaf20638681336f03 Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Wed, 17 Jun 2015 16:04:53 +0300 Subject: [PATCH] Set h to 0 when C is very small --- lib/Convert/Color/LCh.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/lib/Convert/Color/LCh.pm b/lib/Convert/Color/LCh.pm index 83cf1bf..3632729 100644 --- a/lib/Convert/Color/LCh.pm +++ b/lib/Convert/Color/LCh.pm @@ -37,6 +37,7 @@ sub new_from_luv { my ($class, $luv) = @_; my ($l, $u, $v) = @$luv; my $c = sqrt $u * $u + $v * $v; + return $class->new($l, $c, 0) if $c < 0.00000001; my $hrad = atan2 $v, $u; my $h = $hrad * 180 / pi; $h += 360 if $h < 0; -- 2.39.2