Modul GD, Schriftzug über Bild legen - #69090 (Allgemeines zu Perl)

vayu

2006-08-22 18:44

User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich verzweifle grad ein wenig.

Code: (dl )

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use GD;

my $myImage = new GD::Image(300, 100);
my $index = $myImage->colorAllocate(0,0,0);

my @bounds = $myImage->stringFT(255,"./visitor1.ttf",gdSmallFont,0,20,20,"Hallo");

print Dumper \$index;

open(FILE, "+>", "new.png") or die $!;

binmode FILE;

print FILE $myImage->png;

ich möchte einfach ein bild öffnen, oder auch einfach ein neues erstellen und darauf etwas schreiben.

wenn ich es neu erstelle, wird einfach nur das bild der Farbe $index erzeugt, und keine schrift darüber gelegt.

wenn ich ein vorhandenes öffne, wird geschrieben, aber nicht in der farbe die ich gern hätte ... hat da jemand erfahrung und kann mir weiterhelfen?

Bild öffnen -> text drüber legen (in einer von mir definierten Farbe und font) -> speichern

Danke im voraus,

vayu

"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...