--- ray/src/gen/rev.cal	1991/11/12 17:05:14	2.1
+++ ray/src/gen/rev.cal	2003/02/22 02:07:24	2.3
@@ -1,5 +1,4 @@
-{ SCCSid "$SunId$ LBL" }
-
+{ RCSid: $Id: rev.cal,v 2.3 2003/02/22 02:07:24 greg Exp $ }
 {
 	Phong normal interpolation for surfaces of revolution about z.
 
@@ -9,9 +8,9 @@
 	(A3,A4) =	(Mr,Br)
 }
 
+rev_dr = rev_rad*A3 + A4;
+rev_rad = sqrt(Px*Px + Py*Py);
+
 rev_dx = rev_dr * Px/rev_rad;
 rev_dy = rev_dr * Py/rev_rad;
 rev_dz = Pz*A1 + A2;
-
-rev_dr = rev_rad*A3 + A4;
-rev_rad = sqrt(Px*Px + Py*Py);