ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/Development/ray/src/util/genBSDF.pl
(Generate patch)

Comparing ray/src/util/genBSDF.pl (file contents):
Revision 2.70 by greg, Mon Sep 19 16:20:08 2016 UTC vs.
Revision 2.72 by greg, Fri Oct 14 00:54:22 2016 UTC

# Line 353 | Line 353 | sub do_ttree_dir {
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  
# Line 482 | Line 486 | sub do_matrix_dir {
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  
# Line 526 | Line 535 | sub matrix_comp {
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";

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)