package Graphics::ColorNames::EmergyC;

=head1 NAME

Graphics::ColorNames::EmergyC - Eco-friendly web-design color-palette.

=head1 SYNOPSIS

  require Graphics::ColorNames::EmergyC;

  $NameTable = Graphics::ColorNames::EmergyC->NamesRgbTable();
  $RgbBlack  = $NameTable->{black};

=head1 DESCRIPTION

The Emergy-C color palette is based on the
EnergyStar wattage ratings for different colors.  Supposedly, a
display mainly using colors of this palette uses on average only
about 3 or 4 watts more than a completely black screen.  White is
included as an accent color, only for a small proportion
of the screen.

Since it is a minimal palette, you may want to use it in conjunction
with other palettes.

=begin readme

=head1 REVISION HISTORY

Changes since the last release

=for readme include file=Changes start=^1.01 stop=^1.00 type=text

More details can be found in the F<Changes> file.

=end readme

=head1 SEE ALSO

L<Graphics::ColorNames>

This palette comes from
L<http://ecoiron.blogspot.com/2007/01/emergy-c-low-wattage-palette.html>.

EnergyStar wattage ratings for colors,
L<http://www.microtech.doe.gov/EnergyStar/info.htm>.

=head1 AUTHOR

Implemented as a plugin for L<Graphics::ColorNames> by
Robert Rothenberg <rrwo at cpan.org>.

This palette was designed by Jon Doucette, <finaljon at gmail.com>.

=head1 LICENSE

Copyright (c) 2007 Robert Rothenberg. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.

=cut


use strict;

our $VERSION = '1.01';

sub NamesRgbTable() {
  use integer;
  return {
    "white"               => 0xffffff,
    "black"               => 0x000000,
    "rustyred"            => 0x822007,
    "bluegrey"            => 0xb2bbc0,
    "forestgreen"         => 0x19472a,
    "cobalt"              => 0x3d414c,
  };
}

1;

__END__