--- ray/src/cv/lampcolor.c	1991/10/24 12:17:38	1.8
+++ ray/src/cv/lampcolor.c	1994/07/05 15:49:51	2.5
@@ -10,12 +10,13 @@ static char SCCSid[] = "$SunId$ LBL";
 
 #include <stdio.h>
 
+#include <math.h>
+
 #include "color.h"
 
 #define PI	3.14159265358979323846
 
 extern char	*gets(), *strcpy();
-extern double	atof();
 extern float	*matchlamp();
 
 				/* lamp parameters */
@@ -38,9 +39,9 @@ struct {
 	int	(*check)();
 	char	*help;
 } param[NPARAMS] = {
-	{ "lamp type", "white", typecheck,
+	{ "lamp type", "WHITE", typecheck,
 "The lamp type is a string which corresponds to one of the types registered\n\
-in the lamp table file.  A value of \"white\" means an uncolored source,\n\
+in the lamp table file.  A value of \"WHITE\" means an uncolored source,\n\
 which may be preferable because it results in a color balanced image." },
 	{ "length unit", "meter", unitcheck,
 "Unit must be one of:  \"meter\", \"centimeter\", \"foot\", or \"inch\".\n\
@@ -207,11 +208,11 @@ again:
 
 getpolygon()			/* get projected area for a polygon */
 {
-	static double	area = 1.0;
+	static double	parea = 1.0;
 
-	getd("Polygon area", &area,
+	getd("Polygon area", &parea,
 		"Enter the total radiating area of the polygon.");
-	area = unit2meter*unit2meter * area;
+	area = unit2meter*unit2meter * parea;
 	return(1);
 }