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