From: <dm...@us...> - 2010-04-05 17:08:36
|
Revision: 1260 http://panotools.svn.sourceforge.net/panotools/?rev=1260&view=rev Author: dmg Date: 2010-04-05 17:08:29 +0000 (Mon, 05 Apr 2010) Log Message: ----------- Added compare images Added Paths: ----------- trunk/libpano/tests/compareImages.pl Added: trunk/libpano/tests/compareImages.pl =================================================================== --- trunk/libpano/tests/compareImages.pl (rev 0) +++ trunk/libpano/tests/compareImages.pl 2010-04-05 17:08:29 UTC (rev 1260) @@ -0,0 +1,56 @@ +#!/usr/bin/perl + +use File::Temp qw/ tempfile tempdir /; +use strict; + +use Getopt::Long; +my ($uncrop1, $uncrop2,$verbose); +GetOptions( 'uncrop1' => \$uncrop1, + 'uncrop2' => \$uncrop2, + 'verbose' => \$verbose, + ); + +my $first = shift @ARGV; + +my $second = shift @ARGV; + +die "file not found [$first]" if (not -f $first); +die "file not found [$second]" if (not -f $second); + + +my ($fhTIFF, $tmp) = tempfile('tmpXXXX', {SUFFIX => 'tif', UNLINK => 1}); +my ($fh, $tmp) = tempfile('tmpXXXX', {SUFFIX => 'png', UNLINK => 1}); + +my $output; +my $tmpFull1 = ''; +my $tmpFull2 = ''; + + +if ($uncrop1) { + my $tmp = "tmp$$"; + $tmpFull1 = "tmp${$}0000.tif"; + `PTuncrop -p $tmp -q $first`; + die "Unable to uncrop $first" if (not -f $tmpFull1); + $first = $tmpFull1; +} + +if ($uncrop2) { + my $tmp = "tmpa${$}"; + $tmpFull2 = "tmpa${$}0000.tif"; + `PTuncrop -p $tmp -q $second`; + die "Unable to uncrop $second" if (not -f $tmpFull2); + $second = $tmpFull2; +} + + + +$output = `compare -verbose -metric mae '$first' '$second' '$tmp' 2>&1`; +unlink $tmpFull1 if $tmpFull1 ne ""; +unlink $tmpFull2 if $tmpFull2 ne ""; + + +print $output; + + + + This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |