FM / QRCode

/usr/share/doc/perl-GD-Barcode/sample/QRCode/

/usr/share/doc/perl-GD-Barcode/sample/QRCode

Name	Size	Mode	Actions
bar2.png	196	0644	edit dl rm
bar2.txt	3422	0644	edit dl rm
chkPng.pl	1155	0644	edit dl rm
qrc4.png	214	0644	edit dl rm
qrc4.txt	13572	0644	edit dl rm
reschk.png	214	0644	edit dl rm
testGD.pl	614	0644	edit dl rm

Edit: /usr/share/doc/perl-GD-Barcode/sample/QRCode/chkPng.pl (1155B)

use strict;
use GD qw(:DEFAULT :cmp);
my $oOld = GD::Image->newFromPng('reschk.png');
my $oNew = GD::Image->newFromPng('qrc4.png');
printf "CMP              :%8b\n", $oOld->compare($oNew), "\n";
printf "GD_CMP_IMAGE     :%8b\n", GD_CMP_IMAGE;
printf "GD_CMP_NUM_COLORS:%8b\n", GD_CMP_NUM_COLORS;
printf "GD_CMP_COLOR     :%8b\n", GD_CMP_COLOR     ;
printf "GD_CMP_SIZE_X    :%8b\n", GD_CMP_SIZE_X    ;
printf "GD_CMP_SIZE_Y    :%8b\n", GD_CMP_SIZE_Y    ;
printf "GD_CMP_TRANSPAREN:%8b\n", GD_CMP_TRANSPARENT;
printf "GD_CMP_BACKGROUND:%8b\n", GD_CMP_BACKGROUND;
printf "GD_CMP_INTERLACE :%8b\n", GD_CMP_INTERLACE;
my($iOldX, $iOldY) = $oOld->getBounds();
my($iNewX, $iNewY) = $oNew->getBounds();
for(my $i=0;$i<$iOldX; ++$i) {
    for(my $j=0;$j<$iOldY; ++$j) {
        my $iOIdx = $oOld->getPixel($i, $j);
        my $sOS = join(',', $oOld->rgb($iOIdx));
        my $iNIdx = $oNew->getPixel($i, $j);
        my $sNS = join(',', $oNew->rgb($iNIdx));
        print "($i, $j) => $sNS , $sOS\n" if($sOS ne $sNS);
    }
}
__END__
print $oOld->compare($oNew);
my $cB = $oOld->colorAllocate(10,10,255);
$oOld->setPixel(0, 0, $cB);
print $oNew->compare($oOld);

use strict; use GD qw(:DEFAULT :cmp); my $oOld = GD::Image->newFromPng('reschk.png'); my $oNew = GD::Image->newFromPng('qrc4.png'); printf "CMP :%8b\n", $oOld->compare($oNew), "\n"; printf "GD_CMP_IMAGE :%8b\n", GD_CMP_IMAGE; printf "GD_CMP_NUM_COLORS:%8b\n", GD_CMP_NUM_COLORS; printf "GD_CMP_COLOR :%8b\n", GD_CMP_COLOR ; printf "GD_CMP_SIZE_X :%8b\n", GD_CMP_SIZE_X ; printf "GD_CMP_SIZE_Y :%8b\n", GD_CMP_SIZE_Y ; printf "GD_CMP_TRANSPAREN:%8b\n", GD_CMP_TRANSPARENT; printf "GD_CMP_BACKGROUND:%8b\n", GD_CMP_BACKGROUND; printf "GD_CMP_INTERLACE :%8b\n", GD_CMP_INTERLACE; my($iOldX, $iOldY) = $oOld->getBounds(); my($iNewX, $iNewY) = $oNew->getBounds(); for(my $i=0;$i<$iOldX; ++$i) { for(my $j=0;$j<$iOldY; ++$j) { my $iOIdx = $oOld->getPixel($i, $j); my $sOS = join(',', $oOld->rgb($iOIdx)); my $iNIdx = $oNew->getPixel($i, $j); my $sNS = join(',', $oNew->rgb($iNIdx)); print "($i, $j) => $sNS , $sOS\n" if($sOS ne $sNS); } } __END__ print $oOld->compare($oNew); my $cB = $oOld->colorAllocate(10,10,255); $oOld->setPixel(0, 0, $cB); print $oNew->compare($oOld);