Ryan
/
PerlRPG
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Support for horizontal animated sprites

This commit is contained in:
Ryan Shepherd 2018-10-01 13:17:57 -04:00
parent e1d0817a5b
commit d48df9756f
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
PerlRPG/Assets.pm
View File

@ -208,12 +208,14 @@ sub LoadAnimatedSprite {
);
my $surface = $s1->surface();
my $smallest = ($surface->width() < $surface->height() ? $surface->width() : $surface->height());
my $sprite = SDLx::Sprite::Animated->new(
surface => $surface,
width => $surface->width(),
height => $surface->width(),
step_x => $surface->width(),
step_y => $surface->width(),
width => $smallest,
height => $smallest,
step_x => $smallest,
step_y => $smallest,
);
if(!$sprite) {
LogData(ERROR, "Unable to load ASprite '$filename': $!");