testgraphictool.pl

#!/usr/bin/env perl

use strict;
use warnings;

use SDL;
use SDL::Surface;
use SDLx::App;
use SDL::Tool::Graphic;

my$app = SDLx::App->new(
 -title=>"Graphic Tool Test",
 -width=> 640,
 -height=> 480,
 -depth=> 16,
 -fullscreen=> 0
);
my$app_rect = SDL::Rect->new(
-x=> 0,
 -y=> 0,
 -width=>$app->width,
 -height=>$app->height
);

my$sprite = SDL::Surface->new( -name=>"data/logo.png" );
$sprite->display_format();

#Test Zoom
my$graphicTool = SDL::Tool::Graphic->new();
$graphicTool->zoom( $sprite, .5, .5, 1 );

my$sprite_rect = SDL::Rect->new(
-x=> 0,
 -y=> 0,
 -width=>$sprite->width,
 -height=>$sprite->height
);
$sprite->blit( $sprite_rect, $app, $sprite_rect );
$app->flip();
sleep 4;
$app->fill( $app_rect, $SDL::Color::black );

#Test Rotate
$graphicTool->rotoZoom( $sprite, 90, 1, 1 );

$sprite_rect = SDL::Rect->new(
-x=> 0,
 -y=> 0,
 -width=>$sprite->width,
 -height=>$sprite->height
);
$sprite->blit( $sprite_rect, $app, $sprite_rect );
$app->flip();
sleep 4;

+print"GrayScaling\n";
+$app->fill( $app_rect, $SDL::Color::black );

#Test GrayScale
$graphicTool->grayScale($sprite);

$sprite->blit( $sprite_rect, $app, $sprite_rect );
$app->flip();
sleep 4;