sdl::tutorial(3) [suse man page]

SDL::Tutorial(3)					User Contributed Perl Documentation					  SDL::Tutorial(3)

NAME

       SDL::Tutorial - introduction to Perl SDL

SYNOPSIS

	       # 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

       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

       SDL::Tutorial::Drawing
	   basic drawing with rectangles

       SDL::Tutorial::Animation
	   basic rectangle animation

       SDL::Tutorial::Images
	   image loading and animation

AUTHOR

       chromatic, <chromatic@wgz.org>.

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

COPYRIGHT

       Copyright (c) 2003 - 2004, chromatic.  All rights reserved.  This module is distributed under the same terms as Perl itself, in the hope
       that it is useful but certainly under no guarantee.

perl v5.12.1							    2010-07-05							  SDL::Tutorial(3)

pods::SDL::GFX::Rotozoom(3pm)				User Contributed Perl Documentation			     pods::SDL::GFX::Rotozoom(3pm)

NAME

       SDL::GFX::Rotozoom - rotation and zooming functions for surfaces

CATEGORY

       GFX

CONSTANTS

       The constants are exported by default. You can avoid this by doing:

	use SDL::GFX::Rotozoom ();

       and access them directly:

	SDL::GFX::Rotozoom::SMOOTHING_OFF;

       or by choosing the export tags below:

       Export tag: ':smoothing'

	SMOOTHING_OFF
	SMOOTHING_ON

METHODS

   surface
	my $new_surface = SDL::GFX::Rotozoom::surface( $surface, $angle, $zoom, $smooth );

       With "SDL::GFX::Rotozoom::surface" you have the opportunity to rotate and zoom a given surface.	The surface will be rotated counter
       clockwise (in degrees).	Pass "SMOOTHING_ON" or "SMOOTHING_OFF" in order to turn it on or off.

       Note: The new surface (with $"zoom == 1") will usually be bigger than the source $surface.

       Note: Note: new surface should be less than 16384 in width and height.

       Example:

	use SDL;
	use SDL::Video;
	use SDL::Rect;
	use SDL::Surface;
	use SDL::GFX::Rotozoom;

	my $screen_width  = 640;
	my $screen_height = 480;

	SDL::init(SDL_INIT_VIDEO);

	my $screen  = SDL::Video::set_video_mode(800, 600, 32, SDL_SWSURFACE);
	my $picture = SDL::Video::load_BMP('test.bmp');

	my $rotated = SDL::GFX::Rotozoom::surface( $picture, 45, 0.8, SMOOTHING_ON );

	SDL::Video::blit_surface( $rotated, SDL::Rect->new(0, 0, $rotated->w, $rotated->h),
				  $screen,  SDL::Rect->new(0, 0, 0, 0) );

	SDL::Video::update_rect( $screen, 0, 0, 0, 0 );

	sleep(2);

   surface_xy
	my $new_surface = SDL::GFX::Rotozoom::surface_xy( $surface, $angle, $zoom_x, $zoom_y, $smooth );

       Same as SDL::GFX::Rotozoom::surface but you can specify the zoomlevel for x and y separately.

   surface_size
	my ($new_width, $new_height) = @{ SDL::GFX::Rotozoom::surface_size( $width, $height, $angle, $zoom ) };

       "surface_size" will give you the width and height of an rotating/zoom operation for the given $width and $height.  Helpful for knowing the
       surface size before actually do the rotating/zoom operation.

   surface_size_xy
	my ($new_width, $new_height) = @{ SDL::GFX::Rotozoom::surface_size_xy( $width, $height, $angle, $zoom_x, $zoom_y ) };

       Same as SDL::GFX::Rotozoom::surface_size but you can specify the zoomlevel for x and y separately.

   zoom_surface
	my $new_surface = SDL::GFX::Rotozoom::zoom_surface( $surface, $zoom_x, $zoom_y, $smooth );

       Same as SDL::GFX::Rotozoom::surface_xy except you can zoom only.

   zoom_surface_size
	my ($new_width, $new_height) = SDL::GFX::Rotozoom::zoom_surface_size( $width, $height, $zoom_x, $zoom_y );

       Same as SDL::GFX::Rotozoom::surface_size_xy except you can specify zoom only.

   shrink_surface
	my $new_surface = SDL::GFX::Rotozoom::shrink_surface( $surface, $factor_x, $factor_y );

       Specialized function for shrinking a surface.

   rotate_surface_90_degrees
	my $new_surface = SDL::GFX::Rotozoom::rotate_surface_90_degrees( $surface, $num_clockwise_turns );

       Rotating a surface $num_clockwise_turns-times.

AUTHORS

       See "AUTHORS" in SDL.

perl v5.14.2							    2012-05-28					     pods::SDL::GFX::Rotozoom(3pm)