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.56 by greg, Wed Apr 1 01:38:35 2015 UTC vs.
Revision 2.58 by greg, Fri May 29 07:22:33 2015 UTC

# Line 9 | Line 9 | use strict;
9   my $windoz = ($^O eq "MSWin32" or $^O eq "MSWin64");
10   use File::Temp qw/ :mktemp  /;
11   sub userror {
12 <        print STDERR "Usage: genBSDF [-n Nproc][-c Nsamp][-W][-t{3|4} Nlog2][-r \"ropts\"][-f \"x=string;y=string\"][-dim xmin xmax ymin ymax zmin zmax][{+|-}C][{+|-}f][{+|-}b][{+|-}mgf][{+|-}geom units] [input ..]\n";
12 >        print STDERR "Usage: genBSDF [-n Nproc][-c Nsamp][-W][-t{3|4} Nlog2][-r \"ropts\"][-s \"x=string;y=string\"][-dim xmin xmax ymin ymax zmin zmax][{+|-}C][{+|-}f][{+|-}b][{+|-}mgf][{+|-}geom units] [input ..]\n";
13          exit 1;
14   }
15   my ($td,$radscn,$mgfscn,$octree,$fsender,$bsender,$receivers,$facedat,$behinddat,$rmtmp);
# Line 225 | Line 225 | if ( $tensortree ) {
225   my $old_fh = select(STDOUT);
226   $| = 1;
227   select($old_fh);
228 + print "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n";
229   print "<!-- Created by: genBSDF @savedARGV -->\n";
230   # print STDERR "Running: $wrapper\n";
231   system $wrapper;

Diff Legend

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