257 |
|
do_matrix_bsdf(); |
258 |
|
} |
259 |
|
# Output XML |
260 |
< |
print STDERR "Running: $wrapper\n"; |
260 |
> |
# print STDERR "Running: $wrapper\n"; |
261 |
|
system "$wrapper -C \"Created by: genBSDF @savedARGV\""; |
262 |
|
die "Could not wrap BSDF data\n" if ( $? ); |
263 |
|
# Clean up temporary files and exit |
264 |
– |
exit; |
264 |
|
exec $rmtmp; |
265 |
|
|
266 |
|
#============== End of main program segment ==============# |
291 |
|
sub run_check { |
292 |
|
if ( !active_phase() ) { return; } |
293 |
|
my $cmd = shift; |
294 |
< |
print STDERR "Running: $cmd\n"; |
294 |
> |
# print STDERR "Running: $cmd\n"; |
295 |
|
system $cmd; |
296 |
|
die "Failure running: $cmd\n" if ( $? ); |
297 |
|
} |
357 |
|
} |
358 |
|
} |
359 |
|
if ( $dop ) { |
360 |
< |
print STDERR "Running: $cmd\n"; |
360 |
> |
# print STDERR "Running: $cmd\n"; |
361 |
|
system $cmd; |
362 |
|
die "Failure running rfluxmtx" if ( $? ); |
363 |
|
} |
442 |
|
open(DATOUT, "> $dest"); |
443 |
|
print DATOUT "{\n"; |
444 |
|
close DATOUT; |
445 |
< |
print STDERR "Running: $cmd\n"; |
445 |
> |
# print STDERR "Running: $cmd\n"; |
446 |
|
system "$cmd >> $dest"; |
447 |
|
die "Failure running rcalc" if ( $? ); |
448 |
|
open(DATOUT, ">> $dest"); |
479 |
|
my $sender = ($bsender,$fsender)[$forw]; |
480 |
|
my $cmd = "$rfluxmtx$r -ff $sender $receivers -i $octree"; |
481 |
|
if ( $dop ) { |
482 |
< |
print STDERR "Running: $cmd\n"; |
482 |
> |
# print STDERR "Running: $cmd\n"; |
483 |
|
system $cmd; |
484 |
|
die "Failure running rfluxmtx" if ( $? ); |
485 |
|
} |