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

Revert "Support for horizontal animated sprites" 

This reverts commit d48df9756f.
This commit is contained in:
Ryan Shepherd 2018-10-01 14:04:26 -04:00
parent a12db9545f
commit e7295bb18f
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
PerlRPG/Assets.pm
View File

@ -208,14 +208,12 @@ 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 => $smallest, width => $surface->width(),
height => $smallest, height => $surface->width(),
step_x => $smallest, step_x => $surface->width(),
step_y => $smallest, step_y => $surface->width(),
); );
if(!$sprite) { if(!$sprite) {
LogData(ERROR, "Unable to load ASprite '$filename': $!"); LogData(ERROR, "Unable to load ASprite '$filename': $!");