NAME

SDL::App::FPS::Color - provides color names => SDL::Color mapping

SYNOPSIS

package SDL::App::FPS::Color qw/RED BLUE GREEN/;

my $yellow = SDL::App::FPS::Color::YELLOW();
my $red = RED();
my $blue = BLUE;

EXPORTS

Can export the color names on request.

DESCRIPTION

This package provides SDL::Color objects that corrospond to the basic color names.

METHODS

The following color names exist:

  	RED		GREEN		BLUE
	ORANGE		YELLOW		PURPLE
	MAGENTA 	CYAN 		BROWN
	WHITE		BLACK
	GRAY		LIGHTGRAY	DARKGRAY
	GREY		LIGHTGREY	DARKGREY
	LIGHTRED 	DARKRED
	LIGHTBLUE	DARKBLUE
	LIGHTGREE	DARKGREEN

darken

$new_color = SDL::App::FPS::Color::darken($color,$factor);

$factor must be between 1 (result is black) and 0 (result is original color). darken() darkens the color by this factor, for instance 0.5 makes a color of 50% color values from the original color.

lighten

$new_color = SDL::App::FPS::Color::lighten($color,$factor);

$factor must be between 0 (result is original color) and 1 (result is white). lighten() darkens the color by this factor, for instance 0.5 makes a color of 50% higher color values from the original color.

blend

$new_color = SDL::App::FPS::Color::blend($color_a,$color_b,$factor);

$factor must be between 0 (result is $color_a) and 1 (result is $color_b). blend() creates a blended color from the two colors. A factor of 0.5 means it will result in exact the middle of color A and color B.

invert

$new_color = SDL::App::FPS::Color::invert($color);

Inverts a color - black will be white, white will be black, and blue will be yellow, etc.

desaturate

$new_color = SDL::App::FPS::Color::desaturate($color,$rb,$gf,$bf);

Converts a color to grayscale. The default is just averaging the three components red, green and blue (meaning $rf, $gf and C>$bf> are 1.0).

You can pass values between 0..1 for $rf, $gf and $bf, for instance:

$gray = SDL::App::FPS::Color::desaturate($color, 0, 1, 1);

This would ignore the red component completely, making the grayscale based only on the green and blue parts. Or maybe you want to simulate that the human eye is more sensitive to green:

$gray = SDL::App::FPS::Color::desaturate($color, 0.6, 1, 0.6);

AUTHORS

(c) 2003 Tels http://bloodgate.com/perl/sdl/

SEE ALSO

SDL:App::FPS, SDL::App and SDL.

cpanm SDL::App::FPS

perl -MCPAN -e shell
install SDL::App::FPS