[magick-users] compare value in PerlMagick

[Anthony Thyssen]

=?ISO-8859-1?Q?G=FCnter_Bachelier?= on  wrote...
| Hello,
| 
| how can I get in PerlMagick the numerical value
| of the comparison of two images with a specific
| metric like RMSE? Thank you.
| 

Standard Perl magick example....

=======8<--------CUT HERE----------axes/crowbars permitted---------------
use Image::Magick;

$i1 = Image::Magick->new;
$i2 = Image::Magick->new;

$w = $i1->Read( filename=> shift );       # read in images
warn("$w")  if $w;
exit  if $w =~ /^Exception/;

$w = $i2->Read( filename=> shift );
warn("$w")  if $w;
exit  if $w =~ /^Exception/;

$i1->Scale(width=>100, height=>100); # scale without preserving aspect
ratio
$i2->Scale(width=>100, height=>100);

$w = $i1->Compare(image=>$i2);       # compare
die "$w" if $w;

printf "Errors is %f\n",     $i1->Get('error');
printf "Mean Error is %f\n", $i1->Get('mean-error');
printf "Max Error is %f\n",  $i1->Get('maximum-error');

=======8<--------CUT HERE----------axes/crowbars permitted---------------

I forget what the exact meaning of each is, or how you get the other
metrics from the above.



  Anthony Thyssen ( System Programmer )    <A.Thyssen at griffith.edu.au>
 -----------------------------------------------------------------------------
   ... and the smoking yet still impressive hole where the
    Alchemist's Guild had been up until yesterday.
                                     -- Terry Pratchett, "Soul Music"
 -----------------------------------------------------------------------------
     Anthony's Home is his Castle     http://www.cit.gu.edu.au/~anthony/