--- ray/src/util/genBSDF.pl 2012/03/15 02:32:19 2.34 +++ ray/src/util/genBSDF.pl 2012/05/09 17:40:17 2.35 @@ -1,5 +1,5 @@ #!/usr/bin/perl -w -# RCSid $Id: genBSDF.pl,v 2.34 2012/03/15 02:32:19 greg Exp $ +# RCSid $Id: genBSDF.pl,v 2.35 2012/05/09 17:40:17 greg Exp $ # # Compute BSDF based on geometry and material description # @@ -404,7 +404,7 @@ sub do_matrix_bsdf { $tcal = ' DEGREE : PI/180; sq(x) : x*x; -Kpola(r) : select(r+1, -5, 5, 15, 25, 35, 45, 55, 65, 75, 90); +Kpola(r) : select(r+1, 0, 5, 15, 25, 35, 45, 55, 65, 75, 90); Knaz(r) : select(r, 1, 8, 16, 20, 24, 24, 24, 16, 12); Kaccum(r) : if(r-.5, Knaz(r) + Kaccum(r-1), 0); Kmax : Kaccum(Knaz(0)); @@ -497,76 +497,76 @@ print LBNL/Klems Full - 0 - 1 - - 0 - 5 - - - - 10 - 8 - - 5 - 15 - - - - 20 - 16 - - 15 - 25 - - - - 30 - 20 - - 25 - 35 - - - - 40 - 24 - - 35 - 45 - - - - 50 - 24 - - 45 - 55 - - - - 60 - 24 - - 55 - 65 - - - - 70 - 16 - - 65 - 75 - - - - 82.5 - 12 - - 75 - 90 - + 0 + 1 + + 0 + 5 + + + + 10 + 8 + + 5 + 15 + + + + 20 + 16 + + 15 + 25 + + + + 30 + 20 + + 25 + 35 + + + + 40 + 24 + + 35 + 45 + + + + 50 + 24 + + 45 + 55 + + + + 60 + 24 + + 55 + 65 + + + + 70 + 16 + + 65 + 75 + + + + 82.5 + 12 + + 75 + 90 +