File Coverage

lib/Graphics/Toolkit/Color/Space/Instance/CIELCHab.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch	6	6	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	32	34	94.1

# CIE LCh(ab) cylindrical color space variant of CIELAB

package Graphics::Toolkit::Color::Space::Instance::CIELCHab;
use v5.12;
use warnings;
use Graphics::Toolkit::Color::Space qw/round_decimals/;

my $TAU = 6.283185307;

sub from_lch {
    my ($lch) = shift;
    my $a = $lch->[1] * cos($lch->[2] * $TAU) * 539;
    my $b = $lch->[1] * sin($lch->[2] * $TAU) * 539;
    return ([$lch->[0], ($a+500) / 1000, ($b+200) / 400 ]);
}
sub to_lch {
    my ($lab) = shift;
    my $a = $lab->[1] * 1000 - 500;
    my $b = $lab->[2] *  400 - 200;

    $a = 0 if round_decimals($a, 5) == 0;
    $b = 0 if round_decimals($b, 5) == 0;
    my $c = sqrt( ($a**2) + ($b**2));
    my $h = atan2($b, $a);
    $h += $TAU if $h < 0;
    return ([$lab->[0], $c / 539, $h / $TAU]);
}

Graphics::Toolkit::Color::Space->new(
            name => 'LCH',
      alias_name => 'CIELCHab',
          family => 'HSL',
            axis => [qw/luminance chroma hue/],
            role => [qw/lightness saturation hue/],
            type => [qw/linear linear angular/],
           range => [100, 539, 360],
       precision => 3,
         convert => { LAB => [\&from_lch, \&to_lch] },
);