Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
120 lines (87 sloc) 2.68 KB
=head1 TITLE
anim_image_dblbuf.pir - animate an image in a doublebuffered Parrot SDL window
=head1 SYNOPSIS
To run this file, run the following command from the Parrot root directory:
$ ./parrot examples/sdl/anim_image_dblbuf.pir
Drew 540 frames in 2.200484 seconds (245.400580 fps)
$
=cut
.sub _main :main
load_bytecode "SDL/App.pir"
load_bytecode "SDL/Color.pir"
load_bytecode "SDL/Rect.pir"
load_bytecode "SDL/Image.pir"
load_bytecode "SDL/Sprite.pir"
.local pmc app
app = new ['SDL'; 'App']
app.'init'( 'height' => 480, 'width' => 640, 'bpp' => 0, 'flags' => 1073741825 )
.local pmc main_screen
main_screen = app.'surface'()
.local pmc dest_rect
dest_rect = new ['SDL'; 'Rect']
dest_rect.'init'( 'height' => 100, 'width' => 100, 'x' => 0, 'y' => 190 )
.local pmc prev_rect
prev_rect = new ['SDL'; 'Rect']
prev_rect.'init'( 'height' => 100, 'width' => 101, 'x' => 0, 'y' => 190 )
.local pmc source_rect
source_rect = new ['SDL'; 'Rect']
source_rect.'init'( 'height' => 56, 'width' => 100, 'x' => 0, 'y' => 0 )
.local pmc black
black = new ['SDL'; 'Color']
black.'init'( 'r' => 0, 'g' => 0, 'b' => 0 )
.local pmc image
image = new ['SDL'; 'Image']
image.'init'( 'examples/sdl/parrot_small.png' )
.local pmc sprite
sprite = new ['SDL'; 'Sprite']
sprite.'init'( 'surface' => image, 'source_x' => 0, 'source_y' => 0, 'dest_x' => 0, 'dest_y' => 190, 'bgcolor' => black )
.local num start_time
time start_time
_animate_on_x_axis( main_screen, sprite, 0, 540, 2)
sleep 1
_animate_on_x_axis( main_screen, sprite, 540, 0, -2)
.local num end_time
time end_time
.local num total_time
total_time = end_time - start_time
dec total_time
.local num fps
fps = 540 / total_time
print "Drew 540 frames in "
print total_time
print " seconds ("
print fps
print " fps)\n"
sleep 1
app.'quit'()
end
.end
.sub _animate_on_x_axis
.param pmc screen
.param pmc sprite
.param int start_pos
.param int end_pos
.param int step_size
# PMCs:
# destination SDL::Surface and SDL::Sprite to animate
# Ints:
# starting and x coordinates and number of pixels to move at a time
.local int x_pos
x_pos = start_pos
_loop:
add x_pos, step_size
sprite.'x'( x_pos )
sprite.'draw'( screen )
screen.'flip'()
if x_pos != end_pos goto _loop
.end
=head1 AUTHOR
chromatic, E<lt>chromatic at wgz dot orgE<gt>.
=head1 COPYRIGHT
Copyright (C) 2004-2008, Parrot Foundation.
=cut
# Local Variables:
# mode: pir
# fill-column: 100
# End:
# vim: expandtab shiftwidth=4 ft=pir:
Jump to Line
Something went wrong with that request. Please try again.