Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package perl-Graphics-Toolkit-Color for
openSUSE:Factory checked in at 2023-01-04 17:54:33
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/perl-Graphics-Toolkit-Color (Old)
and /work/SRC/openSUSE:Factory/.perl-Graphics-Toolkit-Color.new.1563 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "perl-Graphics-Toolkit-Color"
Wed Jan 4 17:54:33 2023 rev:2 rq:1055928 version:1.05
Changes:
--------
---
/work/SRC/openSUSE:Factory/perl-Graphics-Toolkit-Color/perl-Graphics-Toolkit-Color.changes
2022-11-17 17:24:32.389076651 +0100
+++
/work/SRC/openSUSE:Factory/.perl-Graphics-Toolkit-Color.new.1563/perl-Graphics-Toolkit-Color.changes
2023-01-04 17:55:07.743075036 +0100
@@ -1,0 +2,13 @@
+Sun Jan 1 03:09:43 UTC 2023 - Tina Müller <timueller+p...@suse.de>
+
+- updated to 1.05
+ see /usr/share/doc/packages/perl-Graphics-Toolkit-Color/Changes
+
+ 1.05 2022-12-31 lichtkind
+ -------
+ * = fixes
+ * + added getters for data hashes
+ * ? cleaned some sentences and comments
+ * ? synopsis cleanup
+
+-------------------------------------------------------------------
Old:
----
Graphics-Toolkit-Color-1.04.tar.gz
New:
----
Graphics-Toolkit-Color-1.05.tar.gz
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-Graphics-Toolkit-Color.spec ++++++
--- /var/tmp/diff_new_pack.BFC4kB/_old 2023-01-04 17:55:08.095077111 +0100
+++ /var/tmp/diff_new_pack.BFC4kB/_new 2023-01-04 17:55:08.099077134 +0100
@@ -1,7 +1,7 @@
#
# spec file for package perl-Graphics-Toolkit-Color
#
-# Copyright (c) 2022 SUSE LLC
+# Copyright (c) 2023 SUSE LLC
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -18,7 +18,7 @@
%define cpan_name Graphics-Toolkit-Color
Name: perl-Graphics-Toolkit-Color
-Version: 1.04
+Version: 1.05
Release: 0
License: Artistic-1.0 OR GPL-1.0-or-later
Summary: Color palette creation helper
++++++ Graphics-Toolkit-Color-1.04.tar.gz -> Graphics-Toolkit-Color-1.05.tar.gz
++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Graphics-Toolkit-Color-1.04/Changes
new/Graphics-Toolkit-Color-1.05/Changes
--- old/Graphics-Toolkit-Color-1.04/Changes 2022-11-04 20:22:23.000000000
+0100
+++ new/Graphics-Toolkit-Color-1.05/Changes 2022-12-31 18:01:58.000000000
+0100
@@ -1,3 +1,10 @@
+1.05 2022-12-31 lichtkind
+-------
+ * = fixes
+ * + added getters for data hashes
+ * ? cleaned some sentences and comments
+ * ? synopsis cleanup
+
1.04 2022-11-04 lichtkind
-------
* = fixes
@@ -22,7 +29,6 @@
* = fixes
* ? mention VACCC and other additional color palettes
* ! loading from Graphics::ColorNames::* via 'palette_name:color_name' was
actually broken
-
1.0 2022-10-04 lichtkind
-------
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Graphics-Toolkit-Color-1.04/MANIFEST
new/Graphics-Toolkit-Color-1.05/MANIFEST
--- old/Graphics-Toolkit-Color-1.04/MANIFEST 2022-11-04 20:22:23.000000000
+0100
+++ new/Graphics-Toolkit-Color-1.05/MANIFEST 2022-12-31 18:01:58.000000000
+0100
@@ -15,3 +15,4 @@
t/01_color_value.t
t/02_color_constant.t
t/03_color.t
+xt/author/pod-syntax.t
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Graphics-Toolkit-Color-1.04/META.json
new/Graphics-Toolkit-Color-1.05/META.json
--- old/Graphics-Toolkit-Color-1.04/META.json 2022-11-04 20:22:23.000000000
+0100
+++ new/Graphics-Toolkit-Color-1.05/META.json 2022-12-31 18:01:58.000000000
+0100
@@ -24,6 +24,11 @@
"ExtUtils::MakeMaker" : "0"
}
},
+ "develop" : {
+ "requires" : {
+ "Test::Pod" : "1.41"
+ }
+ },
"runtime" : {
"requires" : {
"Carp" : "1.35",
@@ -44,15 +49,15 @@
"provides" : {
"Graphics::Toolkit::Color" : {
"file" : "lib/Graphics/Toolkit/Color.pm",
- "version" : "1.04"
+ "version" : "1.05"
},
"Graphics::Toolkit::Color::Constant" : {
"file" : "lib/Graphics/Toolkit/Color/Constant.pm",
- "version" : "1.04"
+ "version" : "1.05"
},
"Graphics::Toolkit::Color::Value" : {
"file" : "lib/Graphics/Toolkit/Color/Value.pm",
- "version" : "1.04"
+ "version" : "1.05"
}
},
"release_status" : "stable",
@@ -63,7 +68,7 @@
"web" : "https://github.com/lichtkind/Graphics-Color-Toolkit";
}
},
- "version" : "1.04",
+ "version" : "1.05",
"x_generated_by_perl" : "v5.30.0",
"x_serialization_backend" : "Cpanel::JSON::XS version 4.19",
"x_spdx_expression" : "Artistic-1.0-Perl OR GPL-1.0-or-later"
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Graphics-Toolkit-Color-1.04/META.yml
new/Graphics-Toolkit-Color-1.05/META.yml
--- old/Graphics-Toolkit-Color-1.04/META.yml 2022-11-04 20:22:23.000000000
+0100
+++ new/Graphics-Toolkit-Color-1.05/META.yml 2022-12-31 18:01:58.000000000
+0100
@@ -20,20 +20,20 @@
provides:
Graphics::Toolkit::Color:
file: lib/Graphics/Toolkit/Color.pm
- version: '1.04'
+ version: '1.05'
Graphics::Toolkit::Color::Constant:
file: lib/Graphics/Toolkit/Color/Constant.pm
- version: '1.04'
+ version: '1.05'
Graphics::Toolkit::Color::Value:
file: lib/Graphics/Toolkit/Color/Value.pm
- version: '1.04'
+ version: '1.05'
requires:
Carp: '1.35'
Exporter: '5'
perl: v5.12.0
resources:
repository: git://github.com/lichtkind/Graphics-Color-Toolkit.git
-version: '1.04'
+version: '1.05'
x_generated_by_perl: v5.30.0
x_serialization_backend: 'YAML::Tiny version 1.73'
x_spdx_expression: 'Artistic-1.0-Perl OR GPL-1.0-or-later'
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Graphics-Toolkit-Color-1.04/Makefile.PL
new/Graphics-Toolkit-Color-1.05/Makefile.PL
--- old/Graphics-Toolkit-Color-1.04/Makefile.PL 2022-11-04 20:22:23.000000000
+0100
+++ new/Graphics-Toolkit-Color-1.05/Makefile.PL 2022-12-31 18:01:58.000000000
+0100
@@ -24,7 +24,7 @@
"Test::More" => "1.3",
"Test::Warn" => "0.30"
},
- "VERSION" => "1.04",
+ "VERSION" => "1.05",
"test" => {
"TESTS" => "t/*.t"
}
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Graphics-Toolkit-Color-1.04/README
new/Graphics-Toolkit-Color-1.05/README
--- old/Graphics-Toolkit-Color-1.04/README 2022-11-04 20:22:23.000000000
+0100
+++ new/Graphics-Toolkit-Color-1.05/README 2022-12-31 18:01:58.000000000
+0100
@@ -2,12 +2,12 @@
Graphics::Toolkit::Color - color palette creation helper
SYNOPSIS
- my $red = Graphics::Toolkit::Color->new('red');
- say $red->add('blue')->name; # 'magenta', mixed in RGB
space
- Graphics::Toolkit::Color->new( 0, 0, 255)->hsl # 240, 100, 50 = blue
- $blue->blend_with({H=> 0, S=> 0, L=> 80}, 0.1);# mix blue with a
little grey
- $red->gradient( '#0000FF', 10); # 10 colors from red to blue
- $red->complementary( 3 ); # get fitting red green and
blue
+ my $red = Graphics::Toolkit::Color->new('red'); # create color object
+ say $red->add('blue')->name; # mix in RGB: 'magenta'
+ Graphics::Toolkit::Color->new( 0, 0, 255)->hsl; # 240, 100, 50 = blue
+ $blue->blend_with({H=> 0, S=> 0, L=> 80}, 0.1); # mix blue with a
little grey in HSL
+ $red->gradient_to( '#0000FF', 10); # 10 colors from red
to blue
+ $red->complementary( 3 ); # get fitting red
green and blue
DESCRIPTION
Each object has 7 attributes, which are its RGB and HSL values and if
@@ -43,7 +43,7 @@
as above.
my $color = Graphics::Toolkit::Color->new('SVG:green');
- my @s = Graphics::ColorNames::all_schemes(); # installed
+ my @s = Graphics::ColorNames::all_schemes(); # look up the
installed
new( '#rgb' )
Color definitions in hexadecimal format as widely used in the web, are
@@ -60,9 +60,9 @@
my $red = Graphics::Toolkit::Color->new([255, 0, 0]); # does the same
new( {r => $r, g => $g, b => $b} )
- Hash with the keys 'r', 'g' and 'b' does the same as previous paragraph,
- only more declarative. Casing of the keys will be normalised and only
- the first letter of each key is significant.
+ Hash with the keys 'r', 'g' and 'b' does the same as shown in previous
+ paragraph, only more declarative. Casing of the keys will be normalised
+ and only the first letter of each key is significant.
my $red = Graphics::Toolkit::Color->new( r => 255, g => 0, b => 0 );
my $red = Graphics::Toolkit::Color->new({r => 255, g => 0, b => 0}); #
works too
@@ -100,9 +100,9 @@
"NAMES" in Graphics::Toolkit::Color::Constant
string
- String to reproduce color object by: Graphics::Toolkit::Color->new (eval
- $string). It is either the name (if color has one) or the stringified
- triplet: "[ $red, $green, $blue ]".
+ String to reproduce (serialize) color object by:
+ Graphics::Toolkit::Color->new (eval $string). It is either the name (if
+ color has one) or the stringified triplet: "[ $red, $green, $blue ]".
red
Integer between 0 .. 255 describing the red portion in RGB space.
@@ -120,6 +120,14 @@
String starting with '#', followed by six hexadecimal figures. Two
digits for each of red, green and blue value - the format used in CSS.
+ rgb_hash
+ Reference to a *HASH* containing the keys 'red', 'green' and 'blue' with
+ their respective values as defined above.
+
+ hsl_hash
+ Reference to a *HASH* containing the keys 'hue', 'saturation' and
+ 'lightness' with their respective values as defined below.
+
hue
Integer between 0 .. 359 describing the angle (in degrees) of the
circular dimension in HSL space named hue. 0 approximates red, 30 -
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Graphics-Toolkit-Color-1.04/cpanfile
new/Graphics-Toolkit-Color-1.05/cpanfile
--- old/Graphics-Toolkit-Color-1.04/cpanfile 2022-11-04 20:22:23.000000000
+0100
+++ new/Graphics-Toolkit-Color-1.05/cpanfile 2022-12-31 18:01:58.000000000
+0100
@@ -14,3 +14,7 @@
on 'configure' => sub {
requires "ExtUtils::MakeMaker" => "0";
};
+
+on 'develop' => sub {
+ requires "Test::Pod" => "1.41";
+};
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Graphics-Toolkit-Color-1.04/dist.ini
new/Graphics-Toolkit-Color-1.05/dist.ini
--- old/Graphics-Toolkit-Color-1.04/dist.ini 2022-11-04 20:22:23.000000000
+0100
+++ new/Graphics-Toolkit-Color-1.05/dist.ini 2022-12-31 18:01:58.000000000
+0100
@@ -35,6 +35,7 @@
allow_decimal_underscore = 1
[Repository]
+[PodSyntaxTests]
[AbstractFromPOD]
[Pod2Readme]
[MetaJSON]
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore'
old/Graphics-Toolkit-Color-1.04/lib/Graphics/Toolkit/Color.pm
new/Graphics-Toolkit-Color-1.05/lib/Graphics/Toolkit/Color.pm
--- old/Graphics-Toolkit-Color-1.04/lib/Graphics/Toolkit/Color.pm
2022-11-04 20:22:23.000000000 +0100
+++ new/Graphics-Toolkit-Color-1.05/lib/Graphics/Toolkit/Color.pm
2022-12-31 18:01:58.000000000 +0100
@@ -4,11 +4,11 @@
use v5.12;
package Graphics::Toolkit::Color;
-our $VERSION = '1.04';
+our $VERSION = '1.05';
use Carp;
use Graphics::Toolkit::Color::Constant ':all';
-use Graphics::Toolkit::Color::Value ':all';
+use Graphics::Toolkit::Color::Value ':all';
use Exporter 'import';
our @EXPORT_OK = qw/color/;
@@ -21,7 +21,7 @@
## constructor #########################################################
sub color { Graphics::Toolkit::Color->new ( @_ ) }
-
+
sub new {
my ($pkg, @args) = @_;
@args = ([@args]) if @args == 3;
@@ -43,7 +43,7 @@
} elsif (ref $arg eq __PACKAGE__) {
$arg = { r => $arg->[1], g => $arg->[2], b => $arg->[3] };
}
-
+
return carp $new_help unless ref $arg eq 'HASH' and keys %$arg == 3;
my %named_arg = map { _shrink_key($_) => $arg->{$_} } keys %$arg; #
reduce keys to lc first char
@@ -72,7 +72,7 @@
my $module = $module_base.'::'.$pallet_name;
eval "use $module";
return carp "$module is not installed, but needed to load color
'$pallet_name:$color_name'" if $@;
-
+
my $pal = Graphics::ColorNames->new( $pallet_name );
my @rgb = $pal->rgb( $color_name );
return carp "color '$color_name' was not found, propably not part of
$module" unless @rgb == 3;
@@ -95,8 +95,10 @@
sub lightness { $_[0][6] }
sub string { $_[0][0] ? $_[0][0] : "[ $_[0][1], $_[0][2], $_[0][3] ]" }
-sub hsl { @{$_[0]}[4 .. 6] }
sub rgb { @{$_[0]}[1 .. 3] }
+sub hsl { @{$_[0]}[4 .. 6] }
+sub rgb_hash { { red => $_[0][1], green => $_[0][2], blue => $_[0][3] } }
+sub hsl_hash { { hue => $_[0][4], saturation => $_[0][5], lightness =>
$_[0][6] } }
sub rgb_hex { hex_from_rgb( $_[0]->rgb() ) }
## methods ##############################################################
@@ -106,7 +108,7 @@
return croak "missing argument: color object or scalar color definition"
unless defined $c2;
$c2 = (ref $c2 eq __PACKAGE__) ? $c2 : new( __PACKAGE__, $c2 );
return unless ref $c2 eq __PACKAGE__;
-
+
return distance_hsl( [$self->hsl], [$c2->hsl] ) unless defined $metric;
$metric = lc $metric;
return distance_hsl( [$self->hsl], [$c2->hsl] ) if $metric eq 'hsl';
@@ -139,9 +141,9 @@
'5. a hash with RGB and HSL keys (as in new, but can be mixed) (also
in an hash ref).';
if ((@args == 1 or @args == 2) and ref $args[0] ne 'HASH'){
my @add_rgb;
- if (ref $args[0] eq __PACKAGE__){
+ if (ref $args[0] eq __PACKAGE__){
@add_rgb = $args[0]->rgb;
- } elsif (ref $args[0] eq 'ARRAY'){
+ } elsif (ref $args[0] eq 'ARRAY'){
@add_rgb = @{$args[0]};
return carp "array ref argument needs to have 3 numerical values
(RGB) in it." unless @add_rgb == 3;
} elsif (not ref $args[0] and not $args[0] =~ /^\d/){
@@ -171,7 +173,7 @@
my @nrkey = grep {/^\d+$/} keys %named_arg;
return carp "wrong number of numerical arguments (only 3 needed)" if
@nrkey;
carp "got unknown hash key starting with", map {' '.$_} keys
%named_arg;
- }
+ }
@hsl = trim_hsl( @hsl );
new( __PACKAGE__, { H => $hsl[0], S => $hsl[1], L => $hsl[2] });
}
@@ -193,7 +195,7 @@
new( __PACKAGE__, { H => $hsl[0], S => $hsl[1], L => $hsl[2] });
}
-
+
sub gradient_to {
my ($self, $c2, $steps, $power) = @_;
return carp "need color object or definition as first argument" unless
defined $c2;
@@ -258,26 +260,26 @@
Graphics::Toolkit::Color - color palette creation helper
-=head1 SYNOPSIS
+=head1 SYNOPSIS
- my $red = Graphics::Toolkit::Color->new('red');
- say $red->add('blue')->name; # 'magenta', mixed in RGB space
- Graphics::Toolkit::Color->new( 0, 0, 255)->hsl # 240, 100, 50 = blue
- $blue->blend_with({H=> 0, S=> 0, L=> 80}, 0.1);# mix blue with a little
grey
- $red->gradient( '#0000FF', 10); # 10 colors from red to blue
- $red->complementary( 3 ); # get fitting red green and blue
+ my $red = Graphics::Toolkit::Color->new('red'); # create color object
+ say $red->add('blue')->name; # mix in RGB: 'magenta'
+ Graphics::Toolkit::Color->new( 0, 0, 255)->hsl; # 240, 100, 50 = blue
+ $blue->blend_with({H=> 0, S=> 0, L=> 80}, 0.1); # mix blue with a little
grey in HSL
+ $red->gradient_to( '#0000FF', 10); # 10 colors from red to
blue
+ $red->complementary( 3 ); # get fitting red green
and blue
=head1 DESCRIPTION
Each object has 7 attributes, which are its RGB and HSL values and if possible
a name.
This is because humans access colors on hardware level (eye) in RGB,
-on cognition level in HSL (brain) and on cultural level (language) with names.
+on cognition level in HSL (brain) and on cultural level (language) with names.
Having easy access to all three and some color math should enable you to get
the color
palette you desire quickly and with no additional dependencies.
=head1 CONSTRUCTOR
-There are many options to create a color objects. In short you can
+There are many options to create a color objects. In short you can
either use the name of a predefined constant or provide values in RGB
or HSL color space.
@@ -296,7 +298,7 @@
Get a color by name from a specific scheme or standard as provided by an
external module L<Graphics::ColorNames>::* , which has to be installed
-separately. * is a placeholder for the pallet name, which might be:
+separately. * is a placeholder for the pallet name, which might be:
Crayola, CSS, EmergyC, GrayScale, HTML, IE, Mozilla, Netscape, Pantone,
PantoneReport, SVG, VACCC, Werner, Windows, WWW or X. In ladder case
Graphics::ColorNames::X has to be installed. You can get them all at once
@@ -304,7 +306,7 @@
as above.
my $color = Graphics::Toolkit::Color->new('SVG:green');
- my @s = Graphics::ColorNames::all_schemes(); # installed
+ my @s = Graphics::ColorNames::all_schemes(); # look up the
installed
=head2 new( '#rgb' )
@@ -327,9 +329,9 @@
=head2 new( {r => $r, g => $g, b => $b} )
-Hash with the keys 'r', 'g' and 'b' does the same as previous paragraph,
-only more declarative. Casing of the keys will be normalised and only
-the first letter of each key is significant.
+Hash with the keys 'r', 'g' and 'b' does the same as shown in previous
+paragraph, only more declarative. Casing of the keys will be normalised
+and only the first letter of each key is significant.
my $red = Graphics::Toolkit::Color->new( r => 255, g => 0, b => 0 );
my $red = Graphics::Toolkit::Color->new({r => 255, g => 0, b => 0}); #
works too
@@ -361,7 +363,7 @@
=head1 GETTER / ATTRIBUTES
-are all read only methods - giving access to different parts of the
+are all read only methods - giving access to different parts of the
objects data.
=head2 name
@@ -369,12 +371,13 @@
Name of the color in the X11 or HTML (SVG) standard or the Pantone report.
The name will be found and filled in, even when the object is created
with RGB or HSL values. If the color is not found in any of the mentioned
-standards, it returns an empty string. All names are
+standards, it returns an empty string. All names are
at: L<Graphics::Toolkit::Color::Constant/NAMES>
=head2 string
-String to reproduce color object by: Graphics::Toolkit::Color->new (eval
$string).
+String to reproduce (serialize) color object by:
+Graphics::Toolkit::Color->new (eval $string).
It is either the name (if color has one) or the stringified triplet:
"[ $red, $green, $blue ]".
@@ -396,9 +399,19 @@
=head2 rgb_hex
-String starting with '#', followed by six hexadecimal figures.
+String starting with '#', followed by six hexadecimal figures.
Two digits for each of red, green and blue value - the format used in CSS.
+=head2 rgb_hash
+
+Reference to a I<HASH> containing the keys C<'red'>, C<'green'> and C<'blue'>
+with their respective values as defined above.
+
+=head2 hsl_hash
+
+Reference to a I<HASH> containing the keys C<'hue'>, C<'saturation'> and
C<'lightness'>
+with their respective values as defined below.
+
=head2 hue
Integer between 0 .. 359 describing the angle (in degrees) of the
@@ -428,9 +441,9 @@
=head2 distance_to
-A number that measures the distance (difference) between two colors:
-1. the calling object (C1) and 2. a provided first argument C2 -
-color object or scalar data that is acceptable by new method :
+A number that measures the distance (difference) between two colors:
+1. the calling object (C1) and 2. a provided first argument C2 -
+color object or scalar data that is acceptable by new method :
name or #hex or [$r, $g, $b] or {...} (see chapter L<CONSTRUCTOR>).
If no second argument is provided, than the difference is the Euclidean
@@ -449,7 +462,7 @@
Create a Graphics::Toolkit::Color object, by adding any RGB or HSL values to
current
color. (Same rules apply for key names as in new - values can be negative.)
-RGB and HSL can be combined, but please note that RGB are applied first.
+RGB and HSL can be combined, but please note that RGB are applied first.
If the first argument is a Graphics::Toolkit::Color object, than RGB values
will be added.
In that case an optional second argument is a factor (default = 1),
@@ -467,11 +480,11 @@
=head2 blend_with
-Create Graphics::Toolkit::Color object, that is the average of two colors in
HSL space:
+Create Graphics::Toolkit::Color object, that is the average of two colors in
HSL space:
1. the calling object (C1) and 2. a provided argument C2 (object or a
-refrence to data that is acceptable definition).
+refrence to data that is acceptable definition).
-The second argument is the blend ratio, which defaults to 0.5 ( 1:1 ).
+The second argument is the blend ratio, which defaults to 0.5 ( 1:1 ).
0 represents here C1 and 1 C2. Numbers below 0 and above 1 are possible,
and will be applied, as long the result is inside the finite HSL space.
There is a slight overlap with the add method which mostly operates in
@@ -488,11 +501,11 @@
Creates a gradient (a list of colors that build a transition) between
current (C1) and a second, given color (C2).
-The first argument is C2. Either as an Graphics::Toolkit::Color object or a
-scalar (name, hex or reference), which is acceptable to the method new.
+The first argument is C2. Either as an Graphics::Toolkit::Color object or a
+scalar (name, hex or reference), which is acceptable to the method new.
Second argument is the number $n of colors, which make up the gradient
-(including C1 and C2). It defaults to 3. These 3 colors C1, C2 and a
+(including C1 and C2). It defaults to 3. These 3 colors C1, C2 and a
color in between, which is the same as the result of method blend_with.
Third argument is also a positive number $p, which defaults to one.
@@ -513,14 +526,14 @@
Creates a set of complementary colors.
It accepts 3 numerical arguments: n, delta_S and delta_L.
-Imagine an horizontal circle in HSL space, whith a center in the (grey)
+Imagine an horizontal circle in HSL space, whith a center in the (grey)
center column. The saturation and lightness of all colors on that
circle is the same, they differ only in hue. The color of the current
color object ($self a.k.a C1) lies on that circle as well as C2,
which is 180 degrees (half the circumference) apposed to C1.
This circle will be divided in $n (first argument) equal partitions,
-creating $n equally distanced colors. All of them will be returned,
+creating $n equally distanced colors. All of them will be returned,
as objects, starting with C1. However, when $n is set to 1 (default),
the result is only C2, which is THE complementary color to C1.
@@ -571,7 +584,7 @@
Copyright 2022 Herbert Breunung.
-This program is free software; you can redistribute it and/or modify it
+This program is free software; you can redistribute it and/or modify it
under same terms as Perl itself.
=head1 AUTHOR
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Graphics-Toolkit-Color-1.04/t/03_color.t
new/Graphics-Toolkit-Color-1.05/t/03_color.t
--- old/Graphics-Toolkit-Color-1.04/t/03_color.t 2022-11-04
20:22:23.000000000 +0100
+++ new/Graphics-Toolkit-Color-1.05/t/03_color.t 2022-12-31
18:01:58.000000000 +0100
@@ -2,7 +2,7 @@
#
use v5.12;
use warnings;
-use Test::More tests => 313;
+use Test::More tests => 321;
use Test::Warn;
BEGIN { unshift @INC, 'lib', '../lib'}
@@ -45,6 +45,14 @@
is(($red->hsl)[0], 0, 'named red has correct hsl hue component value');
is(($red->hsl)[1], 100, 'named red has correct hsl saturation component
value');
is(($red->hsl)[2], 50, 'named red has correct hsl lightness component
value');
+is(ref $red->rgb_hash,'HASH', 'named red has correct rgb HASH');
+is(ref $red->hsl_hash,'HASH', 'named red has correct hsl HASH');
+is( $red->rgb_hash->{'red'}, 255, 'named red has correct red value in rgb
HASH');
+is( $red->rgb_hash->{'green'}, 0, 'named red has correct green value in rgb
HASH');
+is( $red->rgb_hash->{'blue'}, 0, 'named red has correct blue value in rgb
HASH');
+is( $red->hsl_hash->{'hue'}, 0, 'named red has correct hue value in
hsl HASH');
+is( $red->hsl_hash->{'saturation'}, 100, 'named red has correct saturation
value in hsl HASH');
+is( $red->hsl_hash->{'lightness'}, 50, 'named red has correct lightness
value in hsl HASH');
is( $red->string, 'red', 'named red does stringify correctly');
is( Graphics::Toolkit::Color->new(15,12,13)->string, '[ 15, 12, 13 ]', 'random
color does stringify correctly');
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/Graphics-Toolkit-Color-1.04/xt/author/pod-syntax.t
new/Graphics-Toolkit-Color-1.05/xt/author/pod-syntax.t
--- old/Graphics-Toolkit-Color-1.04/xt/author/pod-syntax.t 1970-01-01
01:00:00.000000000 +0100
+++ new/Graphics-Toolkit-Color-1.05/xt/author/pod-syntax.t 2022-12-31
18:01:58.000000000 +0100
@@ -0,0 +1,7 @@
+#!perl
+# This file was automatically generated by Dist::Zilla::Plugin::PodSyntaxTests.
+use strict; use warnings;
+use Test::More;
+use Test::Pod 1.41;
+
+all_pod_files_ok();
