Vertikale Spaltenbeschriftung für table (HTML) (gelöst) - #140218 (Allgemeines zu Perl)

GwenDragon

2010-08-02 09:44

User since
2005-01-17
14770 Artikel
Admin1

Codeschnippsel als gedrehte Grafik:

Code (perl): (dl )

use GD;

my $string = "Das ist ein Text!";

my $font = GD::Font->Small;
my $height = $font->height;     
my $width = $font->width;     

my $im = GD::Image->new($height,5 + $width * length $string);
my $white = $im->colorAllocate(255,255,255);

my $color = $im->colorAllocate(0,0,0);  # ist Schwarz

$im->transparent($white);

$im->stringUp($font,0,$width * length $string,$string,$color);

//EDIT: Dann je nach Lust und Laune und Verwendung die Ausgabe des $im-Objekts als Grafik:
Also meinetwegen nach STDOUT

Code (perl): (dl )

print $im->png;

Das alles in eine Funktion umzuwandeln ist ja für bianca einfach. ;)
Last edited: 2010-08-02 09:56:34 +0200 (CEST)

die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten