--- ray/src/gen/illum.cal	1991/08/22 08:49:41	1.1
+++ ray/src/gen/illum.cal	2003/02/22 02:07:23	2.8
@@ -1,5 +1,4 @@
-{ SCCSid "$SunId$ LBL" }
-
+{ RCSid: $Id: illum.cal,v 2.8 2003/02/22 02:07:23 greg Exp $ }
 {
 	Coordinate computations for mkillum output.
 
@@ -15,10 +14,10 @@
 	il_azih		- Azimuth (0 to 2*PI) for hemisphere
 }
 
+norm_rad(r) : if( r, r, r+2*PI );
+
 il_alt = Dz;
-il_azi = norm_rad(atan2(Dy, Dx));
+il_azi = norm_rad(Atan2(Dy, Dx));
 
 il_alth = sq(-Dx*A7-Dy*A8-Dz*A9);
-il_azih = norm_rad(atan2(-Dx*A4-Dy*A5-Dz*A6, -Dx*A1-Dy*A2-Dz*A3));
-
-norm_rad(r) = if( r, r, r+2*PI );
+il_azih = norm_rad(Atan2(-Dx*A4-Dy*A5-Dz*A6, -Dx*A1-Dy*A2-Dz*A3));