in reply to Creating Tiff's from perl
Crazy as this sounds, I had to to almost the exact same thing recently. I too used Imager. Not only did my images need text in exact locations, but they also needed certain markings, etc. Here's how I did it:
HTH
-- More people are killed every year by pigs than by sharks, which shows you how good we are at evaluating risk. -- Bruce Schneier
- First create a tiff of the desired size with any needed markings, at 600 dpi and black and white mode.
- In perl, use Imager to open that image, create a font, and then write to it in the specified coordinates. Something like:
my $img = Imager->new(); $img->open( file => '/path/to/tiff/file' ); my $color = Imager::Color->new("#000000"); my $font = Imager::Font->new( file => '/path/to/ttf/font', color => $color, ); $img->string( text => $stuff_to_write, x => $x, y => $y, font => $font, );
HTH
-- More people are killed every year by pigs than by sharks, which shows you how good we are at evaluating risk. -- Bruce Schneier
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Creating Tiff's from perl
by JediWizard (Deacon) on Jul 11, 2005 at 15:44 UTC | |
by mpeters (Chaplain) on Jul 11, 2005 at 16:32 UTC |
In Section
Seekers of Perl Wisdom