-SDL Perl Showcase +SDL RC 2.5 decides to play with PDL
-
-SDL_Mixer and Effects
+PDL provides great number crunching capabilities to Perl and SDL provides game-developer quality real-time bitmapping and sound.
+You can use PDL and SDL together to create real-time,
+responsive animations and simulations.
+In this section we will go through the pleasures and pitfalls of working with both powerhouse libraries. -- David Mertnes
-
-This demo shows the new work we have finished for SDL_Mixer support in SDL_perl . (FROGGS++)
+
+PDL's core type is a piddle.
+Once a piddle is provided to PDL it can go do a numerous amounts of things.
+Please see the example in 'examples/cookbook/pdl.pl' in github.
-
+
+First lets get the right modules.
-Get it at: playlist.pl, you need some .ogg files to play in the same directory. Use the down key to go through them.
+
+Suppose you want a surface of size (200,400) and 32 bit (RGBA).
-
-SDL_TTF support
+
+Define the $width, $height and $bytes_per_pixel. Your $bytes_per_pixel is the number of bits (in this case 32) divided by 8 bits per byte. Therefore for our 32 bpp we have 4 Bpp;
+
+Create a normal $piddle with zeros, byte format and the Bpp x width x height dimensions.
-
+
+Here is where we get the acutal data the piddle is pointing to. We will have SDL create a new surface from this function.
-This shows the current work on SDL_TTF support. UTF8 and Uncicode are supported.
+
+Using the same dimensions we create the surface using SDL::Surface->new_form(). The $width * $Bpp is the scanline (pitch) of the surface in bytes.
-See the t/ttf.t test in github SDL_perl.
+
+Finally make sure that the surface acutally has the correct dimensions we gave.
+NOTE: $surface->format->BytesPerPixel must return 1,2,3,4. !!
-
-Spinner (Destiny Swirl) Arcade Game
-
-
-
-SDL_Mixer and Effects
+PDL provides great number crunching capabilities to Perl and SDL provides game-developer quality real-time bitmapping and sound.
+You can use PDL and SDL together to create real-time,
+responsive animations and simulations.
+In this section we will go through the pleasures and pitfalls of working with both powerhouse libraries. -- David Mertnes
-
-This demo shows the new work we have finished for SDL_Mixer support in SDL_perl . (FROGGS++)
+
Creating a SDL Surface piddle
+PDL's core type is a piddle.
+Once a piddle is provided to PDL it can go do a numerous amounts of things.
+Please see the example in 'examples/cookbook/pdl.pl' in github.
-
- Plays ogg files in local directory -
- Uses threads and SDL_Mixer effects to extract realtime stereo stream data -
- Visulizes stream data as an oscilloscope -
+
Creating a simple piddle
+First lets get the right modules.
-Get it at: playlist.pl, you need some .ogg files to play in the same directory. Use the down key to go through them.
+
use PDL; + use SDL::Rect; + use SDL::Video; + use SDL::Surface; + use SDL::PixelFormat; +
+Suppose you want a surface of size (200,400) and 32 bit (RGBA).
-
-SDL_TTF support
+
my ( $bytes_per_pixel, $width, $height ) = ( 4, 200, 400 ); +
+Define the $width, $height and $bytes_per_pixel. Your $bytes_per_pixel is the number of bits (in this case 32) divided by 8 bits per byte. Therefore for our 32 bpp we have 4 Bpp;
+
my $piddle = zeros( byte, $bytes_per_pixel, $width, $height ); +
+Create a normal $piddle with zeros, byte format and the Bpp x width x height dimensions.
-
+
my $pointer = $piddle->get_dataref(); +
+Here is where we get the acutal data the piddle is pointing to. We will have SDL create a new surface from this function.
-This shows the current work on SDL_TTF support. UTF8 and Uncicode are supported.
+
my $surface = SDL::Surface->new_from( $pointer, $width, $height, 32, + $width * $bytes_per_pixel ); +
+Using the same dimensions we create the surface using SDL::Surface->new_form(). The $width * $Bpp is the scanline (pitch) of the surface in bytes.
-See the t/ttf.t test in github SDL_perl.
+
warn "Made surface of $width, $height and ". $surface->format->BytesPerPixel; + return ( $piddle, $surface ); +
+Finally make sure that the surface acutally has the correct dimensions we gave.
+NOTE: $surface->format->BytesPerPixel must return 1,2,3,4. !!
-
-Spinner (Destiny Swirl) Arcade Game
-
-
And finally as a proof of concept we have been working a simple arcade game to test our bugs, and scope out our high level bindings. You can get it at the Spinner repo. This wiki page will help you set up for your platforms.
-
