On Wed, 2 Aug 2006 09:12:54 -0500, Ken Holm wrote:
Hi Ken
> #!/usr/bin/perl
>
> use warnings;
Excellect!
> use strict;
Excellent!
> use Image::Magick;
>
> my $source = "Pic1.jpg";
> my $destination = "Pic2.jpg";
> my $workDir = "./tmp";
> my $outFile = "$workDir/Pic50.jpg";
>
> my $file1 = Image::Magick->new();
> $file1->ReadImage($source);
Oh dear! No error testing.
my($result) = $file1->Read($source);
die $result if $result;
$result = $file2->Read($destination);
die $result if $result;
$result = $file1->Composite
(
compose=>'Dissolve',
#opacity=>100,
gravity=>'Center',
image=>$file2,
);
die $result if $result;
$result = $file1->Write($outFile);
die $result if $result;
> All I get is the source pic.
Same here. I don't know what opacity means in this context, but I tried 0, 10,
20, 50 and 100, and for all values just got the same as you.
By commenting out the offending code, I got it to work.
I'll let someone else explain what the problem with opacity is.
--
Cheers
Ron Savage, [EMAIL PROTECTED] on 3/08/2006
http://savage.net.au/index.html
Let the record show: Microsoft is not an Australian company
_______________________________________________
Magick-users mailing list
[email protected]
http://studio.imagemagick.org/mailman/listinfo/magick-users
