Hallo, On Wed, 24 Jul 2002, Jörg Roßdeutscher wrote:
Interaktiv ist das nicht. Mein Script erzeugt über große Schriftensammlungen Datenbanken, sortiert sie nach Aussehen, benennt sie "human readable" um und so. Dazu gehört auch eine Erzeugung von Voransichts-PNGs.
Schonmal GD getestet? Geht zumindest mit TTFs und ist unabhaengig von ImageMagick, das folgende hab ich grad mal zusammengehackt, da waere natuerlich noch einiges an finetuning noetig, bes. was die Groesse der Bilder angeht usw., aber du kennst ja man/perldoc ;) ,----[ /tmp/test/ttftest.pl ] | #!/usr/local/bin/perl -w | use strict; | use GD; | use GD::Text::Align; | | my @fonts = qw[ | /usr/share/fonts/TrueType/verdana.ttf | /usr/share/fonts.tmp/TrueType/antiqueb.ttf | /usr/share/fonts.tmp/TrueType/antiquen.ttf | ]; | | for my $font ( @fonts ) { | my $fontname = $font; | $fontname =~ s/.*\/([^\/]+)\.ttf/$1/i; | my $img = new GD::Image(128, 64); | my $white = $img->colorAllocate(255,255,255); | my $black = $img->colorAllocate(0,0,0); | my $align = GD::Text::Align->new($img, | valign => 'center', | halign => 'center'); | $align->set_font($font, 12); | $align->set_text($fontname); | $align->draw(64, 32, 0); | $fontname .= ".png"; | open(IMG, ">$fontname") or die $!; | binmode IMG; | print IMG $img->png; | close(IMG); | print STDOUT $fontname, " done\n"; | } | 1; `---- -dnh -- 85: Hot plugable Glüht beim Einstecken auf (Martin Neumann)