From d48df9756fa28aac7f0a78e0f3bc829478b71634 Mon Sep 17 00:00:00 2001
From: Ryan Shepherd <rotaryprophet@gmail.com>
Date: Mon, 1 Oct 2018 13:17:57 -0400
Subject: [PATCH] Support for horizontal animated sprites

---
 PerlRPG/Assets.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/PerlRPG/Assets.pm b/PerlRPG/Assets.pm
index 7dfb793..34e7c2b 100644
--- a/PerlRPG/Assets.pm
+++ b/PerlRPG/Assets.pm
@@ -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': $!");