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.77 by greg, Thu Jun 8 15:37:15 2017 UTC vs.
Revision 2.80 by greg, Thu Apr 19 17:02:13 2018 UTC

# Line 116 | Line 116 | while ($#ARGV >= 0) {
116                  shift @ARGV;
117          } elsif ("$ARGV[0]" =~ /^[-+]C/) {
118                  $docolor = ("$ARGV[0]" =~ /^\+/);
119 <        } elsif ("$ARGV[0" =~ /^[-+]a/) {
119 >        } elsif ("$ARGV[0]" =~ /^[-+]a/) {
120                  $dorecip = ("$ARGV[0]" =~ /^\+/);
121          } elsif ("$ARGV[0]" =~ /^[-+]f/) {
122                  $doforw = ("$ARGV[0]" =~ /^\+/);
# Line 190 | Line 190 | my $CIEuv =    'Xi=.5141*Ri+.3239*Gi+.1620*Bi;' .
190                  'Yi=.2651*Ri+.6701*Gi+.0648*Bi;' .
191                  'Zi=.0241*Ri+.1229*Gi+.8530*Bi;' .
192                  'den=Xi+15*Yi+3*Zi;' .
193 <                'uprime=4*Xi/den;vprime=9*Yi/den;' ;
193 >                'uprime=if(Yi,4*Xi/den,4/19);' .
194 >                'vprime=if(Yi,9*Yi/den,9/19);' ;
195   my $FEPS = 1e-5;
196   my $ns = 2**$ttlog2;
197   my $nx = int(sqrt($nsamp*($dim[1]-$dim[0])/($dim[3]-$dim[2])) + 1);

Diff Legend

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