The image animation example

Create a double buffered main_screen, color black, and image
Create the sprite:

.local pmc sprite
.local pmc sprite_args
.local int sprite_type

sprite_args = new PerlHash
sprite_args[ 'surface'  ] = image

sprite = new sprite_type, sprite_args

Loop, drawing and updating the previous and current positions:

.local int x_pos
x_pos = 0

loop:
	inc x_pos
	sprite.'x'( x_pos )
	sprite.'draw'( main_screen )
	main_screen.'flip'()
	if x_pos != 100 goto loop