--- ray/src/util/genBSDF.pl	2011/05/31 20:50:26	2.16
+++ ray/src/util/genBSDF.pl	2011/06/03 19:41:14	2.19
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# RCSid $Id: genBSDF.pl,v 2.16 2011/05/31 20:50:26 greg Exp $
+# RCSid $Id: genBSDF.pl,v 2.19 2011/06/03 19:41:14 greg Exp $
 #
 # Compute BSDF based on geometry and material description
 #
@@ -248,7 +248,7 @@ sub bg_tree_rtcontrib {
 			"| rcalc -e 'r1=rand(($pn+.8681)*recno-.673892)' " .
 			"-e 'r2=rand(($pn-5.37138)*recno+67.1737811)' " .
 			"-e 'r3=rand(($pn+3.17603772)*recno+83.766771)' " .
-			"-e 'Dx=1-($pbeg+\$1+r1)/$ns;Dy:0;Dz=sqrt(1-Dx*Dx)' " .
+			"-e 'Dx=1-2*($pbeg+\$1+r1)/$ns;Dy:0;Dz=sqrt(1-Dx*Dx)' " .
 			"-e 'xp=(\$3+r2)*(($dim[1]-$dim[0])/$nx)+$dim[0]' " .
 			"-e 'yp=(\$2+r3)*(($dim[3]-$dim[2])/$ny)+$dim[2]' " .
 			"-e 'zp=$dim[5-$forw]' -e 'myDz=Dz*($forw*2-1)' " .
@@ -315,8 +315,9 @@ print
 		<SourceSpectrum>CIE Illuminant D65 1nm.ssp</SourceSpectrum>
 		<DetectorSpectrum>ASTM E308 1931 Y.dsp</DetectorSpectrum>
 		<WavelengthDataBlock>
-			<WavelengthDataDirection>Reflection $side</WavelengthDataDirection>
-			<AngleBasis>LBNL/Shirley-Chiu</AngleBasis>
+';
+print "\t\t\t<WavelengthDataDirection>Reflection $side</WavelengthDataDirection>\n";
+print '			<AngleBasis>LBNL/Shirley-Chiu</AngleBasis>
 			<ScatteringDataType>BRDF</ScatteringDataType>
 			<ScatteringData>
 ';