--- ray/src/util/findglare.c	1992/12/07 09:13:58	2.4
+++ ray/src/util/findglare.c	1993/06/07 10:31:35	2.6
@@ -112,6 +112,7 @@ char	*argv[];
 			/* FALL THROUGH */
 		case 'l':
 		case 's':
+		case 'P':
 			rtargv[rtargc++] = argv[i];
 			rtargv[rtargc++] = argv[++i];
 			break;
@@ -363,8 +364,8 @@ int	x, y;
 		xo = x-hl;
 	else
 		xo = 0;
-	disc = 1. - (double)(xo*xo + y*y)/(sampdens*sampdens);
-	if (disc <= FTINY)
+	disc = 1. - (double)((long)xo*xo + (long)y*y)/((long)sampdens*sampdens);
+	if (disc <= FTINY*FTINY)
 		return(0.);
 	return(1./(sampdens*sampdens*sqrt(disc)));
 }