| 371 |
|
close DATOUT; |
| 372 |
|
} |
| 373 |
|
if ( "$spec" ne "$curspec" ) { |
| 374 |
< |
$wrapper .= " -s $spec" |
| 374 |
> |
$wrapper .= " -s $spec"; |
| 375 |
|
$curspec = $spec; |
| 376 |
|
} |
| 377 |
|
$wrapper .= " -$typ $dest"; |
| 440 |
|
} elsif ("$spec" eq "CIE-Z") { |
| 441 |
|
$cmd .= " -c 0.024 0.123 0.853"; |
| 442 |
|
} |
| 443 |
< |
$cmd .= " $src | rcollate -ho"; |
| 443 |
> |
$cmd .= " $src | rcollate -ho -oc 145"; |
| 444 |
|
# print STDERR "Running: $cmd\n"; |
| 445 |
|
system "$cmd > $dest"; |
| 446 |
|
die "Failure running rttree_reduce" if ( $? ); |
| 447 |
|
if ( "$spec" ne "$curspec" ) { |
| 448 |
< |
$wrapper .= " -s $spec" |
| 448 |
> |
$wrapper .= " -s $spec"; |
| 449 |
|
$curspec = $spec; |
| 450 |
|
} |
| 451 |
|
$wrapper .= " -$typ $dest"; |