=pod
=head1 NAME
SDL::Color - Format independent color description
=head2 CATEGORY
Core, Video, Structure
=head1 SYNOPSIS
my $black = SDL::Color->new(0, 0, 0);
my $color = SDL::Color->new(255, 0, 0);
my $r = $color->r; # 255
my $g = $color->g; # 0
my $b = $color->b; # 0
$color->g(255);
$color->b(255);
# $color is now white
=head1 DESCRIPTION
C<SDL_Color> describes a color in a format independent way.
=head1 METHODS
=head2 new
my $color = SDL::Color->new(255, 0, 0);
The constructor creates a new color with the specified red, green and blue values.
=head2 r
my $r = $color->r;
$color->r(128);
If passed a value, this method sets the red component of the color;
if not, it returns the red component of the color.
=head2 g
my $g = $color->g;
$color->g(128);
If passed a value, this method sets the green component of the color;
if not, it returns the green component of the color.
=head2 b
my $b = $color->b;
$color->b(128);
If passed a value, this method sets the blue component of the color;
if not, it returns the blue component of the color.
=head1 SEE ALSO
L<SDL::Surface>
=head1 AUTHORS
See L<SDL/AUTHORS>.
=cut