projects / convert-color-husl.git / blame
| Commit | Line | Data |
|---|---|---|
| 1f72b051 MG |
1 | package Convert::Color::HUSLp; |
| 2 | ||
| 4e59696a | 3 | use 5.008009; |
| 1f72b051 MG |
4 | use strict; |
| 5 | use warnings; | |
| 6 | use parent qw/Convert::Color::HUSL/; | |
| 7 | ||
| 8 | use Convert::Color::XYZ; | |
| 9 | use Convert::Color::LUV; | |
| 10 | use Convert::Color::LCh; | |
| 11 | use List::Util qw/min/; | |
| 12 | use Math::Trig qw/:pi/; | |
| 13 | ||
| 14 | BEGIN { | |
| 15 | *_get_bounds = *Convert::Color::HUSL::_get_bounds; ## no critic (ProtectPrivate) | |
| 16 | } | |
| 17 | ||
| a17d2402 | 18 | our $VERSION = '1.000'; |
| 1f72b051 MG |
19 | |
| 20 | __PACKAGE__->register_color_space('huslp'); | |
| 21 | ||
| 22 | sub _intersect_line_line { | |
| 23 | my ($l1, $l2) = @_; | |
| 24 | ($l1->[1] - $l2->[1]) / ($l2->[0] - $l1->[0]) | |
| 25 | } | |
| 26 | ||
| 27 | sub _distance_from_pole { | |
| 28 | my ($x, $y) = @_; | |
| 29 | sqrt $x * $x + $y * $y | |
| 30 | } | |
| 31 | ||
| 32 | sub max_chroma_for_lh { | |
| 33 | my ($self, $l) = @_; | |
| 34 | min map { | |
| 35 | my ($m, $n) = @$_; | |
| 36 | my $x = _intersect_line_line $_, [-1 / $m, 0]; | |
| 37 | _distance_from_pole $x, $n + $x * $m | |
| 38 | } _get_bounds $l | |
| 39 | } | |
| 40 | ||
| 41 | 1; | |
| 42 | __END__ | |
| 43 | ||
| 44 | =encoding utf-8 | |
| 45 | ||
| 46 | =head1 NAME | |
| 47 | ||
| 48 | Convert::Color::HUSLp - a color value in the HUSLp color space | |
| 49 | ||
| 50 | =head1 SYNOPSIS | |
| 51 | ||
| 52 | use Convert::Color::HUSLp; | |
| 53 | my $reddish = Convert::Color::HUSLp->new(12.17705, 100, 53.23712); | |
| 54 | my $greenish = Convert::Color::HUSLp->new('127.71501,100,87.73552'); | |
| 55 | ||
| 56 | use Convert::Color; | |
| 57 | my $bluish = Convert::Color->new('huslp:265.87432,100,32.30087'); | |
| 58 | ||
| 59 | say $reddish->H; # 12.17705 | |
| 60 | say $reddish->S; # 100 | |
| 61 | say $reddish->L; # 53.23712 | |
| 62 | say join ',', $bluish->hsl; # 265.87432,100,32.30087 | |
| 63 | ||
| 64 | =head1 DESCRIPTION | |
| 65 | ||
| d1ec9979 | 66 | Objects of this class represent colors in the HUSLp color space, revision 4. |
| 1f72b051 MG |
67 | |
| 68 | Methods: | |
| 69 | ||
| 70 | =over | |
| 71 | ||
| 72 | =item Convert::Color::HUSLp->B<new>(I<$h>, I<$s>, I<$l>) | |
| 73 | ||
| 74 | Construct a color from its components. | |
| 75 | ||
| 76 | =item Convert::Color::HUSLp->B<new>(I<"$h,$s,$l">) | |
| 77 | ||
| 78 | Construct a color from a string. The string should contain the three | |
| 79 | components, separated by commas. | |
| 80 | ||
| 81 | =item $huslp->B<H> | |
| 82 | ||
| 83 | =item $huslp->B<S> | |
| 84 | ||
| 85 | =item $huslp->B<L> | |
| 86 | ||
| 87 | Accessors for the three components of the color. | |
| 88 | ||
| 89 | =item $huslp->B<hsl> | |
| 90 | ||
| 91 | Returns the three components as a list. | |
| 92 | ||
| 93 | =back | |
| 94 | ||
| 95 | =head1 SEE ALSO | |
| 96 | ||
| 97 | L<Convert::Color>, L<http://www.husl-colors.org/> | |
| 98 | ||
| 99 | =head1 AUTHOR | |
| 100 | ||
| 101 | Marius Gavrilescu, E<lt>marius@ieval.roE<gt> | |
| 102 | ||
| 103 | =head1 COPYRIGHT AND LICENSE | |
| 104 | ||
| 105 | Copyright (C) 2015 by Marius Gavrilescu | |
| 106 | ||
| 107 | This library is free software; you can redistribute it and/or modify | |
| 108 | it under the same terms as Perl itself, either Perl version 5.20.2 or, | |
| 109 | at your option, any later version of Perl 5 you may have available. | |
| 110 | ||
| 111 | ||
| 112 | =cut |