--- ray/src/rt/virtuals.c	1991/06/25 16:42:05	1.12
+++ ray/src/rt/virtuals.c	1991/06/26 14:26:52	1.15
@@ -19,7 +19,10 @@ static char SCCSid[] = "$SunId$ LBL";
 
 #include  "random.h"
 
+#define  MINSAMPLES	5		/* minimum number of pretest samples */
+#define  STESTMAX	30		/* maximum seeks per sample */
 
+
 double  getdisk();
 
 static OBJECT  *vobject;		/* virtual source objects */
@@ -158,14 +161,24 @@ MAT4  pm;
 			return(-1);		/* at source!! */
 		if (source[sn].sflags & SPROX && d > source[sn].sl.prox)
 			return(-1);		/* too far away */
-		ourspot.siz = 2.*PI*(1. - d/sqrt(d*d+maxrad2));
 		ourspot.flen = 0.;
+		if (d*d > maxrad2)
+			ourspot.siz = 2.*PI*(1. - sqrt(1.-maxrad2/(d*d)));
+		else
+			nsflags &= ~SSPOT;
 		if (source[sn].sflags & SSPOT) {
 			copystruct(&theirspot, source[sn].sl.s);
 			multv3(theirspot.aim, source[sn].sl.s->aim, pm);
-			d = ourspot.siz;
-			if (!commonspot(&ourspot, &theirspot, nsloc))
-				return(-1);	/* no overlap */
+			if (nsflags & SSPOT) {
+				ourspot.flen = theirspot.flen;
+				d = ourspot.siz;
+				if (!commonspot(&ourspot, &theirspot, nsloc))
+					return(-1);	/* no overlap */
+			} else {
+				nsflags |= SSPOT;
+				copystruct(&ourspot, &theirspot);
+				d = 2.*ourspot.siz;
+			}
 			if (ourspot.siz < d-FTINY) {	/* it shrunk */
 				d = spotdisk(v, op, &ourspot, nsloc);
 				if (d <= FTINY)
@@ -175,7 +188,6 @@ MAT4  pm;
 					VCOPY(ocent, v);
 				}
 			}
-			ourspot.flen = theirspot.flen;
 		}
 		if (source[sn].sflags & SFLAT) {	/* behind source? */
 			multv3(nsnorm, source[sn].snorm, pm);
@@ -195,9 +207,11 @@ MAT4  pm;
 	if (nsflags & SFLAT)
 		VCOPY(source[i].snorm, nsnorm);
 	source[i].ss = source[sn].ss; source[i].ss2 = source[sn].ss2;
-	if ((source[i].sl.s = (SPOT *)malloc(sizeof(SPOT))) == NULL)
-		goto memerr;
-	copystruct(source[i].sl.s, &ourspot);
+	if (nsflags & SSPOT) {
+		if ((source[i].sl.s = (SPOT *)malloc(sizeof(SPOT))) == NULL)
+			goto memerr;
+		copystruct(source[i].sl.s, &ourspot);
+	}
 	if (nsflags & SPROX)
 		source[i].sl.prox = source[sn].sl.prox;
 	source[i].sa.svnext = sn;
@@ -272,14 +286,14 @@ register int  sn;	/* target source number */
 		n = or2/DOT(offsdir,offsdir)*vspretest + .5;
 		infront = DOT(onorm, offsdir) > 0.;
 	}
-	if (n < 1) n = 1;
+	if (n < MINSAMPLES) n = MINSAMPLES;
 #ifdef DEBUG
 	fprintf(stderr, "pretesting source %d in object %s with %d rays\n",
 			sn, o->oname, n);
 #endif
 				/* sample */
 	or = sqrt(or2);
-	ssn = 25*n;
+	ssn = STESTMAX*n;
 	nhit = nok = 0;
 	while (n-- > 0) {
 					/* get sample point */