--- ray/src/cv/bsdf2rad.c	2013/11/21 20:09:26	2.4
+++ ray/src/cv/bsdf2rad.c	2014/03/24 05:36:40	2.8
@@ -1,5 +1,5 @@
 #ifndef lint
-static const char RCSid[] = "$Id: bsdf2rad.c,v 2.4 2013/11/21 20:09:26 greg Exp $";
+static const char RCSid[] = "$Id: bsdf2rad.c,v 2.8 2014/03/24 05:36:40 greg Exp $";
 #endif
 /*
  *  Plot 3-D BSDF output based on scattering interpolant or XML representation
@@ -10,6 +10,7 @@ static const char RCSid[] = "$Id: bsdf2rad.c,v 2.4 201
 #include <string.h>
 #include <stdlib.h>
 #include <math.h>
+#include "rtprocess.h"
 #include "bsdfrep.h"
 
 const float	colarr[6][3] = {
@@ -90,7 +91,7 @@ main(int argc, char *argv[])
 #ifdef DEBUG
 	fprintf(stderr, "Minimum BSDF set to %.4f\n", bsdf_min);
 #endif
-	min_log = log(bsdf_min*.5);
+	min_log = log(bsdf_min*.5 + 1e-5);
 						/* output BSDF rep. */
 	for (n = 0; (n < 6) & (2*n+3 < argc); n++) {
 		double	theta = atof(argv[2*n+2]);
@@ -130,14 +131,15 @@ main(int argc, char *argv[])
 			for (i = 0; i < rbf->nrbf; i++) {
 				ovec_from_pos(odir, rbf->rbfa[i].gx, rbf->rbfa[i].gy);
 				bsdf = eval_rbfrep(rbf, odir) / (output_orient*odir[2]);
-				bsdf = log(bsdf) - min_log;
+				bsdf = log(bsdf + 1e-5) - min_log;
 				printf("pmat sphere p%d\n0\n0\n4 %f %f %f %f\n",
 					i+1, odir[0]*bsdf, odir[1]*bsdf, odir[2]*bsdf,
 						.007*bsdf);
 			}
 		}
 		fflush(stdout);
-		sprintf(buf, "gensurf tmat bsdf - - - %d %d", GRIDRES-1, GRIDRES-1);
+		sprintf(buf, "gensurf tmat bsdf%d - - - %d %d", n+1,
+						GRIDRES-1, GRIDRES-1);
 		fp = popen(buf, "w");
 		if (fp == NULL) {
 			fprintf(stderr, "%s: cannot open '| %s'\n", progname, buf);
@@ -155,7 +157,7 @@ main(int argc, char *argv[])
 			} else
 				bsdf = eval_rbfrep(rbf, odir) /
 						(output_orient*odir[2]);
-			bsdf = log(bsdf) - min_log;
+			bsdf = log(bsdf + 1e-5) - min_log;
 			fprintf(fp, "%.8e %.8e %.8e\n",
 					odir[0]*bsdf, odir[1]*bsdf, odir[2]*bsdf);
 		    }