GrandFather has asked for the wisdom of the Perl Monks concerning the following question:
I'd like to be able to perform the same action as the following convert.exe command line in Perl
convert.exe -pointsize 200 -stroke #ff0000 -fill #808040 -draw "text 8 +00,650 'Hello world'" -identify "x.JPG" xb.jpg
The following code runs without warnings and does generate xb.jpg, but without the 'Hello world' text:
use strict; use warnings; use Image::Magick; my $image = Image::Magick->new (); $image->ReadImage( 'x.JPG' ); my $err = $image->Draw ( pointsize=>200, stroke=>"#ff0000", fill=>"#90ff40", x=>700, y=>650, primitive=>"text 'hello world'" ); print $err if $err; $image->Write( 'xb.jpg' );
What I would really like to be able to do is generate the text with about 50% transperancy, but just generating the text in the output image would be a very good start.
Perl is Huffman encoded by design.
|Replies are listed 'Best First'.|
Re: Image Magick convert as Perl
by davidrw (Prior) on Sep 14, 2005 at 12:53 UTC