<div class="blog">
<h1 id="NAME">
-Hello Mouse? An Example of the New Event Code
+Introduction Box2D for Perl Games!
</h1>
<div class="CONTENT">
-<div style="text-align: right;"><i>Any code that is not marketed is dead code <br />--mst</i><br /></div><br />You need the new code from the <b> <a href="http://http://github.com/kthakore/SDL_Perl/tree/redesign">redesign branch</a></b> to use this . <br /><br /><pre class="fake-gist" id="fake-gist-231987">#!/usr/bin/env perl<br /><br />use SDL;<br />use SDL::Events;<br />use SDL::Event;<br />use SDL::Video; <br /><br />SDL::init(SDL_INIT_VIDEO);<br /><br />my $display = SDL::Video::set_video_mode(640,480,32, SDL_SWSURFACE );<br />my $event = SDL::Event->new(); <br /><br />while(1)<br />{ <br /> SDL::Events::pump_events(); <br /><br /> if(SDL::Events::poll_event($event) && $event->type == SDL_ACTIVEEVENT)<br /> {<br /> print "Hello Mouse!!!\n" if ($event->active_gain && ($event->active_state == SDL_APPMOUSEFOCUS) );<br /> print "Bye Mouse!!!\n" if (!$event->active_gain && ($event->active_state == SDL_APPMOUSEFOCUS) );<br /> } <br /> <br /> exit if($event->type == SDL_QUIT);<br />}</pre><div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/3102167581424744259-4268622242266513664?l=yapgh.blogspot.com' alt='' /></div></div></div>
\ No newline at end of file
+So over the last couple days I have started binding Box2D 2.1.0 to Perl. <a href="http://www.box2d.org/">Box2D</a> is a 2D physics engine used in game such as the popular <a href="http://www.google.com/url?sa=t&source=video&cd=3&sqi=2&ved=0CF0QtwIwAg&url=http%3A%2F%2Fwww.youtube.com%2Fwatch%3Fv%3D2BqfjGDsHUs&rct=j&q=angry%20birds%20gameplay&tbm=vid&ei=eUO-TaXaKcSCtgf67Y21BQ&usg=AFQjCNEs9L34n_0Q_Rc6eMqvfj8arpl6vg&sig2=5G8hr533dr24sYJXWactMw&cad=rja">Angry Birds</a>. Here is the repository:<br />
+<a href="https://github.com/PerlGameDev/Box2D-perl">https://github.com/PerlGameDev/Box2D-perl</a><br />
+<br />
+Also here is the helloWorld Box2D <a href="https://github.com/PerlGameDev/Box2D-perl/blob/master/examples/helloWorld.pl">example</a> in pure Perl and rendered with SDL Perl. You can<br />
+see the video on <a href="http://vimeo.com/23140451">Box2D Hello World and SDL</a> on <a href="http://vimeo.com">Vimeo</a>.</p><br />
+To run this example you will need to install Box2D 2.1.0 .<div class="blogger-post-footer"><img width='1' height='1' src='https://blogger.googleusercontent.com/tracker/3102167581424744259-4564257794842221147?l=yapgh.blogspot.com' alt='' /></div>
+<p><a href="http://feedads.g.doubleclick.net/~a/aKPSS5zxIO0BXVAEGw_ui48caU0/0/da"><img src="http://feedads.g.doubleclick.net/~a/aKPSS5zxIO0BXVAEGw_ui48caU0/0/di" border="0" ismap="true"></img></a><br/>
+<a href="http://feedads.g.doubleclick.net/~a/aKPSS5zxIO0BXVAEGw_ui48caU0/1/da"><img src="http://feedads.g.doubleclick.net/~a/aKPSS5zxIO0BXVAEGw_ui48caU0/1/di" border="0" ismap="true"></img></a></p><img src="http://feeds.feedburner.com/~r/YetAnotherPerlGameHackeryapgh/~4/ZX19dxuxMKQ" height="1" width="1"/></div></div>
\ No newline at end of file