git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
termcol: declare and include cgarne
[sheet.git]
/
Shiar_Sheet
/
Colour.pm
diff --git
a/Shiar_Sheet/Colour.pm
b/Shiar_Sheet/Colour.pm
index cdac0b346066b204e70fa148001c959ab74de43b..cf22f3eac9726d4a6c86f10e66de932e0347f85a 100644
(file)
--- a/
Shiar_Sheet/Colour.pm
+++ b/
Shiar_Sheet/Colour.pm
@@
-4,7
+4,7
@@
use strict;
use warnings;
use List::Util qw( min max );
use warnings;
use List::Util qw( min max );
-our $VERSION = '1.0
3
';
+our $VERSION = '1.0
4
';
# ITU-R recommendation 601 luma co-efficients
our $kr = .299;
# ITU-R recommendation 601 luma co-efficients
our $kr = .299;
@@
-50,6
+50,12
@@
sub hue {
return $hue;
}
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] };
sub rgb24 {
my $str = '';
$str .= sprintf '%X', min($_ / 17 + .5, 15) for @{ $_[0] };