Leser: 24
$winkel=acos($bildbreite/$textlänge)
1
2
Argument "1.38771166207438i" isn't numeric in subroutine entry at
C:/strawberry/perl/site/lib/GD/Text/Align.pm line 458 (#1)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
#!/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";