in reply to Re: Image::Magick text on jpeg
in thread Image::Magick text on jpeg
I tried adapting my script with the revised Annotate - still no text on the photo.
So I used the whole script as written by Michael Schilli, simply changing file names and adding headers. The result? A perfectly cropped photo in a nice frame with absolutely NO annotation!! This is driving me insane :) I'm particularly bemused as I have done a search on google and cannot find a particular issue with annotate on unix servers. If there was such an issue I would have thought there would be a fair amount of noise about it.
Update: I have just checked the version of Image::Magick my server is running and it is 5.45 In the hope it might help, I have just requested an upgrade...#!/usr/bin/perl ################################################## # mschilli@perlmeister.com 1999 # Ein Bild manipulieren ################################################## use Image::Magick; $image = Image::Magick->new; $image->Read("../new.jpg") && die "Cannot read"; $image->Crop(geom=>'155x300+110+100'); $image->Scale(width => 200); $image->Frame(inner => 2, outer => 2, width => 20, height => 20); $image->Annotate(text => "Woohoo!", geometry => "+55+30", pen => "red", font => 'helvetica', pointsize => 30); $image->Write("../new1.jpg") && die "Cannot write"; print "Content-type: text/html\n\n"; print "finished";
|
|---|