#!/usr/bin/perl
use warnings;
use strict;
use Image::Magick;

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

#make some test files
$i1->Set(size=>'250x100');
$i1->ReadImage('xc:white');
$i1->Draw(primitive=> 'rectangle',
          fill=>'red', 
          points=>'60,30 110,70');
$i1->Write("i1.png");  #for comparison

$i2->Set(size=>'250x100');
$i2->ReadImage('xc:white');
$i2->Draw(primitive=> 'line',
          fill=>'green',
          points=>'10,10 200,100');
$i2->Write("i2.png");  #for comparison

$i1->Composite(
     gravity => "Center", 
     compose=>'Difference',
     image => $i2,
     );
$i1->Write("$0-diff-compose.png");