--- ray/src/gen/genblinds.c	1991/11/12 17:04:36	2.1
+++ ray/src/gen/genblinds.c	1995/02/21 16:00:55	2.8
@@ -21,8 +21,8 @@ static char SCCSid[] = "$SunId$ LBL";
 #include  <stdio.h>
 #include  <math.h>
 
-#define  PI		3.141592653589793
-#define  DELTA		5.  /*  MINIMAL SUSTAINED ANGLE IN DEGREES */
+#define  PI		3.14159265358979323846
+#define  DELTA		10.  /*  MINIMAL SUSTAINED ANGLE IN DEGREES */
 
 double  baseflat[4][3], baseblind[4][3][180];
 double  A[3],X[3];
@@ -30,12 +30,15 @@ char  *material, *name;
 double  height;
 int  nslats,  nsurf;
 
+#ifdef  DCL_ATOF
+extern double  atof();
+#endif
 
+
 main(argc, argv)
 int  argc;
 char  *argv[];
 {
-	double  atof(), fabs();
 	double  width, delem, depth, rcurv = 0.0, angle;
 	double  beta, gamma, theta, chi;
 	int     i, j, k, l;
@@ -52,9 +55,9 @@ char  *argv[];
 	angle = atof(argv[7]);
 	if (argc == 10)
 		if (!strcmp(argv[8], "-r"))
-			rcurv = atof(argv[8]);
+			rcurv = atof(argv[9]);
 		else if (!strcmp(argv[8], "+r"))
-			rcurv = -atof(argv[8]);
+			rcurv = -atof(argv[9]);
 		else
 			goto userr;
 
@@ -68,7 +71,7 @@ char  *argv[];
 
  	/* HOW MANY ELEMENTARY SURFACES SHOULD BE CALCULATED ? */
 
-	nsurf = (theta / ((PI/180.)*DELTA));
+	nsurf = (theta / ((PI/180.)*DELTA)) + 1;
 
 	/* WHAT IS THE DEPTH OF THE ELEMENTARY SURFACES ? */
 
@@ -152,7 +155,6 @@ userr:
 makeflat(w,d,a)
 double  w, d, a;
 {
-	double  sin(), cos();
 	double  h;
 
 	h = d*sin(a);