sdl::deprecated(3pm) [debian man page]

pods::SDL::Deprecated(3pm)				User Contributed Perl Documentation				pods::SDL::Deprecated(3pm)

NAME

       SDL::Deprecated - Log of Deprecated items per release

CATEGORY

       Core

RELEASES

   2.517
       Major changes to "SDLx::Controller".

       "quit" is now "stop". Event handlers no longer end "run" on returning false. Call "stop" explicitly instead.

       The first argument to move handlers is the step portion instead of "dt".  The second argument to move handlers, the "t" value, is now the
       third argument.

       "min_t" will limit apps to a framerate of 60 by default.

   2.513
       SDLx::App
	   "SDLx::App::loop()" is deprecated.

   2.502
       SDLx::App
	   Now depends on SDLx::Surface. To get the SDL::Surface, use " -"surface() >. Alternatively SDLx::Surface::display().

       SDLx::Surface
	   " get_display " is now called SDLx::Surface::display.

       SDLx::Sprite::Animated
	   Has drastically changed, and is still volatile.

   2.500
       SDL::App
	   SDL::App has migrated to SDLx::App namespace. The reason for this is because it is an extension and not a 1:1 XS/Constant Module to the
	   c library.

       SDL::Game::Rect
	   SDL::Game::Rect has migrated to SDLx::Rect namespace. Same reasoning as above.

AUTHORS

       See "AUTHORS" in SDL.

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

pods::SDL::Cookbook::OpenGL(3pm)			User Contributed Perl Documentation			  pods::SDL::Cookbook::OpenGL(3pm)

NAME

       SDL::Cookbook::OpenGL - Using SDL with OpenGL

CATEGORY

       Cookbook

DESCRIPTION

       As of release 2.5 SDL no longer maintains it's own bindings of OpenGL. Support for OpenGL has been moved over to a more mature
       implementation.

       This implementation is the POGL project. OpenGL is faster and more complete; and works with SDL seamlessly.

   EXAMPLE
       Expanded from Floyd-ATC's OpenGL example.

	       use strict;
	       use warnings;
	       use SDL;
	       use SDLx::App;
	       use SDL::Mouse;
	       use SDL::Video;
	       use SDL::Events;
	       use SDL::Event;
	       use OpenGL qw(:all);

       You can use OpenGL as needed here.

	       my ($SDLAPP, $WIDTH, $HEIGHT, $SDLEVENT);

	       $| = 1;
	       $WIDTH = 1024;
	       $HEIGHT = 768;
	       $SDLAPP = SDLx::App->new(title => "OpenGL App", width => $WIDTH, height => $HEIGHT, gl => 1);
	       $SDLEVENT = SDL::Event->new;

       SDLx::App can start an OpenGL application with the parameter gl => 1.

	       glEnable(GL_DEPTH_TEST);
	       glMatrixMode(GL_PROJECTION);
	       glLoadIdentity;
	       gluPerspective(60, $WIDTH / $HEIGHT, 1, 1000);
	       glTranslatef(0, 0, -20);

       Above we enable GL and set the correct perspective

	       while(1) {
		 &handlepolls;
		 glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT);
		 glRotatef(.1, 1, 1, 1);
		 &drawscene;
		 $SDLAPP->sync;
	       }

       For SDLx::App sync handles the GL buffer clean.

	       sub drawscene {
		 my ($color, $x, $y, $z);

		 for (-2 .. 2) {
		   glPushMatrix;
		   glTranslatef($_ * 3, 0, 0);
		   glColor3d(1, 0, 0);
		   &draw_cube;
		   glPopMatrix;
		 }

		 return "";
	       }

	       sub draw_cube {
		 my (@indices, @vertices, $face, $vertex, $index, $coords);

		 @indices = qw(4 5 6 7	 1 2 6 5   0 1 5 4
			       0 3 2 1	 0 4 7 3   2 3 7 6);
		 @vertices = ([-1, -1, -1], [ 1, -1, -1],
			      [ 1,  1, -1], [-1,  1, -1],
			      [-1, -1,	1], [ 1, -1,  1],
			      [ 1,  1,	1], [-1,  1,  1]);

		 glBegin(GL_QUADS);

		 foreach my $face (0..5) {
		   foreach my $vertex (0..3) {
		     $index  = $indices[4 * $face + $vertex];
		     $coords = $vertices[$index];

		     glVertex3d(@$coords);
		   }
		 }

		 glEnd;

		 return "";
	       }

       Below we can use SDL::Events as normal:

	       sub handlepolls {
		 my ($type, $key);

		 SDL::Events::pump_events();

		 while (SDL::Events::poll_event($SDLEVENT)) {
		   $type = $SDLEVENT->type();
		   $key = ($type == 2 or $type == 3) ? $SDLEVENT->key_sym : "";

		   if ($type == 4) { printf("You moved the mouse! x=%s y=%s xrel=%s yrel=%s
", $SDLEVENT->motion_x, $SDLEVENT->motion_y, $SDLEVENT->motion_xrel, $SDLEVENT->motion_yrel) }
		   elsif ($type == 2) { print "You are pressing $key
" }
		   elsif ($type == 3) { print "You released $key
" }
		   elsif ($type == 12) { exit }
		   else { print "TYPE $type UNKNOWN!
" }

		   if ($type == 2) {
		     if ($key eq "q" or $key eq "escape") { exit }
		   }
		 }

		 return "";
	       }

SEE ALSO

       perl SDLx::App OpenGL

AUTHORS

       See "AUTHORS" in SDL.

perl v5.14.2							    2012-05-28					  pods::SDL::Cookbook::OpenGL(3pm)