--- ray/src/gen/genblinds.c 1992/08/27 13:51:59 2.3 +++ ray/src/gen/genblinds.c 1994/10/10 12:07:45 2.7 @@ -21,25 +21,24 @@ static char SCCSid[] = "$SunId$ LBL"; #include #include -#ifndef atof -extern double atof(); -#endif +#define PI 3.14159265358979323846 +#define DELTA 10. /* MINIMAL SUSTAINED ANGLE IN DEGREES */ -#define PI 3.141592653589793 -#define DELTA 5. /* MINIMAL SUSTAINED ANGLE IN DEGREES */ - double baseflat[4][3], baseblind[4][3][180]; double A[3],X[3]; char *material, *name; double height; int nslats, nsurf; +#ifdef DCL_ATOF +extern double atof(); +#endif + main(argc, argv) int argc; char *argv[]; { - double fabs(); double width, delem, depth, rcurv = 0.0, angle; double beta, gamma, theta, chi; int i, j, k, l; @@ -156,7 +155,6 @@ userr: makeflat(w,d,a) double w, d, a; { - double sin(), cos(); double h; h = d*sin(a);