| 124 |
|
|
| 125 |
|
# Find a good scale for auto mode. |
| 126 |
|
if ($scale =~ m/[aA].*/) { |
| 127 |
< |
my @histo = split(/\s/, `phisto $picture|`); |
| 127 |
> |
my @histo = split(/\s/, `phisto $picture`); |
| 128 |
|
# e.g. $ phisto tests/richmond.hdr| tail -2 |
| 129 |
|
# 3.91267 14 |
| 130 |
|
# 3.94282 6 |
| 350 |
|
} else { |
| 351 |
|
# Create dummy colour scale and legend labels so we don't |
| 352 |
|
# need to change the final command line. |
| 353 |
< |
open(FHscolpic, ">$scolpic"); |
| 354 |
< |
print FHscolpic "\n-Y 1 +X 1\naaa\n"; |
| 355 |
< |
close(FHscolpic); |
| 356 |
< |
open(FHslabpic, ">$slabpic"); |
| 357 |
< |
print FHslabpic "\n-Y 1 +X 1\naaa\n"; |
| 358 |
< |
close(FHslabpic); |
| 353 |
> |
system "pcomb -x 1 -y 1 -e lo=1 > $scolpic"; |
| 354 |
> |
system "pcomb -x 1 -y 1 -e lo=1 > $slabpic"; |
| 355 |
|
} |
| 356 |
|
|
| 357 |
|
# Legend: Invert the text labels (for dropshadow) |
