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"; |