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; |
265 |
|
exec $rmtmp; |
266 |
|
|
267 |
|
#============== End of main program segment ==============# |
292 |
|
sub run_check { |
293 |
|
if ( !active_phase() ) { return; } |
294 |
|
my $cmd = shift; |
295 |
< |
# print STDERR "Running: $cmd\n"; |
295 |
> |
print STDERR "Running: $cmd\n"; |
296 |
|
system $cmd; |
297 |
|
die "Failure running: $cmd\n" if ( $? ); |
298 |
|
} |
358 |
|
} |
359 |
|
} |
360 |
|
if ( $dop ) { |
361 |
< |
# print STDERR "Running: $cmd\n"; |
361 |
> |
print STDERR "Running: $cmd\n"; |
362 |
|
system $cmd; |
363 |
|
die "Failure running rfluxmtx" if ( $? ); |
364 |
|
} |
443 |
|
open(DATOUT, "> $dest"); |
444 |
|
print DATOUT "{\n"; |
445 |
|
close DATOUT; |
446 |
< |
# print STDERR "Running: $cmd\n"; |
446 |
> |
print STDERR "Running: $cmd\n"; |
447 |
|
system "$cmd >> $dest"; |
448 |
|
die "Failure running rcalc" if ( $? ); |
449 |
|
open(DATOUT, ">> $dest"); |
480 |
|
my $sender = ($bsender,$fsender)[$forw]; |
481 |
|
my $cmd = "$rfluxmtx$r -ff $sender $receivers -i $octree"; |
482 |
|
if ( $dop ) { |
483 |
< |
# print STDERR "Running: $cmd\n"; |
483 |
> |
print STDERR "Running: $cmd\n"; |
484 |
|
system $cmd; |
485 |
|
die "Failure running rfluxmtx" if ( $? ); |
486 |
|
} |