From e7295bb18ff7a413be9328cb136876e1d1d1f2a3 Mon Sep 17 00:00:00 2001
From: Ryan Shepherd <rotaryprophet@gmail.com>
Date: Mon, 1 Oct 2018 14:04:26 -0400
Subject: [PATCH] Revert "Support for horizontal animated sprites"

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

diff --git a/PerlRPG/Assets.pm b/PerlRPG/Assets.pm
index 34e7c2b..7dfb793 100644
--- a/PerlRPG/Assets.pm
+++ b/PerlRPG/Assets.pm
@@ -208,14 +208,12 @@ 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	=> $smallest,
-		height	=> $smallest,
-		step_x	=> $smallest,
-		step_y	=> $smallest,
+		width	=> $surface->width(),
+		height	=> $surface->width(),
+		step_x	=> $surface->width(),
+		step_y	=> $surface->width(),
 		);
 	if(!$sprite) {
 		LogData(ERROR, "Unable to load ASprite '$filename': $!");