| # | Line 124 | Line 124 | if ($needfile == 1 && $picture eq '-') { | |
|---|---|---|
| 124 | ||
| 125 | # Find a good scale for auto mode. | |
| 126 | if ($scale =~ m/[aA].*/) { | |
| 127 | < | my @histo = split(/\s/, `phisto $picture| tail -2`); |
| 127 | > | my @histo = split(/\s/, `phisto $picture|`); |
| 128 | # e.g. $ phisto tests/richmond.hdr| tail -2 | |
| 129 | # 3.91267 14 | |
| 130 | # 3.94282 6 | |
| 131 | < | my $LogLmax = $histo[0]; |
| 131 | > | my $LogLmax = $histo[-4]; |
| 132 | $scale = $mult / 179 * 10**$LogLmax; | |
| 133 | } | |
| 134 | ||
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |