353 |
|
$cmd = "$rfluxmtx$r -h -ff $sender $receivers -i $octree"; |
354 |
|
} |
355 |
|
} |
356 |
< |
run_check $cmd; |
356 |
> |
if ( $dop ) { |
357 |
> |
# print STDERR "Running: $cmd\n"; |
358 |
> |
system $cmd; |
359 |
> |
die "Failure running rfluxmtx" if ( $? ); |
360 |
> |
} |
361 |
|
ttree_out($forw); |
362 |
|
} # end of do_ttree_dir() |
363 |
|
|
486 |
|
my $dop = do_phase(); |
487 |
|
my $r = ($dop < 0) ? " -r" : ""; |
488 |
|
my $sender = ($bsender,$fsender)[$forw]; |
489 |
< |
run_check "$rfluxmtx$r -fd $sender $receivers -i $octree"; |
489 |
> |
my $cmd = "$rfluxmtx$r -fd $sender $receivers -i $octree"; |
490 |
> |
if ( $dop ) { |
491 |
> |
# print STDERR "Running: $cmd\n"; |
492 |
> |
system $cmd; |
493 |
> |
die "Failure running rfluxmtx" if ( $? ); |
494 |
> |
} |
495 |
|
matrix_out($forw); |
496 |
|
} # end of do_matrix_dir() |
497 |
|
|
535 |
|
} elsif ("$spec" eq "CIE-Z") { |
536 |
|
$cmd .= " -c 0.0241 0.1229 0.8530"; |
537 |
|
} |
538 |
< |
$cmd .= " $src | rcollate -ho -oc 145"; |
538 |
> |
$cmd .= " $src | getinfo -"; |
539 |
|
run_check "$cmd > $dest"; |
540 |
|
if ( "$spec" ne "$curspec" ) { |
541 |
|
$wrapper .= " -s $spec"; |