All pastes #911311 Raw Edit

Stuff

public text v1 · immutable
·published 2008-02-20 17:10 UTC
rendered paste body
#!/usr/local/bin/perl
use Image::Magick;

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

$i1 -> Read (filename=> 'empty.jpg' );
$i2 -> Read (filename=> 'red.jpg' );

$d = $i1->Compare(image=>$i2);