NAME
SHARYANTO::Color::Util - Color-related utilities
VERSION
version 0.56
SYNOPSIS
use SHARYANTO::Color::Util qw(
mix_2_rgb_colors
rand_rgb_color
rgb2grayscale
rgb2sepia
reverse_rgb_color
rgb_luminance
);
say mix_2_rgb_colors('#ff0000', '#ffffff'); # pink (red + white)
say mix_2_rgb_colors('ff0000', 'ffffff', 0.75); # pink with a whiter shade
say rand_rgb_color();
say rand_rgb_color('000000', '333333'); # limit range
say rgb2grayscale('0033CC'); # => 555555
say rgb2sepia('0033CC'); # => 4d4535
say reverse_rgb_color('0033CC'); # => ffcc33
say rgb_luminance('d090aa'); # => ffcc33
DESCRIPTION
FUNCTIONS
None are exported by default, but they are exportable.
mix_2_rgb_colors($rgb1, $rgb2, $pct) => STR
Mix 2 RGB colors. $pct
is a number between 0 and 1, by default 0.5 (halfway), the closer to 1 the closer the resulting color to $rgb2
.
rand_rgb_color([$low_limit[, $high_limit]]) => STR
Generate a random RGB color. You can specify the limit. Otherwise, they default to the full range (000000 to ffffff).
rgb2grayscale($rgb) => RGB
Convert $rgb
to grayscale RGB value.
rgb2sepia($rgb) => RGB
Convert $rgb
to sepia tone RGB value.
reverse_rgb_color($rgb) => RGB
Reverse $rgb
.
rgb_luminance($rgb) => NUM
Calculate standard/objective luminance from RGB value using this formula:
(0.2126*R) + (0.7152*G) + (0.0722*B)
where R, G, and B range from 0 to 1. Return a number from 0 to 1.
tint_rgb_color($rgb, $tint_rgb, $pct) => RGB
Tint $rgb
with $tint_rgb
. $pct is by default 0.5. It is similar to mixing, but the less luminance the color is the less it is tinted with the tint color. This has the effect of black color still being black instead of becoming tinted.
None are exported by default, but they are exportable.
TODO
mix_rgb_colors() to mix several RGB colors. Args might be $rgb1, $rgb2, ... or $rgb1, $part1, $rgb2, $part2, ... (e.g. 'ffffff', 1, 'ff0000', 1, '00ff00', 2).
AUTHOR
Steven Haryanto <stevenharyanto@gmail.com>
COPYRIGHT AND LICENSE
This software is copyright (c) 2013 by Steven Haryanto.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.