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 $surface = $s1->surface();
my $smallest = ($surface->width() < $surface->height() ? $surface->width() : $surface->height());
my $sprite = SDLx::Sprite::Animated->new( my $sprite = SDLx::Sprite::Animated->new(
surface => $surface, surface => $surface,
width => $surface->width(), width => $smallest,
height => $surface->width(), height => $smallest,
step_x => $surface->width(), step_x => $smallest,
step_y => $surface->width(), step_y => $smallest,
); );
if(!$sprite) { if(!$sprite) {
LogData(ERROR, "Unable to load ASprite '$filename': $!"); LogData(ERROR, "Unable to load ASprite '$filename': $!");