| 387 |
|
my $cheight = 32; |
| 388 |
|
|
| 389 |
|
if ($overlayWH[0] && $overlayWH[1]) { |
| 390 |
< |
# Overlay picture matrix values |
| 390 |
> |
# Overlay picture matrix values |
| 391 |
|
my @picWH = split ' ', `getinfo -d < $picture`; |
| 392 |
|
@picWH = ($picWH[3], $picWH[1]); |
| 393 |
|
if ($#overlayRect != 3) { |
| 438 |
|
my $manti = $1; |
| 439 |
|
my $mantf = $2; |
| 440 |
|
my $expi = $3; |
| 441 |
< |
if ($expi < -4) { |
| 441 |
> |
if ($expi < -3) { |
| 442 |
|
# use exponent format |
| 443 |
|
} elsif ($expi < 0) { |
| 444 |
|
my $pref = '0.'; |
| 448 |
|
$sampv = $pref . $manti . $mantf; |
| 449 |
|
} elsif ($expi < length($mantf)) { |
| 450 |
|
$sampv = sprintf("%g", $sampv); |
| 451 |
< |
} elsif ($expi <= 8) { |
| 451 |
> |
} elsif ($expi <= 6) { |
| 452 |
|
$sampv = $manti . $mantf; |
| 453 |
|
for (my $i = $expi - length($mantf); $i-- > 0; ) { |
| 454 |
|
$sampv .= '0'; |
| 513 |
|
$cmd .= qq[ | getinfo -r "pcompos " "falsecolor @savedARGV"]; |
| 514 |
|
|
| 515 |
|
# Process image and combine with legend |
| 516 |
< |
system "$cmd"; |
| 517 |
< |
exit $?; |
| 516 |
> |
exec $cmd; |
| 517 |
|
|
| 518 |
|
#EOF |
