The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
SHARYANTO-Color-Util-0.56
++
/ SHARYANTO::Color::Util

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.