SDL::Tutorial - introduction to Perl SDL


SDL_Perl documentation Contained in the SDL_Perl distribution.

Index


Code Index:

NAME

Top

SDL::Tutorial - introduction to Perl SDL

SYNOPSIS

Top

	# to read this tutorial
	$ perldoc SDL::Tutorial

	# to create a bare-bones SDL app based on this tutorial
	$ perl -MSDL::Tutorial -e 1

SDL BASICS

Top

SDL, the Simple DirectMedia Layer, is a cross-platform multimedia library. These are the Perl 5 bindings. You can find out more about SDL at http://www.libsdl.org/.

Creating an SDL application with Perl is easy. You have to know a few basics, though. Here's how to get up and running as quickly as possible.

Surfaces

All graphics in SDL live on a surface. You'll need at least one. That's what SDL::App provides.

Of course, before you can get a surface, you need to initialize your video mode. SDL gives you several options, including whether to run in a window or take over the full screen, the size of the window, the bit depth of your colors, and whether to use hardware acceleration. For now, we'll build something really simple.

Initialization

SDL::App makes it easy to initialize video and create a surface. Here's how to ask for a windowed surface with 640x480x16 resolution:

	use SDL::App;

	my $app = SDL::App->new(
		-width  => 640,
		-height => 480,
		-depth  => 16,
	);

You can get more creative, especially if you use the -title and -icon attributes in a windowed application. Here's how to set the window title of the application to My SDL Program:

	use SDL::App;

	my $app = SDL::App->new(
		-height => 640,
		-width  => 480,
		-depth  => 16,
		-title  => 'My SDL Program',
	);

Setting an icon is a little more involved -- you have to load an image onto a surface. That's a bit more complicated, but see the -name parameter to SDL::Surface-new()> if you want to skip ahead.

Working With The App

Since $app from the code above is just an SDL surface with some extra sugar, it behaves much like SDL::Surface. In particular, the all-important blit and update methods work. You'll need to create SDL::Rect objects representing sources of graphics to draw onto the $app's surface, blit them there, then update the $app.

Note: "blitting" is copying a chunk of memory from one place to another.

That, however, is another tutorial.

SEE ALSO

Top

SDL::Tutorial::Drawing

basic drawing with rectangles

SDL::Tutorial::Animation

basic rectangle animation

SDL::Tutorial::Images

image loading and animation

AUTHOR

Top

chromatic, <chromatic@wgz.org>.

Written for and maintained by the Perl SDL project, http://sdl.perl.org/.

COPYRIGHT

Top


SDL_Perl documentation Contained in the SDL_Perl distribution.

#!/usr/bin/env perl
#
# Tutorial.pm
#
# Copyright (C) 2005 David J. Goehrig <dgoehrig@cpan.org>
#
# ------------------------------------------------------------------------------
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License as published by the Free Software Foundation; either
# version 2.1 of the License, or (at your option) any later version.
# 
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# Lesser General Public License for more details.
# 
# You should have received a copy of the GNU Lesser General Public
# License along with this library; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
#
# ------------------------------------------------------------------------------
#
# Please feel free to send questions, suggestions or improvements to:
#
#	David J. Goehrig
#	dgoehrig@cpan.org
#

package SDL::Tutorial;

use strict;
use warnings;

use SDL;
use SDL::App;

# change these values as necessary
my  $title                   = 'My SDL App';
my ($width, $height, $depth) = ( 640, 480, 16 );

my $app = SDL::App->new(
	-width  => $width,
	-height => $height,
	-depth  => $depth,
	-title  => $title,
);

# your code here; remove the next line
sleep 2;

1;

__END__