ok, I still did not understand that. Just in case, I ran the program to see if it worked. Lo and behold, it doesn't. I'm guessing you're asking for help getting your program to run.
First, I added error checking.
#!/usr/bin/perl -w use strict; use Image::Magick; my $text = 'test'; my $im = new Image::Magick; $im->Read("meteo.jpg"); my $rv = $im->Annotate( text => $text, x => 10, y => 10, ); die("Unable to annotate image: $rv\n") if "$rv"; print "Content-type: image/jpeg\n\n"; binmode STDOUT; print $im->Write('jpeg:-');
It gives me the error
Unable to annotate image: Warning 315: no delegates configuration file + found (delegates.mgk) [No such file or directory]
I have no idea what that means, but I suspected from the start that you might have to specify a font or family. I found an example which specified font => 'kai.ttf', so I tried font => 'Arial.ttf' which gave a promising error message:
Unable to annotate image: Warning 315: Unable to read font (Arial.ttf) + [No such file or directory]
Specifying the full path worked.
#!/usr/bin/perl -w use strict; use Image::Magick; my $text = 'test'; my $im = new Image::Magick; $im->Read("meteo.jpg"); my $rv = $im->Annotate( text => $text, font => 'C:\\WINDOWS\\Fonts\\Arial.ttf', x => 10, y => 10, ); die("Unable to annotate image: $rv\n") if "$rv"; print "Content-type: image/jpeg\n\n"; binmode STDOUT; print $im->Write('jpeg:-');
In reply to Re^3: Image Magick
by ikegami
in thread Image Magick
by tolyan77
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |