Another offset by 4

This commit is contained in:
Stefan `Sec` Zehl 2011-08-04 23:45:52 +02:00
parent f504eb3e60
commit eb8598ce48
3 changed files with 1 additions and 1 deletions

View File

@ -54,7 +54,7 @@ my @img;
for my $y (0..$h-1){
for my $x (0..$w-1){
my $px= $image->getPixel($x,$y);
$img[$x][$y/8]|=$px<<(7-$y%8);
$img[$x][($y+4)/8]|=$px<<(7-($y+4)%8);
if($verbose){
$px=~y/01/ */; print STDERR $px;
};

Binary file not shown.

Binary file not shown.