fix for strange mac problem?
This commit is contained in:
parent
ea19c3618b
commit
197db839e6
|
@ -54,6 +54,7 @@ my @img;
|
|||
for my $y (0..$h-1){
|
||||
for my $x (0..$w-1){
|
||||
my $px= $image->getPixel($x,$y);
|
||||
$px=1 if $px>1;
|
||||
$img[$x][($y+4)/8]|=$px<<(7-($y+4)%8);
|
||||
if($verbose){
|
||||
$px=~y/01/ */; print STDERR $px;
|
||||
|
|
Loading…
Reference in New Issue