use warnings;
use List::Util qw( min max );
-our $VERSION = '1.03';
+our $VERSION = '1.04';
# ITU-R recommendation 601 luma co-efficients
our $kr = .299;
return $hue;
}
+sub hsv {
+ my ($rgb) = @_;
+ my $v = max(@{$rgb});
+ return $rgb->hue, abs(min(@{$rgb}) - $v), $v;
+}
+
sub rgb24 {
my $str = '';
$str .= sprintf '%X', min($_ / 17 + .5, 15) for @{ $_[0] };