--- ray/src/gen/gensky.c	1991/12/19 15:09:28	2.2
+++ ray/src/gen/gensky.c	1992/03/20 15:29:10	2.5
@@ -35,10 +35,12 @@ extern double  s_latitude;
 extern double  s_longitude;
 extern double  s_meridian;
 					/* required values */
-int  month, day;
-double  hour;
+int  month, day;				/* date */
+double  hour;					/* time */
+int  tsolar;					/* 0=standard, 1=solar */
+double  altitude, azimuth;			/* or solar angles */
 					/* default values */
-int  cloudy = 0;
+int  cloudy = 0;				/* 1=standard, 2=uniform */
 int  dosun = 1;
 double  zenithbr = -1.0;
 double  turbidity = 2.75;
@@ -67,9 +69,16 @@ char  *argv[];
 	}
 	if (argc < 4)
 		userror("arg count");
-	month = atoi(argv[1]);
-	day = atoi(argv[2]);
-	hour = atof(argv[3]);
+	if (!strcmp(argv[1], "-ang")) {
+		altitude = atof(argv[2]) * (PI/180);
+		azimuth = atof(argv[3]) * (PI/180);
+		month = 0;
+	} else {
+		month = atoi(argv[1]);
+		day = atoi(argv[2]);
+		hour = atof(argv[3]);
+		tsolar = argv[3][0] == '+';
+	}
 	for (i = 4; i < argc; i++)
 		if (argv[i][0] == '-' || argv[i][0] == '+')
 			switch (argv[i][1]) {
@@ -78,7 +87,7 @@ char  *argv[];
 				dosun = argv[i][0] == '+';
 				break;
 			case 'c':
-				cloudy = 1;
+				cloudy = argv[i][0] == '+' ? 2 : 1;
 				dosun = 0;
 				break;
 			case 't':
@@ -120,15 +129,20 @@ char  *argv[];
 
 computesky()			/* compute sky parameters */
 {
-	int  jd;
-	double  sd, st;
-	double  altitude, azimuth;
 					/* compute solar direction */
-	jd = jdate(month, day);			/* Julian date */
-	sd = sdec(jd);				/* solar declination */
-	st = hour + stadj(jd);			/* solar time */
-	altitude = salt(sd, st);
-	azimuth = sazi(sd, st);
+	if (month) {			/* from date and time */
+		int  jd;
+		double  sd, st;
+
+		jd = jdate(month, day);		/* Julian date */
+		sd = sdec(jd);			/* solar declination */
+		if (tsolar)			/* solar time */
+			st = hour;
+		else
+			st = hour + stadj(jd);
+		altitude = salt(sd, st);
+		azimuth = sazi(sd, st);
+	}
 	sundir[0] = -sin(azimuth)*cos(altitude);
 	sundir[1] = -cos(azimuth)*cos(altitude);
 	sundir[2] = sin(altitude);
@@ -146,7 +160,10 @@ computesky()			/* compute sky parameters */
 		zenithbr = 0.0;
 					/* Compute horizontal radiance */
 	if (cloudy) {
-		groundbr = zenithbr*0.777778;
+		if (cloudy == 2)
+			groundbr = zenithbr;
+		else
+			groundbr = zenithbr*0.777778;
 		printf("# Ground ambient level: %f\n", groundbr);
 	} else {
 		F2 = 0.274*(0.91 + 10.0*exp(-3.0*(PI/2.0-altitude)) +
@@ -182,7 +199,7 @@ printsky()			/* print out sky */
 	printf("2 skybright skybright.cal\n");
 	printf("0\n");
 	if (cloudy)
-		printf("3 1 %.2e %.2e\n", zenithbr, groundbr);
+		printf("3 %d %.2e %.2e\n", cloudy, zenithbr, groundbr);
 	else
 		printf("7 -1 %.2e %.2e %.2e %f %f %f\n", zenithbr, groundbr,
 				F2, sundir[0], sundir[1], sundir[2]);
@@ -191,8 +208,10 @@ printsky()			/* print out sky */
 
 printdefaults()			/* print default values */
 {
-	if (cloudy)
+	if (cloudy == 1)
 		printf("-c\t\t\t\t# Cloudy sky\n");
+	else if (cloudy == 2)
+		printf("+c\t\t\t\t# Uniform cloudy sky\n");
 	else if (dosun)
 		printf("+s\t\t\t\t# Sunny sky with sun\n");
 	else
@@ -214,6 +233,7 @@ char  *msg;
 	if (msg != NULL)
 		fprintf(stderr, "%s: Use error - %s\n", progname, msg);
 	fprintf(stderr, "Usage: %s month day hour [options]\n", progname);
+	fprintf(stderr, "   Or: %s -ang altitude azimuth [options]\n", progname);
 	fprintf(stderr, "   Or: %s -defaults\n", progname);
 	exit(1);
 }