-The Future and Beyond! +Providing direct memory access to SDL_Surface's pixels
-
-
-
+
+
+
+
+
+
-
-
-
-
-Ok! Now this weekend hopefully we will release our last legacy release, after this we move on! This release will focus on showing of SDL + Perl possibilities.
-
-
-
-We have decided to separate these two focuses into the two name spaces SDL::* and SDL::Game::*. SDL::* will provide straight access to SDL's C API, nothing less and nothing more. SDL::Game::* will extend and make pretty unicorns for Perl.
-
-This design has already begin to pay of. One major benefit been in the XS readability. Moreover since structs are treated as objects, Perl manages their destruction, and deliver less memory leaks.
-
-
Updates
Since the last post SDL Perl has seen an increase of interest to both use and contribute to SDL Perl. Before I dig into the updates, I would like to acknowledge them.-
Core Development
Acme (Leon Brocard): Has started to work on the Redesign Effort with me. The help is much appreciated! Enjoy your vacation.+
In an attempt to make pixel access easier on SDL_Surface pixels. I have started work on SDLx::Surface. So far I have only start on the 32 bpp surfaces.
+
The general idea is to make Pointer Values (PV) of each pixel in the surface and place them into a 2D matrix. First I make pointer values like this:
+
SV * get_pixel32 (SDL_Surface *surface, int x, int y) +{ + //Convert the pixels to 32 bit + Uint32 *pixels = (Uint32 *)surface->pixels; + + //Get the requested pixel + Uint32* u_ptr = pixels + ( y * surface->w ) + x ; + + SV* sv = newSVpv("a",1); //Make a temp SV* value on the go + SvCUR_set(sv, sizeof(Uint32)); //Specify the new CUR length + SvLEN_set(sv, sizeof(Uint32)); //Specify the LEN length + SvPV_set(sv,(char*)u_ptr); // set the actual pixel's pointer as the memory space to use + + return sv; //make a modifiable reference using u_ptr's place as the memory :) + +} +
+
Next I loop through all the pixels and put them in a 2D array format, shown below:
AV * construct_p_matrix ( SDL_Surface *surface ) +{ + AV * matrix = newAV(); + int i, j; + for( i =0 ; i < surface->w; i++) + { + AV * matrix_row = newAV(); + for( j =0 ; j < surface->h; j++) + { + av_push(matrix_row, get_pixel32(surface, i,j) ); + } + av_push(matrix, newRV_noinc((SV*) matrix_row) ); + } + + return matrix; +} +
+
You can see the complete here.
+
In Perl I can do a get access on this pixel using:
-
Website and Windows Testing
FROGGS (Tobias Leich): Came in as a new user to SDL Perl. And after breaking the redesigned SDL Perl in as many ways possible he has decided to help out on the new site.-
-
-
Last Legacy Release
-Ok! Now this weekend hopefully we will release our last legacy release, after this we move on! This release will focus on showing of SDL + Perl possibilities.
-
Pong + SDL::Game::Rect
garu has been working on making SDL object extensions that provide a more perly way to use and play with the SDL bindings. To demonstrate the benefits of this SDL::Tutorial::Pong is done and being polished up. SDL::Game::Rect is a peek in to the design and vision we have for SDL down the road.-
Design
The design we have settled on for future release for SDL Perl can be broken in to two layers, SDL::* and SDL::Game::*. Previously the SDL Perl library tried to provide C bindings and provide Perl Idiomatic access. This was messy in regards to the single responsibility principle (do one thing and do it well).-
-We have decided to separate these two focuses into the two name spaces SDL::* and SDL::Game::*. SDL::* will provide straight access to SDL's C API, nothing less and nothing more. SDL::Game::* will extend and make pretty unicorns for Perl.
-
-This design has already begin to pay of. One major benefit been in the XS readability. Moreover since structs are treated as objects, Perl manages their destruction, and deliver less memory leaks.
-
