use strict;
use SDL;
use SDL::App;
use SDL::Event;
use SDL::TTFont;
use SDL::Color;
use SDL::Tool::Graphic;

my $app = SDL::App->new(
                            -title  => 'myTE -> Developing...',
                            -width  => 800,
                            -height => 600,
                            -depth  => 16,
                            -flags  => SDL_DOUBLEBUF | SDL_HWSURFACE | SDL_HWACCEL,
                           );

my $back = SDL::Surface->new( -name => 'c.jpg' );

SDL::Tool::Graphic::zoom($back, 1, 1, 1);

$back->blit(0, $app, 0);

while (1) {
$app->sync();
$app->delay(100);
}