On Fri, 4 Aug 2006 13:22:30 -0500, Ken Holm wrote: Hi Ken
> 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 Note: 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"; Note: Pic50.jpg. Perhaps it as simple as you're looking at the wrong output file :-)? My code: -----><8----- #!/usr/bin/perl use warnings; use strict; use Image::Magick; # ================ print "Image::Magick V $Image::Magick::VERSION. \n"; my($bg) = "fuzzy-magick.png"; my($fg) = "Arc.png"; my($outFile) = "Composite.png"; my($file1) = Image::Magick->new(); my($file2) = Image::Magick->new(); my($result) = $file1->Read($bg); die $result if $result; $result = $file2->Read($fg); 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; print "Wrote: $outFile. \n"; -----><8----- Output: -----><8----- Image::Magick V 6.2.7. Wrote: Composite.png. -----><8----- -- Cheers Ron Savage, [EMAIL PROTECTED] on 5/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
