view release on metacpan or  search on metacpan

Sprite.pm  view on Meta::CPAN

159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
=item $sprites->destroy( $sprite_number );
 
Completely destroys a sprite.
 
=cut
 
sub destroy
        {
        }
 
sub update_sprite
        {
                my ($self, $item) = @_;
                my $cg = $self->{sprite}->{$item};
                $cg->{cx} = $cg->{x} + $cg->{width}/2;
                $cg->{cy} = $cg->{y} + $cg->{height}/2;
        }
                 
                 
 
=item $sprites->move_to( $sprite_number, 10, 20 );