Schrift
Start · Board · Anwendungen/Programme/Skripte in Perl · Allgemeines zu Perl
[thread]8257[/thread]

Modul GD, Schriftzug über Bild legen

Leser: 1


<< |< 1 2 >| >> 16 Einträge, 2 Seiten
vayu
 2006-08-22 18:44
#69090 #69090
User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]
Hallo,

ich verzweifle grad ein wenig.

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/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...
GwenDragon
 2006-08-22 19:01
#69091 #69091
User since
2005-01-17
14759 Artikel
Admin1
[Homepage]
user image
Wart mal, ich habe ein eigenes Modul dafür geschrieben.
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
Crian
 2006-08-22 19:18
#69092 #69092
User since
2003-08-04
5872 Artikel
ModeratorIn
[Homepage]
user image
Das klingt vielversprechend. Ein original im Drachenfeuer gehärtetes Modul :-)
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite
vayu
 2006-08-22 19:32
#69093 #69093
User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]
ok ich warte :D
"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...
GwenDragon
 2006-08-22 19:41
#69094 #69094
User since
2005-01-17
14759 Artikel
Admin1
[Homepage]
user image
Ich schiebe es mal auf meinen Webspace.
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
GwenDragon
 2006-08-22 20:01
#69095 #69095
User since
2005-01-17
14759 Artikel
Admin1
[Homepage]
user image
Bei meinen Perltools weiter unten ;)

Modul sollte eigentlich noch erweitert werden, aber na ja.

/Edit: Funktioniert derzeit nur mit den eingebauten Fonts, nicht mit TTF.\n\n

<!--EDIT|GwenDragon|1156265396-->
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
vayu
 2006-08-22 20:14
#69096 #69096
User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]
hmm, wenn ich den font undef lasse funktioniert es, sobald ich aber einen angebe, kommt folgendes

Can't locate object method "height" via package "visitor2.ttf" (perhaps you forgot to load "visitor2.ttf"?) at C:/Perl/s
ite/lib/GD/Image/Watermark.pm line 75.


edit: ah habs gesehen, du kannst keine truetype fonts angeben. aber genau das wollte ich :)\n\n

<!--EDIT|vayu|1156263377-->
"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...
vayu
 2006-08-22 20:33
#69097 #69097
User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]
mein problem bei der stringFT funktion ist, dass ich nicht weiss wie ich die farbe angeben soll.

Code: (dl )
[255,255,255]


so? funktioniert aber auch ned *shrug*
"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...
GwenDragon
 2006-08-22 20:48
#69098 #69098
User since
2005-01-17
14759 Artikel
Admin1
[Homepage]
user image
Eine Farbe wird in GD so definiert:
Code: (dl )
$white = $im->colorAllocate(255,255,255);
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
vayu
 2006-08-22 20:52
#69099 #69099
User since
2005-01-13
782 Artikel
BenutzerIn
[default_avatar]
und kaum macht mans richtig funktionierts auch O.o ...

ich hatte das so schonmal gemacht, aber da hat er mir dann auf einmal nur ein weisses Bild ausgegeben ... komisch
"imitation is the sincerest form of flattery."
- Lee Anthony Iacocca
http://img156.imageshack.us/img156/2056/perluserba...
http://img410.imageshack.us/img410/2664/tcmduserba...
<< |< 1 2 >| >> 16 Einträge, 2 Seiten



View all threads created 2006-08-22 18:44.