view release on metacpan or  search on metacpan

examples/show_approximations.pl  view on Meta::CPAN

=pod

package Graphics::ColorNames::My;

BEGIN { $INC{'Graphics/ColorNames/My.pm'} = __FILE__ }

use constant STEP => 15;

my %colors;

sub NamesRgbTable() {
    use integer;

    return \%colors if %colors;

    for( my $r = 0; $r < 256; $r += STEP ) {
        for( my $g = 0; $g < 256; $g += STEP ) {
            for( my $b = 0; $b < 256; $b += STEP ) {
                $colors{"($r, $g, $b)"} = ( $r << 16 ) + ( $g << 8 ) + $b;
            }
        }