--- ray/src/rt/dielectric.c	1989/02/02 10:41:21	1.1
+++ ray/src/rt/dielectric.c	1990/03/27 11:39:58	1.3
@@ -92,7 +92,7 @@ register RAY  *r;
 		else
 			setcolor(mcolor, 1.0, 1.0, 1.0);
 	}
-	mabsorp = intens(mcolor);
+	mabsorp = bright(mcolor);
 
 	d2 = 1.0 - nratio*nratio*(1.0 - cos1*cos1);	/* compute cos theta2 */
 
@@ -135,6 +135,7 @@ register RAY  *r;
 				multcolor(mcolor, r->pcol);	/* modify */
 				scalecolor(p.rcol, trans);
 				addcolor(r->rcol, p.rcol);
+				r->rt = r->rot + p.rt;
 			}
 		}
 	}
@@ -150,6 +151,8 @@ register RAY  *r;
 
 		scalecolor(p.rcol, refl);	/* color contribution */
 		addcolor(r->rcol, p.rcol);
+		if (refl > trans)
+			r->rt = r->rot + p.rt;
 	}
 
 	multcolor(r->rcol, mcolor);		/* multiply by transmittance */
@@ -253,7 +256,7 @@ double  tr;
 						/* trace source ray */
 		normalize(sray.rdir);
 		rayvalue(&sray);
-		if (intens(sray.rcol) <= FTINY)	/* missed it */
+		if (bright(sray.rcol) <= FTINY)	/* missed it */
 			continue;
 		
 		/*