Re: Image::Magick text on jpeg

Here's an article (achtung, German!) which lists some examples, including a script manip.pl inserting text into a Jpeg. Here's the call to annotate:

20 $image->Annotate(text => "Woohoo!", 
21                  geometry => "+55+30",
22                  pen => "red", font => 'helvetica',
23                  pointsize => 30);
[download]

Comment on Re: Image::Magick text on jpeg Select or Download Code

Replies are listed 'Best First'.
Re^2: Image::Magick text on jpeg by jonnyfolk (Vicar) on Aug 15, 2004 at 06:39 UTC
Thanks for bringing that to my attention, saintmike. 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. #!/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"; [download] 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...	[reply] [d/l]

Replies are listed 'Best First'.

Re^2: Image::Magick text on jpeg
by jonnyfolk (Vicar) on Aug 15, 2004 at 06:39 UTC

saintmike

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.

#!/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";
[download]

Update:

[reply]
[d/l]