/usr/share/doc/libsdl-perl/test/testgraphictool.pl is in libsdl-perl 2.2.5-1build2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 | #!/usr/bin/env perl
use strict;
use warnings;
use SDL;
use SDL::Surface;
use SDL::App;
use SDL::Tool::Graphic;
my $app = new SDL::App(-title => "Graphic Tool Test",
-width => 640,
-height => 480,
-depth => 16,
-fullscreen => 0);
my $app_rect = new SDL::Rect( -x=>0,
-y=>0,
-width=>$app->width,
-height=>$app->height);
my $sprite = new SDL::Surface(-name => "data/logo.png");
$sprite->display_format();
#Test Zoom
my $graphicTool = new SDL::Tool::Graphic();
$graphicTool->zoom($sprite, .5, .5, 1);
my $sprite_rect = new SDL::Rect( -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 = new SDL::Rect( -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;
|