summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2014-10-08 01:14:18 -0400
committerJesse Luehrs <doy@tozt.net>2014-10-08 01:14:18 -0400
commitaf3727dbae90324bf48e69735823c352b7348762 (patch)
treebd25623f878b530686319908a470ec7e3d90d661
parent5b7b42f213c2d30f595f33f612540d199be47220 (diff)
downloadgames-nes-spritemaker-af3727dbae90324bf48e69735823c352b7348762.tar.gz
games-nes-spritemaker-af3727dbae90324bf48e69735823c352b7348762.zip
fix orientation by swapping x and y coords
-rw-r--r--lib/Games/NES/SpriteMaker.pm12
1 files 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";