| 328 |
|
|
| 329 |
|
# Legend: Create the background colours |
| 330 |
|
$cmd = qq[pcomb $pc0args]; |
| 331 |
< |
$cmd .= qq[ -e "v=(y+.5-$sheight)/(yres/(1+1.5/$ndivs));;vleft=v;vright=v"]; |
| 331 |
> |
$cmd .= qq[ -x $legwidth -y $vlegheight]; |
| 332 |
> |
$cmd .= qq[ -e "v=(y+.5-$sheight)/(yres/(1+1.5/$ndivs));vleft=v;vright=v"]; |
| 333 |
|
$cmd .= qq[ -e "vbelow=(y-.5-$sheight)/(yres/(1+1.5/$ndivs));vabove=(y+1.5-$sheight)/(yres/(1+1.5/$ndivs))"]; |
| 334 |
|
$cmd .= qq[ -e "ra=0;ga=0;ba=0;"]; |
| 335 |
< |
$cmd .= qq[ -x $legwidth -y $vlegheight > $scolpic]; |
| 335 |
> |
$cmd .= qq[ > $scolpic]; |
| 336 |
|
system $cmd; |
| 337 |
|
} else { |
| 338 |
|
# Create dummy colour scale and legend labels so we don't |
