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

topeg

2010-08-05 12:32

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

Also bei mir funktioniert es:

Code (perl): (dl )

#!/usr/bin/perl

use strict;
use warnings;
use Math::Trig;

my $breite=30;
my $diagonale=50;

print "BILD BREITE $breite\n";
print "TEXTLAENGE: $diagonale\n";

my $winkel_rad=acos($breite/$diagonale);
print "WINKEL RAD:$winkel_rad\n";

my $hoehe=sin($winkel_rad)*$diagonale;
print "BILD HOEHE $hoehe\n";

Code: (dl )

BILD BREITE 30
TEXTLAENGE: 50
WINKEL RAD:0.927295218001612
BILD HOEHE 40

Bedenke, dass die Diagonale (Textlänge) immer größer sein muss als die Seiten (sieh den Satz des Pythagoras), ansonsten wird das Ergebnis irrational (Das "i" am Ende.)

EDIT:
Was das Problem mit dem Text betrifft. Du könntest berechnen wie viel länger die Diagonal sein müsste damit der Text noch in das Bild passt. Aber es ist einfacher einen festen Wert zur Diagonale zu addieren. Nimm einfach ein n-faches der Texthöhe in Pixel. Wenn du einen genauen Wert wissen willst, kann ich dir am Wochenende eine Formel aufstellen.
Last edited: 2010-08-05 12:41:29 +0200 (CEST)