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

Comparing src/util/genBSDF.pl (file contents):
Revision 2.77 by greg, Thu Jun 8 15:37:15 2017 UTC vs.
Revision 2.82 by greg, Sun Jun 9 20:52:13 2019 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);
# Line 204 | Line 205 | if ( !defined $recovery ) {
205          }
206          close MYAVH;
207          # Generate octree
208 <        system "oconv -w -f $radscn > $octree";
208 >        system "oconv -w $radscn > $octree";
209          die "Could not compile scene\n" if ( $? );
210          # Add MGF description if requested
211          if ( $geout ) {
# Line 322 | Line 323 | sub do_ttree_dir {
323                                  qq{| rcalc -e "r1=rand(.8681*recno-.673892)" } .
324                                  qq{-e "r2=rand(-5.37138*recno+67.1737811)" } .
325                                  qq{-e "r3=rand(+3.17603772*recno+83.766771)" } .
326 <                                qq{-e "Dx=1-2*(\$1+r1)/$ns;Dy:0;Dz=sqrt(1-Dx*Dx)" } .
326 >                                qq{-e "r4=rand(-1.5839226*recno-59.82712)" } .
327 >                                qq{-e "Dx=1-2*(\$1+r1)/$ns" } .
328 >                                qq{-e "Dy=if(\$1-.5,1/$ns,sqrt(1-Dx*Dx))*(2*r2-1)" } .
329 >                                qq{-e "Dz=sqrt(1-Dx*Dx-Dy*Dy)" } .
330                                  qq{-e "xp=(\$3+r2)*(($dim[1]-$dim[0])/$nx)+$dim[0]" } .
331                                  qq{-e "yp=(\$2+r3)*(($dim[3]-$dim[2])/$ny)+$dim[2]" } .
332                                  qq{-e "zp=$dim[5-$forw]" -e "myDz=Dz*($forw*2-1)" } .
# Line 334 | Line 338 | sub do_ttree_dir {
338                                  qq{| rcalc -e 'r1=rand(.8681*recno-.673892)' } .
339                                  qq{-e 'r2=rand(-5.37138*recno+67.1737811)' } .
340                                  qq{-e 'r3=rand(+3.17603772*recno+83.766771)' } .
341 <                                qq{-e 'Dx=1-2*(\$1+r1)/$ns;Dy:0;Dz=sqrt(1-Dx*Dx)' } .
342 <                                qq{-e 'xp=(\$3+r2)*(($dim[1]-$dim[0])/$nx)+$dim[0]' } .
343 <                                qq{-e 'yp=(\$2+r3)*(($dim[3]-$dim[2])/$ny)+$dim[2]' } .
341 >                                qq{-e 'r4=rand(-1.5839226*recno-59.82712)' } .
342 >                                qq{-e 'Dx=1-2*(\$1+r1)/$ns' } .
343 >                                qq{-e 'Dy=if(\$1-.5,1/$ns,sqrt(1-Dx*Dx))*(2*r2-1)' } .
344 >                                qq{-e 'Dz=sqrt(1-Dx*Dx-Dy*Dy)' } .
345 >                                qq{-e 'xp=(\$3+r3)*(($dim[1]-$dim[0])/$nx)+$dim[0]' } .
346 >                                qq{-e 'yp=(\$2+r4)*(($dim[3]-$dim[2])/$ny)+$dim[2]' } .
347                                  qq{-e 'zp=$dim[5-$forw]' -e 'myDz=Dz*($forw*2-1)' } .
348                                  qq{-e '\$1=xp-Dx;\$2=yp-Dy;\$3=zp-myDz' } .
349                                  qq{-e '\$4=Dx;\$5=Dy;\$6=myDz' -of } .

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines