--- ray/src/rt/normal.c	1992/01/16 12:05:29	2.9
+++ ray/src/rt/normal.c	1992/03/03 16:20:02	2.12
@@ -43,10 +43,10 @@ extern double  specjitter;		/* specular sampling jitte
 				/* specularity flags */
 #define  SP_REFL	01		/* has reflected specular component */
 #define  SP_TRAN	02		/* has transmitted specular */
-#define  SP_PURE	010		/* purely specular (zero roughness) */
-#define  SP_FLAT	020		/* flat reflecting surface */
-#define  SP_RBLT	040		/* reflection below sample threshold */
-#define  SP_TBLT	0100		/* transmission below threshold */
+#define  SP_PURE	04		/* purely specular (zero roughness) */
+#define  SP_FLAT	010		/* flat reflecting surface */
+#define  SP_RBLT	020		/* reflection below sample threshold */
+#define  SP_TBLT	040		/* transmission below threshold */
 
 typedef struct {
 	OBJREC  *mp;		/* material pointer */
@@ -194,8 +194,7 @@ register RAY  *r;
 						/* check threshold */
 		if (specthresh > FTINY &&
 				((specthresh >= 1.-FTINY ||
-				specthresh + (.05 - .1*urand(8199+samplendx))
-					> nd.rspec)))
+				specthresh + (.05 - .1*frandom()) > nd.rspec)))
 			nd.specfl |= SP_RBLT;
 						/* compute reflected ray */
 		for (i = 0; i < 3; i++)
@@ -225,8 +224,7 @@ register RAY  *r;
 			if (specthresh > FTINY &&
 					((specthresh >= 1.-FTINY ||
 					specthresh +
-					    (.05 - .1*urand(7241+samplendx))
-						> nd.tspec)))
+					    (.05 - .1*frandom()) > nd.tspec)))
 				nd.specfl |= SP_TBLT;
 			if (r->crtype & SHADOW ||
 					DOT(r->pert,r->pert) <= FTINY*FTINY) {
@@ -256,7 +254,8 @@ register RAY  *r;
 			transtest *= bright(lr.rcol);
 			transdist = r->rot + lr.rt;
 		}
-	}
+	} else
+		transtest = 0;
 
 	if (r->crtype & SHADOW)			/* the rest is shadow */
 		return;
@@ -266,7 +265,8 @@ register RAY  *r;
 	if (nd.specfl & SP_PURE && nd.rdiff <= FTINY && nd.tdiff <= FTINY)
 		return;				/* 100% pure specular */
 
-	if (r->ro->otype == OBJ_FACE || r->ro->otype == OBJ_RING)
+	if (r->ro != NULL && (r->ro->otype == OBJ_FACE ||
+			r->ro->otype == OBJ_RING))
 		nd.specfl |= SP_FLAT;
 
 	if (nd.specfl & (SP_REFL|SP_TRAN) && !(nd.specfl & SP_PURE))
@@ -366,7 +366,8 @@ register NORMDAT  *np;
 		else
 			VCOPY(sr.rdir, np->prdir);	/* else no jitter */
 		rayvalue(&sr);
-		multcolor(sr.rcol, np->scolor);
+		scalecolor(sr.rcol, np->tspec);
+		multcolor(sr.rcol, np->mcolor);		/* modified by color */
 		addcolor(r->rcol, sr.rcol);
 		ndims--;
 	}