| 29 |
|
my $needfile = 0; |
| 30 |
|
my $showpal = 0; # Show available colour palettes |
| 31 |
|
|
| 32 |
+ |
my @savedARGV = @ARGV; # Save for final header |
| 33 |
+ |
|
| 34 |
|
while ($#ARGV >= 0) { |
| 35 |
|
$_ = shift; |
| 36 |
|
# Options with qualifiers |
| 120 |
|
close(FHpic); |
| 121 |
|
|
| 122 |
|
if ($cpict eq '-') { |
| 123 |
< |
$cpict = "$td/stdin.hdr"; |
| 123 |
> |
$cpict = $picture; |
| 124 |
|
} |
| 125 |
|
} |
| 126 |
|
|
| 316 |
|
system "psign -s -.15 -cf 1 1 1 -cb 0 0 0 -h $stheight $label > $tslabpic"; |
| 317 |
|
my $loop = $ndivs+$haszero; |
| 318 |
|
my $hlegheight = $sheight * ($loop) + $sheight * .5; |
| 319 |
< |
my $pcompost = qq[pcompos -h -b 0 0 0 =-0 $tslabpic 0 $hlegheight ]; |
| 319 |
> |
my $pcompost = qq[pcompos -b 0 0 0 =-0 $tslabpic 0 $hlegheight ]; |
| 320 |
|
for (my $i=0; $i<$loop; $i++) { |
| 321 |
|
my $imap = ($ndivs - $i) / $ndivs; |
| 322 |
|
my $value = $scale; |
| 365 |
|
|
| 366 |
|
$cmd = qq[pcomb $pc0args $pc1args "$picture"]; |
| 367 |
|
$cmd .= qq[ "$cpict"] if ($cpict); |
| 368 |
< |
$cmd .= qq[ | pcompos -b 0 0 0 $scolpic 0 $sh0 +t .1 $slabinvpic 2 -1 ]; |
| 368 |
> |
$cmd .= qq[ | pcompos -h -b 0 0 0 $scolpic 0 $sh0 +t .1 $slabinvpic 2 -1 ]; |
| 369 |
|
$cmd .= qq[ -t .5 $slabpic 0 0 - $legwidth 0]; |
| 370 |
|
|
| 371 |
|
if ($doextrem == 1) { |
| 399 |
|
$cmd .= qq[ $minvpic $minpos $maxvpic $lxmax $ymax]; |
| 400 |
|
} |
| 401 |
|
|
| 402 |
< |
|
| 403 |
< |
|
| 402 |
> |
# Clean up and simplify info header with this command |
| 403 |
> |
$cmd .= qq[ | getinfo -r "pcompos " "falsecolor @savedARGV"]; |
| 404 |
|
|
| 405 |
|
# Process image and combine with legend |
| 406 |
|
system "$cmd"; |
