src/gen/rev.cal

{ SCCSid "$SunId$ LBL" }

{
        Phong normal interpolation for surfaces of revolution about z.

        11/7/88

        (A1,A2) =       (Mz,Bz)
        (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;
Revision:	2.2
Committed:	Thu Jul 9 13:06:20 1998 UTC (26 years, 2 months ago) by gwlarson
Branch:	MAIN
Changes since 2.1:	+3 -3 lines
Log Message:	fixed variable ordering
#	User	Rev	Content
1	greg	1.1	{ SCCSid "$SunId$ LBL" }
2
3			{
4			Phong normal interpolation for surfaces of revolution about z.
5
6			11/7/88
7
8			(A1,A2) = (Mz,Bz)
9			(A3,A4) = (Mr,Br)
10			}
11
12	gwlarson	2.2	rev_dr = rev_rad*A3 + A4;
13			rev_rad = sqrt(PxPx + PyPy);
14
15	greg	1.1	rev_dx = rev_dr * Px/rev_rad;
16			rev_dy = rev_dr * Py/rev_rad;
17			rev_dz = Pz*A1 + A2;