diff options
| author | Jesse Luehrs <doy@tozt.net> | 2014-10-08 12:05:34 -0400 |
|---|---|---|
| committer | Jesse Luehrs <doy@tozt.net> | 2014-10-08 12:05:34 -0400 |
| commit | 5513f4c6d0c63a8095d4482874126dfd5d0719b1 (patch) | |
| tree | b39421d13e6666602a481282e988a46f2f165b33 | |
| parent | d6de63eafdb806fd3c1e4cf9ae1a65105c0d0d8d (diff) | |
| download | games-nes-spritemaker-5513f4c6d0c63a8095d4482874126dfd5d0719b1.tar.gz games-nes-spritemaker-5513f4c6d0c63a8095d4482874126dfd5d0719b1.zip | |
use the correct offsets
| -rw-r--r-- | lib/Games/NES/SpriteMaker.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lib/Games/NES/SpriteMaker.pm b/lib/Games/NES/SpriteMaker.pm index 7582338..c28afec 100644 --- a/lib/Games/NES/SpriteMaker.pm +++ b/lib/Games/NES/SpriteMaker.pm @@ -22,18 +22,18 @@ sub image_to_sprite { my $bytes = ''; 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) { + for my $pixel_y ($base_y*8..$base_y*8 + 7) { my $bits; - for my $pixel_x ($base_x..$base_x + 7) { + for my $pixel_x ($base_x*8..$base_x*8 + 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_y ($base_y..$base_y + 7) { + for my $pixel_y ($base_y*8..$base_y*8 + 7) { my $bits; - for my $pixel_x ($base_x..$base_x + 7) { + for my $pixel_x ($base_x*8..$base_x*8 + 7) { my $pixel = $image->raw_pixel($pixel_y, $pixel_x); my $pixel_value = $colors{_color_key($pixel)}; $bits .= $pixel_value & 0x02 ? "1" : "0"; |