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

Comparing ray/src/util/genBSDF.pl (file contents):
Revision 2.53 by greg, Wed Mar 25 19:18:28 2015 UTC vs.
Revision 2.54 by greg, Wed Mar 25 22:50:48 2015 UTC

# Line 328 | Line 328 | sub ttree_comp {
328                                  qq{-e "$CIEuv" } .
329                                  q{-e "$1=Yi/Omega"};
330                  } elsif ("$spec" eq "CIE-u") {
331 <                        $cmd = qq{rcalc -e "Omega:PI/($ns*$ns)" } .
332 <                                q{-e "Ri=$1;Gi=$2;Bi=$3" } .
331 >                        $cmd = q{rcalc -e "Ri=$1;Gi=$2;Bi=$3" } .
332                                  qq{-e "$CIEuv" } .
333 <                                q{-e "$1=uprime/Omega"};
333 >                                q{-e "$1=uprime"};
334                  } elsif ("$spec" eq "CIE-v") {
335 <                        $cmd = qq{rcalc -e "Omega:PI/($ns*$ns)" } .
337 <                                q{-e "Ri=$1;Gi=$2;Bi=$3" } .
335 >                        $cmd = q{rcalc -e "Ri=$1;Gi=$2;Bi=$3" } .
336                                  qq{-e "$CIEuv" } .
337 <                                q{-e "$1=vprime/Omega"};
337 >                                q{-e "$1=vprime"};
338                  }
339          } else {
340                  if ("$spec" eq "Visible") {
# Line 345 | Line 343 | sub ttree_comp {
343                                  "-e '$CIEuv' " .
344                                  q{-e '$1=Yi/Omega'};
345                  } elsif ("$spec" eq "CIE-u") {
346 <                        $cmd = "rcalc -if3 -e 'Omega:PI/($ns*$ns)' " .
349 <                                q{-e 'Ri=$1;Gi=$2;Bi=$3' } .
346 >                        $cmd = q{rcalc -if3 -e 'Ri=$1;Gi=$2;Bi=$3' } .
347                                  "-e '$CIEuv' " .
348 <                                q{-e '$1=uprime/Omega'};
348 >                                q{-e '$1=uprime'};
349                  } elsif ("$spec" eq "CIE-v") {
350 <                        $cmd = "rcalc -if3 -e 'Omega:PI/($ns*$ns)' " .
354 <                                q{-e 'Ri=$1;Gi=$2;Bi=$3' } .
350 >                        $cmd = q{rcalc -if3 -e 'Ri=$1;Gi=$2;Bi=$3' } .
351                                  "-e '$CIEuv' " .
352 <                                q{-e '$1=vprime/Omega'};
352 >                                q{-e '$1=vprime'};
353                  }
354          }
355          if ($pctcull >= 0) {

Diff Legend

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