<div class="blog">
<h1 id="NAME">
-SDL RC 2.5 decides to play with PDL
+SDL Perl Game Contest - week 2 roundup
</h1>
<div class="CONTENT">
-<i>PDL provides great number crunching capabilities to Perl and SDL provides game-developer quality real-time bitmapping and sound.<br />
-You can use PDL and SDL together to create real-time,<br />
-responsive animations and simulations.<br />
-In this section we will go through the pleasures and pitfalls of working with both powerhouse libraries.</i> <b>-- David Mertnes</b><br />
-<br />
-<br />
-<h1>Creating a SDL Surface piddle</h1><br />
-PDL's core type is a piddle.<br />
-Once a piddle is provided to PDL it can go do a numerous amounts of things.<br />
-Please see the example in '<a href="http://github.com/kthakore/SDL_perl/blob/master/examples/cookbook/pdl.pl">examples/cookbook/pdl.pl</a>' in github.<br />
-<br />
-<h3>Creating a simple piddle</h3><br />
-First lets get the right modules.<br />
-<br />
-<pre style='color:#d1d1d1;background:#000000;'> <span style='color:#e66170; font-weight:bold; '>use</span> <span style='color:#b060b0; '>PDL;</span>
- <span style='color:#e66170; font-weight:bold; '>use</span> <span style='color:#904050; '>SDL</span><span style='color:#d2cd86; '>::</span><span style='color:#904050; '>Rect</span><span style='color:#b060b0; '>;</span>
- <span style='color:#e66170; font-weight:bold; '>use</span> <span style='color:#904050; '>SDL</span><span style='color:#d2cd86; '>::</span><span style='color:#904050; '>Video</span><span style='color:#b060b0; '>;</span>
- <span style='color:#e66170; font-weight:bold; '>use</span> <span style='color:#904050; '>SDL</span><span style='color:#d2cd86; '>::</span><span style='color:#904050; '>Surface</span><span style='color:#b060b0; '>;</span>
- <span style='color:#e66170; font-weight:bold; '>use</span> <span style='color:#904050; '>SDL</span><span style='color:#d2cd86; '>::</span><span style='color:#904050; '>PixelFormat</span><span style='color:#b060b0; '>;</span>
-</pre><br />
-Suppose you want a surface of size (200,400) and 32 bit (RGBA).<br />
-<br />
-<pre style='color:#d1d1d1;background:#000000;'><span style='color:#e66170; font-weight:bold; '>my</span> <span style='color:#d2cd86; '>(</span> $bytes_per_pixel<span style='color:#d2cd86; '>,</span> $width<span style='color:#d2cd86; '>,</span> $height <span style='color:#d2cd86; '>)</span> <span style='color:#d2cd86; '>=</span> <span style='color:#d2cd86; '>(</span> <span style='color:#00a800; '>4</span><span style='color:#d2cd86; '>,</span> <span style='color:#00a800; '>200</span><span style='color:#d2cd86; '>,</span> <span style='color:#00a800; '>400</span> <span style='color:#d2cd86; '>)</span><span style='color:#b060b0; '>;</span>
-</pre><br />
-Define the <b>$width</b>, <b>$height</b> and <b>$bytes_per_pixel</b>. Your <b>$bytes_per_pixel</b> is the number of bits (in this case 32) divided by 8 bits per byte. Therefore for our 32 bpp we have 4 Bpp;<br />
-<br />
-<pre style='color:#d1d1d1;background:#000000;'><span style='color:#e66170; font-weight:bold; '>my</span> $piddle <span style='color:#d2cd86; '>=</span> zeros<span style='color:#d2cd86; '>(</span> byte<span style='color:#d2cd86; '>,</span> $bytes_per_pixel<span style='color:#d2cd86; '>,</span> $width<span style='color:#d2cd86; '>,</span> $height <span style='color:#d2cd86; '>)</span><span style='color:#b060b0; '>;</span>
-</pre><br />
-Create a normal $piddle with zeros, byte format and the Bpp x width x height dimensions.<br />
-<br />
-<pre style='color:#d1d1d1;background:#000000;'><span style='color:#e66170; font-weight:bold; '>my</span> $pointer <span style='color:#d2cd86; '>=</span> $piddle<span style='color:#d2cd86; '>-></span>get_dataref<span style='color:#d2cd86; '>(</span><span style='color:#d2cd86; '>)</span><span style='color:#b060b0; '>;</span>
-</pre><br />
-Here is where we get the acutal data the piddle is pointing to. We will have SDL create a new surface from this function.<br />
-<br />
-<pre style='color:#d1d1d1;background:#000000;'><span style='color:#e66170; font-weight:bold; '>my</span> $surface <span style='color:#d2cd86; '>=</span> <span style='color:#904050; '>SDL</span><span style='color:#d2cd86; '>::</span><span style='color:#904050; '>Surface</span><span style='color:#d2cd86; '>-></span>new_from<span style='color:#d2cd86; '>(</span> $pointer<span style='color:#d2cd86; '>,</span> $width<span style='color:#d2cd86; '>,</span> $height<span style='color:#d2cd86; '>,</span> <span style='color:#00a800; '>32</span><span style='color:#d2cd86; '>,</span>
- $width <span style='color:#d2cd86; '>*</span> $bytes_per_pixel <span style='color:#d2cd86; '>)</span><span style='color:#b060b0; '>;</span>
-</pre><br />
-Using the same dimensions we create the surface using <b>SDL::Surface->new_form()</b>. The <b>$width * $Bpp</b> is the scanline (pitch) of the surface in bytes.<br />
-<br />
-<pre style='color:#d1d1d1;background:#000000;'><span style='color:#e66170; font-weight:bold; '>warn</span> <span style='color:#00c4c4; '>"Made surface of </span><span style='color:#00c4c4; '>$width</span><span style='color:#00c4c4; '>, </span><span style='color:#00c4c4; '>$height</span><span style='color:#00c4c4; '> and "</span><span style='color:#d2cd86; '>.</span> $surface<span style='color:#d2cd86; '>-></span>format<span style='color:#d2cd86; '>-></span>BytesPerPixel<span style='color:#b060b0; '>;</span>
- <span style='color:#e66170; font-weight:bold; '>return</span> <span style='color:#d2cd86; '>(</span> $piddle<span style='color:#d2cd86; '>,</span> $surface <span style='color:#d2cd86; '>)</span><span style='color:#b060b0; '>;</span>
-</pre><br />
-Finally make sure that the surface acutally has the correct dimensions we gave.<br />
-<br />
-<b>NOTE:</b> <b>$surface->format->BytesPerPixel</b> must return 1,2,3,4. !!<br />
-<br />
-Now you can blit and use the surface as needed; and do PDL operations as required.<br />
-<br />
-<h3>Operating on the Surface safely</h3><br />
-To make sure SDL is in sync with the data. You must call SDL::Video::lock <b>before</b> doing PDL operations on the piddle.<br />
-<br />
-<pre><pre style='color:#d1d1d1;background:#000000;'><span style='color:#904050; '>SDL</span><span style='color:#d2cd86; '>::</span><span style='color:#904050; '>Video</span><span style='color:#d2cd86; '>:</span><span style='color:#d2cd86; '>:</span>lock_surface<span style='color:#d2cd86; '>(</span>$surface<span style='color:#d2cd86; '>)</span><span style='color:#b060b0; '>;</span>
-
- $piddle <span style='color:#d2cd86; '>(</span> <span style='color:#d2cd86; '>:</span><span style='color:#d2cd86; '>,</span> <span style='color:#00a800; '>0</span> <span style='color:#d2cd86; '>:</span> <span style='color:#e66170; font-weight:bold; '>rand</span><span style='color:#d2cd86; '>(</span><span style='color:#00a800; '>400</span><span style='color:#d2cd86; '>)</span><span style='color:#d2cd86; '>,</span> <span style='color:#00a800; '>0</span> <span style='color:#d2cd86; '>:</span> <span style='color:#e66170; font-weight:bold; '>rand</span><span style='color:#d2cd86; '>(</span><span style='color:#00a800; '>200</span><span style='color:#d2cd86; '>)</span> <span style='color:#d2cd86; '>)</span> <span style='color:#d2cd86; '>.</span><span style='color:#d2cd86; '>=</span> pdl<span style='color:#d2cd86; '>(</span> <span style='color:#e66170; font-weight:bold; '>rand</span><span style='color:#d2cd86; '>(</span><span style='color:#00a800; '>225</span><span style='color:#d2cd86; '>)</span><span style='color:#d2cd86; '>,</span> <span style='color:#e66170; font-weight:bold; '>rand</span><span style='color:#d2cd86; '>(</span><span style='color:#00a800; '>225</span><span style='color:#d2cd86; '>)</span><span style='color:#d2cd86; '>,</span> <span style='color:#e66170; font-weight:bold; '>rand</span><span style='color:#d2cd86; '>(</span><span style='color:#00a800; '>255</span><span style='color:#d2cd86; '>)</span><span style='color:#d2cd86; '>,</span> <span style='color:#00a800; '>255</span> <span style='color:#d2cd86; '>)</span><span style='color:#b060b0; '>;</span>
-</pre></pre><br />
-After that you can unlock the surface to blit.<br />
-<br />
-<pre style='color:#d1d1d1;background:#000000;'><span style='color:#904050; '>SDL</span><span style='color:#d2cd86; '>::</span><span style='color:#904050; '>Video</span><span style='color:#d2cd86; '>:</span><span style='color:#d2cd86; '>:</span>unlock_surface<span style='color:#d2cd86; '>(</span>$surface<span style='color:#d2cd86; '>)</span><span style='color:#b060b0; '>;</span>
-</pre><br />
-<h3>Errors due to BPP at blitting</h3><br />
-When blitting the new surface check for the return value to see if there has been a problem.<br />
-<br />
-<pre style='color:#d1d1d1;background:#000000;'><span style='color:#e66170; font-weight:bold; '>my</span> $b <span style='color:#d2cd86; '>=</span> <span style='color:#904050; '>SDL</span><span style='color:#d2cd86; '>::</span><span style='color:#904050; '>Video</span><span style='color:#d2cd86; '>:</span><span style='color:#d2cd86; '>:</span>blit_surface<span style='color:#d2cd86; '>(</span>
- $surface<span style='color:#d2cd86; '>,</span> <span style='color:#904050; '>SDL</span><span style='color:#d2cd86; '>::</span><span style='color:#904050; '>Rect</span><span style='color:#d2cd86; '>-></span>new<span style='color:#d2cd86; '>(</span> <span style='color:#00a800; '>0</span><span style='color:#d2cd86; '>,</span> <span style='color:#00a800; '>0</span><span style='color:#d2cd86; '>,</span> $surface<span style='color:#d2cd86; '>-></span>w<span style='color:#d2cd86; '>,</span> $surface<span style='color:#d2cd86; '>-></span>h <span style='color:#d2cd86; '>)</span><span style='color:#d2cd86; '>,</span>
- $app<span style='color:#d2cd86; '>,</span> <span style='color:#904050; '>SDL</span><span style='color:#d2cd86; '>::</span><span style='color:#904050; '>Rect</span><span style='color:#d2cd86; '>-></span>new<span style='color:#d2cd86; '>(</span> <span style='color:#d2cd86; '>(</span> $app<span style='color:#d2cd86; '>-></span>w <span style='color:#d2cd86; '>-</span> $surface<span style='color:#d2cd86; '>-></span>w <span style='color:#d2cd86; '>)</span> <span style='color:#d2cd86; '>/</span> <span style='color:#00a800; '>2</span><span style='color:#d2cd86; '>,</span> <span style='color:#d2cd86; '>(</span> $app<span style='color:#d2cd86; '>-></span>h <span style='color:#d2cd86; '>-</span> $surface<span style='color:#d2cd86; '>-></span>h <span style='color:#d2cd86; '>)</span> <span style='color:#d2cd86; '>/</span> <span style='color:#00a800; '>2</span><span style='color:#d2cd86; '>,</span> $app<span style='color:#d2cd86; '>-></span>w<span style='color:#d2cd86; '>,</span> $app<span style='color:#d2cd86; '>-></span>h <span style='color:#d2cd86; '>)</span>
- <span style='color:#d2cd86; '>)</span><span style='color:#b060b0; '>;</span>
-
- <span style='color:#e66170; font-weight:bold; '>die</span> <span style='color:#00c4c4; '>"Could not blit: "</span> <span style='color:#d2cd86; '>.</span> <span style='color:#904050; '>SDL</span><span style='color:#d2cd86; '>::</span><span style='color:#904050; '>get_error</span><span style='color:#d2cd86; '>(</span><span style='color:#d2cd86; '>)</span> <span style='color:#e66170; font-weight:bold; '>if</span> <span style='color:#d2cd86; '>(</span> $b <span style='color:#d2cd86; '>=</span><span style='color:#d2cd86; '>=</span> <span style='color:#d2cd86; '>-</span><span style='color:#00a800; '>1</span> <span style='color:#d2cd86; '>)</span><span style='color:#b060b0; '>;</span>
-</pre><br />
-If the error message is 'Blit combination not supported' that means that the BPP is incorrect or incosistent with the dimensions. After that a simple update_rect will so your new surface on the screen.<div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/3102167581424744259-3580429408870545769?l=yapgh.blogspot.com' alt='' /></div>
-<p><a href="http://feedads.g.doubleclick.net/~a/HRpCokqdJ-wzrP1ZXUvgwcUNL_s/0/da"><img src="http://feedads.g.doubleclick.net/~a/HRpCokqdJ-wzrP1ZXUvgwcUNL_s/0/di" border="0" ismap="true"></img></a><br/>
-<a href="http://feedads.g.doubleclick.net/~a/HRpCokqdJ-wzrP1ZXUvgwcUNL_s/1/da"><img src="http://feedads.g.doubleclick.net/~a/HRpCokqdJ-wzrP1ZXUvgwcUNL_s/1/di" border="0" ismap="true"></img></a></p><img src="http://feeds.feedburner.com/~r/YetAnotherPerlGameHackeryapgh/~4/KBG0kvzZCFo" height="1" width="1"/></div></div>
\ No newline at end of file
+Yes, I know it's already wednesday, sorry for the delay! The <a href="http://yapgh.blogspot.com/2011/02/sdl-perl-game-contest.html">SDL Perl Game Contest</a> continues - I should know, I'm about halfway through my third game now! - and last week we had some real nice entries. Check 'em out!<br /><br /><br /><a href="https://github.com/FROGGS/Games-WheelOfFortune">Wheel of Fortune</a>, by Tobias Leich (FROGGS)<br /><br /><a href="http://3.bp.blogspot.com/-chf_zVmlu-k/TYEhNEfL_4I/AAAAAAAAALA/J0Q8OHHPTAw/s1600/wheel_of_fortune.png"><img style="cursor: pointer; width: 400px; height: 231px;" src="http://3.bp.blogspot.com/-chf_zVmlu-k/TYEhNEfL_4I/AAAAAAAAALA/J0Q8OHHPTAw/s400/wheel_of_fortune.png" alt="" id="BLOGGER_PHOTO_ID_5584781521342693250" border="0" /></a><br /><br />Who never yelled madly in front of the TV watching contestants make a fool out of themselves for not knowing the words in Wheel of Fortune? Well, now you can show them how it's done in this Hangman style classic! One note though: to play it, you must install the latest experimental version of SDL Perl, that includes rects with alpha blending and other goodies.<br /><br /><br /><a href="https://github.com/jtpalmer/sdl-contest/tree/master/week2">Snake</a>, by JT Palmer (jtpalmer)<br /><br /><a href="http://4.bp.blogspot.com/-PtigRvQdJFo/TYEhXed7WHI/AAAAAAAAALI/SwHeKIJdGyo/s1600/snake.png"><img style="cursor: pointer; width: 400px; height: 312px;" src="http://4.bp.blogspot.com/-PtigRvQdJFo/TYEhXed7WHI/AAAAAAAAALI/SwHeKIJdGyo/s400/snake.png" alt="" id="BLOGGER_PHOTO_ID_5584781700115421298" border="0" /></a><br /><br /><br />Another classic remake beautifully done by jtpalmer. This "nibbles" clone actually comes with a nice twist: a full-blown network version that lets you enjoy the game with a friend anywhere in the world. Sweet!<br /><br /><br /><a href="https://github.com/zpmorgan/march_sdl_madness/tree/master/first">CyberHack</a>, by Zach Morgan (zpmorgan)<br /><br /><a href="http://1.bp.blogspot.com/-gD_eGGjtJlM/TYE_7iaPbSI/AAAAAAAAALg/0BDAFCMutpE/s1600/cyberhack.png"><img style="cursor: pointer; width: 400px; height: 315px;" src="http://1.bp.blogspot.com/-gD_eGGjtJlM/TYE_7iaPbSI/AAAAAAAAALg/0BDAFCMutpE/s400/cyberhack.png" alt="" id="BLOGGER_PHOTO_ID_5584815304997825826" border="0" /></a><br /><br />CyberHack is a quick platformer demo by zpmorgan, our newest participant in the Challenge! In this game, you control a green creature that falls through a deep underground maze. It still has some minor quirks in the image blitting, but it's nevertheless really fun to play!<br /><br /><br /><a href="https://github.com/kthakore/SDL_Contest/tree/master/second">Synthesia Kinda</a>, by Kartik Thakore (kthakore)<br /><br /><a href="http://3.bp.blogspot.com/-LK_ztBA-aOw/TYEhktRtpMI/AAAAAAAAALQ/d-NivmUQ1Cs/s1600/synthesia_kinda.png"><img style="cursor: pointer; width: 400px; height: 177px;" src="http://3.bp.blogspot.com/-LK_ztBA-aOw/TYEhktRtpMI/AAAAAAAAALQ/d-NivmUQ1Cs/s400/synthesia_kinda.png" alt="" id="BLOGGER_PHOTO_ID_5584781927429022914" border="0" /></a><br /><br />The Mad Canadian strikes again, in a dazzling... thing. It was originally supposed to be based in <a href="http://www.synthesiagame.com/">Synthesia</a>, but kthakore envisioned a game that plays <span style="font-weight: bold;">any</span> image! Of course, as FROGGS put it, <span style="font-style: italic;">"you can't play a random image and expect that it sounds like mozart"</span>, but kthakore is determined to work on it even more, letting it flow until it find its course in game art history.<br /><br /><br /><a href="https://github.com/PerlGameDev/Games-Reflex">Reflex</a>, by... me (garu)<br /><br /><a href="http://2.bp.blogspot.com/-XXybYwheg88/TYEh0_lLrmI/AAAAAAAAALY/t-vQnkkzVGw/s1600/reflex.png"><img style="cursor: pointer; width: 400px; height: 312px;" src="http://2.bp.blogspot.com/-XXybYwheg88/TYEh0_lLrmI/AAAAAAAAALY/t-vQnkkzVGw/s400/reflex.png" alt="" id="BLOGGER_PHOTO_ID_5584782207220428386" border="0" /></a><br /><br />This is a very simple game in which you test your reflexes by pressing any key on your keyboard whenever the big red button lights up. Your Top 20 times appear on the right. According to <a href="http://humanbenchmark.com/">HumanBenchmark</a>, the average reaction time for visual stimuli in a humans is 215 miliseconds. Are you faster??<br /><br />This week's roundup of games showed some pretty interesting stuff, and we saw a lot of ideas come to life in a very short period of time. I can't wait to see the next entries!<br /><br />See you next week =)<div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/3102167581424744259-1170164316359856576?l=yapgh.blogspot.com' alt='' /></div>
+<p><a href="http://feedads.g.doubleclick.net/~a/5tsWcgX8Z-ZfrSaCg3n_lfOb4oU/0/da"><img src="http://feedads.g.doubleclick.net/~a/5tsWcgX8Z-ZfrSaCg3n_lfOb4oU/0/di" border="0" ismap="true"></img></a><br/>
+<a href="http://feedads.g.doubleclick.net/~a/5tsWcgX8Z-ZfrSaCg3n_lfOb4oU/1/da"><img src="http://feedads.g.doubleclick.net/~a/5tsWcgX8Z-ZfrSaCg3n_lfOb4oU/1/di" border="0" ismap="true"></img></a></p><img src="http://feeds.feedburner.com/~r/YetAnotherPerlGameHackeryapgh/~4/mmA2tOBq6h8" height="1" width="1"/></div></div>
\ No newline at end of file
projects / sdlgit/SDL-Site.git / blobdiff