testcolor.spl

#!/usr/bin/env perl
#

use SDL;
use SDLx::App;
use SDL::Event;

use vars qw/ $app /;

printSTDERR<<USAGE;
 Right click on any pixel to get its color values
 Left click on any pixel to set its value to the last selected
USAGE

$app = SDLx::App->new( -width=> 320, -height=> 240, -depth=> 8 );

my%colors = (
red=> ( new SDL::Color-r=> 255, -g=> 0, -b=> 0 ),
green=> ( new SDL::Color-r=> 0, -g=> 255, -b=> 0 ),
blue=> ( new SDL::Color-r=> 0, -g=> 0, -b=> 255 ),
yellow=> ( new SDL::Color-r=> 255, -g=> 255, -b=> 0 ),
purple=> ( new SDL::Color-r=> 255, -g=> 0, -b=> 255 ),
white=> ( new SDL::Color-r=> 255, -g=> 255, -b=> 255 )
);

$x = 0;
$y = 0;
$rect = SDL::Rect->new(
-x=>$x,
 -y=>$y,
-w=>$app->width / scalar( keys%colors ),
 -h=>$app->height()
);

print"Sorted colors:\n";

for ( sortkeys%colors ) {
print"$_" . join( ",", $colors{$_}->r(), $colors{$_}->g(), $colors{$_}->b() ) . "\n";
}

for ( sortkeys%colors ) {
$rect->x($x);
$x += $rect->width();
$app->fill( $rect, $colors{$_} );
}

$app->sync();

$last = SDL::Color->new( -r=> 128, -g=> 128, -b=> 128 );

$app->sync();
$app->loop(
 { SDL_QUIT() =>sub { exit(0); },
 SDL_KEYDOWN() =>sub { $app->fullscreen(); },
 SDL_MOUSEBUTTONDOWN() =>sub {
my$e = shift;
if ( $e->button == 3 ) {
$last = $app->pixel( $e->button_x(), $e->button_y() );
printSTDERR"X: ", $e->button_x(), " Y: ", $e->button_y(),
" R: ", $last->r(), " G: ", $last->g(),
" B: ", $last->b(), "\n";
 } else {
$app->pixel( $e->button_x(), $e->button_y(), $last );
 }
 },
 }
);