version 1.134, 2004/02/23 20:57:50
|
version 1.135, 2004/02/26 16:36:48
|
Line 384 sub get_table_sizes {
|
Line 384 sub get_table_sizes {
|
my $cell_width_real=0; |
my $cell_width_real=0; |
if ($member=~/(\d*)\.?(\d*)(E|e)(\+|-)?(\d*)/) { |
if ($member=~/(\d*)\.?(\d*)(E|e)(\+|-)?(\d*)/) { |
$cell_width_real=(length($1)+length($2)+length($5)+9)*$scale; |
$cell_width_real=(length($1)+length($2)+length($5)+9)*$scale; |
} elsif ($member=~/(\d*)\.?(\d*)/) { |
} elsif ($member=~/(\d*)\.(\d*)/) { |
$cell_width_real=(length($1)+length($2)+3)*$scale; |
$cell_width_real=(length($1)+length($2)+3)*$scale; |
} else { |
} else { |
$cell_width_real=(length($member)+1)*$scale; |
$cell_width_real=(length($member)+1)*$scale; |
Line 401 sub get_table_sizes {
|
Line 401 sub get_table_sizes {
|
$textwidth=$1.'.'.$2; |
$textwidth=$1.'.'.$2; |
} |
} |
my $bubbles_per_line=int($textwidth/$cell_width); |
my $bubbles_per_line=int($textwidth/$cell_width); |
if (($bubbles_per_line > $number_of_bubbles/2) && ($number_of_bubbles % 2==2)) {$bubbles_per_line=$number_of_bubbles/2;} |
if (($bubbles_per_line > $number_of_bubbles/2) && ($number_of_bubbles % 2==0)) {$bubbles_per_line=$number_of_bubbles/2;} |
my $number_of_tables = int($number_of_bubbles/$bubbles_per_line); |
my $number_of_tables = int($number_of_bubbles/$bubbles_per_line); |
my @table_range = (); |
my @table_range = (); |
for (my $i=0;$i<$number_of_tables;$i++) {push @table_range,$bubbles_per_line;} |
for (my $i=0;$i<$number_of_tables;$i++) {push @table_range,$bubbles_per_line;} |