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 $y (0..$h-1){
|
||||||
for my $x (0..$w-1){
|
for my $x (0..$w-1){
|
||||||
my $px= $image->getPixel($x,$y);
|
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){
|
if($verbose){
|
||||||
$px=~y/01/ */; print STDERR $px;
|
$px=~y/01/ */; print STDERR $px;
|
||||||
};
|
};
|
||||||
|
|
Binary file not shown.
Binary file not shown.
Loading…
Reference in New Issue