From af3727dbae90324bf48e69735823c352b7348762 Mon Sep 17 00:00:00 2001 From: Jesse Luehrs Date: Wed, 8 Oct 2014 01:14:18 -0400 Subject: fix orientation by swapping x and y coords --- lib/Games/NES/SpriteMaker.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lib/Games/NES/SpriteMaker.pm b/lib/Games/NES/SpriteMaker.pm index 941567e..3b4168e 100644 --- a/lib/Games/NES/SpriteMaker.pm +++ b/lib/Games/NES/SpriteMaker.pm @@ -18,20 +18,20 @@ sub image_to_sprite { my $sprite_y = $image->height / 8; my $bytes = ''; - for my $base_x (0..$sprite_x-1) { - for my $base_y (0..$sprite_y-1) { - for my $pixel_x ($base_x..$base_x + 7) { + for my $base_y (0..$sprite_y-1) { + for my $base_x (0..$sprite_x-1) { + for my $pixel_y ($base_y..$base_y + 7) { my $bits; - for my $pixel_y ($base_y..$base_y + 7) { + for my $pixel_x ($base_x..$base_x + 7) { my $pixel = $image->raw_pixel($pixel_y, $pixel_x); my $pixel_value = $colors{_color_key($pixel)}; $bits .= $pixel_value & 0x01 ? "1" : "0"; } $bytes .= pack("C", oct("0b$bits")); } - for my $pixel_x ($base_x..$base_x + 7) { + for my $pixel_y ($base_y..$base_y + 7) { my $bits; - for my $pixel_y ($base_y..$base_y + 7) { + for my $pixel_x ($base_x..$base_x + 7) { my $pixel = $image->raw_pixel($pixel_y, $pixel_x); my $pixel_value = $colors{_color_key($pixel)}; $bits .= $pixel_value & 0x02 ? "1" : "0"; -- cgit v1.2.3