Thread Vertikale Spaltenbeschriftung für table (HTML)
(72 answers)
Opened by bianca at 2010-08-01 20:39
Aus irgendeinem Grund greht aber die $image->stringFT nicht fürs Drehen. Leider. Ich habe es mit pi/4 als Drehwinkel probierert, geht irgendwie nicht.
Versuche doch mal GD::Text::Align. Probiere mal das aus als Funktion für die Bilder: Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 sub hochkantschrift { my ($STRING,$FONT) = @_; my $FONTSIZE = 12; my $return = join ('<br>',split (//,$STRING)); # Default, falls bei der andere Variante etwas schief geht my $modul = 1; eval "use GD; use GD::Text; use GD::Text::Align; 1;" or return $return; my $gd_text = GD::Text->new() or return $return; $gd_text->set_font($FONT, $FONTSIZE) or return $return; $gd_text->set_text($STRING) or return $return; my ($w, $h) = $gd_text->get('width', 'height'); my $im = GD::Image->new($h*1.3,$w) or return $return; my $white = $im->colorAllocate(255,255,255); my $color = $im->colorAllocate(0,0,0); # ist Schwarz $im->transparent($white); my $align = GD::Text::Align->new($im) or return $return; $align->set_font($FONT, $FONTSIZE); $align->set_text($STRING); $align->draw($h,$w,3.14/2); open my $file,'>','hochkantschrift.png'; binmode ($file); print $file $im -> png; close $file; return $return; } |