Another offset by 4
This commit is contained in:
parent
f504eb3e60
commit
eb8598ce48
|
@ -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.
Loading…
Reference in New Issue