--- ray/src/cv/lampcolor.c	1991/10/22 09:38:17	1.7
+++ ray/src/cv/lampcolor.c	2004/03/18 05:22:00	2.10
@@ -1,21 +1,18 @@
-/* Copyright (c) 1991 Regents of the University of California */
-
 #ifndef lint
-static char SCCSid[] = "$SunId$ LBL";
+static const char	RCSid[] = "$Id: lampcolor.c,v 2.10 2004/03/18 05:22:00 greg Exp $";
 #endif
-
 /*
  * Program to convert lamp color from table and compute radiance.
  */
 
 #include <stdio.h>
+#include <string.h>
+#include <math.h>
 
-#define PI	3.14159265358979323846
+#include "rtmath.h"
+#include "rtio.h"
+#include "color.h"
 
-extern char	*gets(), *strcpy();
-extern double	atof();
-extern float	*matchlamp();
-
 				/* lamp parameters */
 #define LTYPE		0
 #define LUNIT		1
@@ -23,8 +20,15 @@ extern float	*matchlamp();
 #define LOUTP		3
 #define NPARAMS		4
 
-int	typecheck(), unitcheck(), geomcheck(), outpcheck();
+static int typecheck(char *s);
+static int unitcheck(char *s);
+static int geomcheck(char *s);
+static int outpcheck(char *s);
+static void compute(void);
+static int getpolygon(void), getsphere(void), getcylinder(void), getring(void);
+static int getd(char *name, double *dp, char *help);
 
+
 float	*lampcolor;		/* the lamp color (RGB) */
 double	unit2meter;		/* conversion from units to meters */
 double	area;			/* radiating area for this geometry */
@@ -36,9 +40,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\
@@ -54,9 +58,11 @@ for fluorescent fixtures." },
 };
 
 
-main(argc, argv)
-int	argc;
-char	*argv[];
+int
+main(
+	int	argc,
+	char	*argv[]
+)
 {
 	char	*lamptab = "lamp.tab";
 	char	buf[64];
@@ -73,7 +79,7 @@ char	*argv[];
 		while (i < NPARAMS) {
 			printf("Enter %s [%s]: ", param[i].name,
 					param[i].value);
-			if (gets(buf) == NULL)
+			if (fgetline(buf, sizeof(buf), stdin) == NULL)
 				exit(0);
 			if (buf[0] == '?') {
 				puts(param[i].help);
@@ -93,16 +99,20 @@ char	*argv[];
 }
 
 
-typecheck(s)			/* check lamp type */
-char	*s;
+static int
+typecheck(			/* check lamp type */
+	char	*s
+)
 {
 	lampcolor = matchlamp(s);
 	return(lampcolor != NULL);
 }
 
 
-unitcheck(s)			/* compute conversion to meters */
-char	*s;
+static int
+unitcheck(			/* compute conversion to meters */
+	char	*s
+)
 {
 	int	len = strlen(s);
 
@@ -132,8 +142,10 @@ char	*s;
 }
 
 
-geomcheck(s)			/* check/set lamp geometry */
-char	*s;
+static int
+geomcheck(			/* check/set lamp geometry */
+	char	*s
+)
 {
 	int	len = strlen(s);
 
@@ -159,8 +171,10 @@ char	*s;
 }
 
 
-outpcheck(s)			/* check lumen output value */
-register char	*s;
+static int
+outpcheck(			/* check lumen output value */
+	register char	*s
+)
 {
 	if ((*s < '0' || *s > '9') && *s != '.')
 		return(0);
@@ -169,11 +183,12 @@ register char	*s;
 }
 
 
-compute()			/* compute lamp radiance */
+static void
+compute(void)			/* compute lamp radiance */
 {
 	double	whiteval;
 
-	whiteval = lumens/470./PI/area;
+	whiteval = lumens/area/(WHTEFFICACY*PI);
 
 	printf("Lamp color (RGB) = %f %f %f\n",
 			lampcolor[0]*whiteval,
@@ -182,15 +197,17 @@ compute()			/* compute lamp radiance */
 }
 
 
-getd(name, dp, help)		/* get a positive double from stdin */
-char	*name;
-double	*dp;
-char	*help;
+static int
+getd(		/* get a positive double from stdin */
+	char	*name,
+	double	*dp,
+	char	*help
+)
 {
 	char	buf[32];
 again:
 	printf("%s [%g]: ", name, *dp);
-	if (gets(buf) == NULL)
+	if (fgets(buf, sizeof(buf), stdin) == NULL)
 		return(0);
 	if (buf[0] == '?') {
 		puts(help);
@@ -203,18 +220,20 @@ again:
 }
 
 
-getpolygon()			/* get projected area for a polygon */
+static int
+getpolygon(void)			/* 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);
 }
 
 
-getsphere()			/* get projected area for a sphere */
+static int
+getsphere(void)			/* get projected area for a sphere */
 {
 	static double	radius = 1.0;
 
@@ -225,7 +244,8 @@ getsphere()			/* get projected area for a sphere */
 }
 
 
-getcylinder()			/* get projected area for a cylinder */
+static int
+getcylinder(void)			/* get projected area for a cylinder */
 {
 	static double	length = 1.0, radius = 0.1;
 
@@ -238,7 +258,8 @@ getcylinder()			/* get projected area for a cylinder *
 }
 
 
-getring()			/* get projected area for a ring */
+static int
+getring(void)			/* get projected area for a ring */
 {
 	static double	radius = 1.0;