I've never tried this, but it looks like you can specify a path to a font file with GD::Text: $gd_text->set_font('/usr/fonts/arial.ttf', 12);.... That may be worth a try. | [reply] [d/l] |
Thanks for the reply.
OK, lets say I create the following text using GD::Text, how then do I use it with a GD::Image object? In other words, what method do I call to position $gd_text on a png image?
my $gd_text = GD::Text->new(
text => 'Some text',
font => 'times.ttf',
ptsize => 14,
);
| [reply] [d/l] |
Take a peek at this thread:
http://groups-beta.google.com/group/comp.lang.perl.misc/browse_thread/thread/e0e3efc840f45279/0ec9568510bfb279?q=gd::text+gd::image&rnum=2&hl=en#0ec9568510bfb279
The section titled "GD + GD::Text example" may give you a starting point. If this doesn't help, let me know. This is a useful thing to know and I'll try to get it working...
| [reply] |
Found the method $im->stringFT($black,$font,30.0,-0.5,130,130,"Goodbye cruel world!"); and it works fine.
| [reply] |
#! perl -slw
use strict;
use GD;
my $img = GD::Image->new( 1000, 120, 1 );
my $index = $img->colorAllocate( 255, 0, 0 );
my @bounds = $img->stringFT(
$index, "c:\\windows\\fonts\\Coprgtb.ttf", 72, 0, 100, 100,
"Hello world" );
open IMG, '>', "junk.png";
binmode IMG;
print IMG $img->png;
close IMG;
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
Lingua non convalesco, consenesco et abolesco. -- Rule 1 has a caveat! -- Who broke the cabal?
"Science is about questioning the status quo. Questioning authority".
The "good enough" maybe good enough for the now, and perfection maybe unobtainable, but that should not preclude us from striving for perfection, when time, circumstance or desire allow.
| [reply] [d/l] |