I have modified my script no results. I repulled the latest version of IM (Version: ImageMagick 6.2.8 08/04/06 Q16 http://www.imagemagick.org) and reinstalled it and PerlMagick.
IM* works ok, the result is what I want. * composite -dissolve 50 Pic1.jpg Pic2.jpg Result.jpg PM not so much so. I see only Pic2. Visualize at http://www.kenandrenee.com/PM/ #!/usr/local/bin/perl use warnings; use strict; use Image::Magick; my $source = "Pic1.jpg"; my $destination = "Pic2.jpg"; my $workDir = "./tmp"; my $outFile = "$workDir/Pic50.jpg"; my $file1 = Image::Magick->new(); my $result = $file1->Read($source); die $result if $result; my $file2 = Image::Magick->new(); $result = $file2->Read($destination); die $result if $result; $result = $file1->Composite(compose=>'Dissolve', gravity=>'Center', image=>$file2); die $result if $result; unlink($outFile); $result = $file1->Write($outFile); die $result if $result; exit; -Ken -- Lasting Links http://LastingLinks.Com ---------- Original Message ----------- From: Ron Savage <[EMAIL PROTECTED]> To: List - ImageMagick Users <[email protected]> Sent: Thu, 3 Aug 2006 19:59:51 +1000 Subject: Re: [magick-users] PerlMagick and Dissolve > 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 ------- End of Original Message ------- _______________________________________________ Magick-users mailing list [email protected] http://studio.imagemagick.org/mailman/listinfo/magick-users
