File Coverage

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

Criterion	Covered	Total	%
statement	22	22	100.0
branch	6	6	100.0
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	33	35	94.2

# OK LCH cylindrical color space variant of OKLAB
# Conveter under Copyright (c) 2021 Björn Ottosson, see LICENSE.OK

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

my $TAU = 6.283185307;

sub from_lab {
    my ($lab) = shift;
    my $a = $lab->[1] - .5;
    my $b = $lab->[2] - .5;

    $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 * 2, $h / $TAU]);
}
sub to_lab {
    my ($lch) = shift;
    my $c = $lch->[1] / 2;
    my $a = $c * cos($lch->[2] * $TAU);
    my $b = $c * sin($lch->[2] * $TAU);
    return ([$lch->[0], $a + .5, $b + .5 ]);
}

Graphics::Toolkit::Color::Space->new(
        name => 'OKLCH',
      family => 'HSL',
        axis => [qw/luminance chroma hue/],
        role => [qw/lightness saturation hue/],
        type => [qw/linear linear angular/],
       range => [1, .5, 360],
   precision => [5, 5, 2],
     convert => { OKLAB => [\&to_lab, \&from_lab] },
);