]>
iEval git - convert-color-hsluv.git/blob - lib/Convert/Color/LCh.pm
83cf1bf6fa0945ec1fb50385cd05c08b279821cd
1 package Convert
::Color
::LCh
;
6 use parent qw
/Convert::Color/;
8 our $VERSION = '0.001';
10 use Convert
::Color
::LUV
;
13 __PACKAGE__
->register_color_space('lch');
16 my ($class, $l, $c, $h) = @_;
17 ($l, $c, $h) = split /,/s, $l unless defined $c;
18 bless [$l, $c, $h], $class
29 my ($l, $c, $h) = @
$self;
30 my $hrad = $h / 180 * pi
;
31 my $u = $c * cos $hrad;
32 my $v = $c * sin $hrad;
33 Convert
::Color
::LUV
->new($l, $u, $v)
37 my ($class, $luv) = @_;
38 my ($l, $u, $v) = @
$luv;
39 my $c = sqrt $u * $u + $v * $v;
40 my $hrad = atan2 $v, $u;
41 my $h = $hrad * 180 / pi
;
43 $class->new($l, $c, $h)
46 sub rgb
{ shift->convert_to_luv->rgb }
47 sub new_rgb
{ shift->new_from_luv(Convert
::Color
::LUV
->new_rgb(@_)) }
56 Convert::Color::LCh - a color value in the CIE LCh color space
60 use Convert::Color::LCh;
61 my $red = Convert::Color::LCh->new(53.23712, 179.03810, 12.17705);
62 my $green = Convert::Color::LCh->new('87.73552,135.78953,127.71501');
65 my $blue = Convert::Color->new('lch:32.30087,130.68975,265.87432');
67 say $red->L; # 53.23712
68 say $red->C; # 179.03810
69 say $red->h; # 12.17705
70 say join ',', $blue->lch; # 32.30087,130.68975,265.87432
74 Objects of this class represent colors in the CIE LCh color space.
80 =item Convert::Color::LCh->B<new>(I<$l>, I<$c>, I<$h>)
82 Construct a color from its components.
84 =item Convert::Color::LCh->B<new>(I<"$l,$c,$h">)
86 Construct a color from a string. The string should contain the three
87 components, separated by commas.
95 Accessors for the three components of the color.
99 Returns the three components as a list.
109 Marius Gavrilescu, E<lt>marius@ieval.roE<gt>
111 =head1 COPYRIGHT AND LICENSE
113 Copyright (C) 2015 by Marius Gavrilescu
115 This library is free software; you can redistribute it and/or modify
116 it under the same terms as Perl itself, either Perl version 5.20.2 or,
117 at your option, any later version of Perl 5 you may have available.
This page took 0.051955 seconds and 4 git commands to generate.