- CATEGORY -
-
+
- @@ -20,58 +16,45 @@
-
NAME
-SDL::Tutorial::Animation
+Redrawing the Screen
+Since you have to draw the screen in the right order once to start with it's
+pretty easy to make this into a loop and redraw things in the right order for
+every frame. Given a SDLx::App object $app, a SDL::Rect $rect, and
+a SDL::Color $color, you only have to create a new SDL::Rect $bg,
+representing the whole of the background surface and a new mapped color
+$bg_color, representing the background color. The colors need to be mapped
+to the format of the current display. This is done by SDL::Video::map_RGB.
+
my $color = SDL::Video::map_RGB ( + $app->format, + $rect_r, + $rect_g, + $rect_b, +);
+my $bg_color = SDL::Video::map_RGB ( + $app->format, + $bg_r, + $bg_g, + $bg_b, +);
+-
CATEGORY
-Tutorials
-SYNOPSIS
-# to read this tutorial - $ perldoc SDL::Tutorial::Animation - # to create a demo animation program based on this tutorial - $ perl -MSDL::Tutorial::Animation=sdl_anim.pl -e 1 --
ANIMATING A RECTANGLE
-Now that you can display a rectangle on the screen, the next step is to animate -that rectangle. As with movies, there's no actual motion. Computer animations are just very very fast slideshows. The hard work is creating nearly identical images in every slide (or frame, in graphics terms).
-Okay, it's not that difficult.
-There is one small difficulty to address, however. Once you blit one surface -onto another, the destination is changed permanently. There's no concept of -layers here unless you write it yourself. If you fail to take this into -account (and just about everyone does at first), you'll end up with blurry -graphics moving around on the screen.
-There are two approaches to solve this problem, redrawing the screen on every -frame and saving and restoring the background for every object drawn.
-Redrawing the Screen
-Since you have to draw the screen in the right order once to start with it's
-pretty easy to make this into a loop and redraw things in the right order for
-every frame. Given a SDL::App object $app, a SDL::Rect $rect, and
-a SDL::Color $color, you only have to create a new SDL::Rect $bg,
-representing the whole of the background surface and a new SDL::Color
-$bg_color, representing the background color. You can write a
-draw_frame() function as follows:
You can write a draw_frame() function as follows:
sub draw_frame
{
my ($app, %args) = @_;
- $app->fill( $args{ bg }, $args{ bg_color } );
- $app->fill( $args{rect}, $args{rect_color} );
- $app->update( $args{bg} );
+ SDL::Video::fill_rect($app, $args{bg}, $args{bg_color} );
+ SDL::Video::fill_rect($app, $args{rect}, $args{rect_color} );
+ SDL::Video::update_rects($app, $args{bg} );
}
@@ -118,9 +101,10 @@ figure out the rectangle of the correct size to update(). No thank
{
my ($app, %args) = @_;
- $app->fill( $args{old_rect}, $args{bg_color} );
- $app->fill( $args{rect], $args{rect_color} );
- $app->update( $args{old_rect}, $args{rect} );
+ SDL::Video::fill_rect($app, $args{old_rect}, $args{bg_color} );
+ SDL::Video::fill_rect($app, $args{rect}, $args{rect_color} );
+ SDL::Video::update_rects($app, $args{old_rect} );
+ SDL::Video::update_rects($app, $args{rect} );
}
@@ -169,6 +153,7 @@ them soon.
AUTHOR
chromatic, <chromatic@wgz.org>
+updated by kthakore, <kthakore@cpan.org>
Written for and maintained by the Perl SDL project, http://sdl.perl.org/.