src/gen/rev.cal

{ RCSid: $Id$ }
{
        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.3
Committed:	Sat Feb 22 02:07:24 2003 UTC (22 years ago) by greg
Branch:	MAIN
CVS Tags:	rad5R4, rad5R2, rad4R2P2, rad5R0, rad5R1, rad3R7P2, rad3R7P1, rad4R2, rad4R1, rad4R0, rad3R5, rad3R6, rad3R6P1, rad3R8, rad3R9, rad4R2P1, rad5R3, HEAD
Changes since 2.2:	+1 -2 lines
Log Message:	Changes and check-in for 3.5 release Includes new source files and modifications not recorded for many years See ray/doc/notes/ReleaseNotes for notes between 3.1 and 3.5 release
#	Content
1	{ RCSid: $Id$ }
2	{
3	Phong normal interpolation for surfaces of revolution about z.
4
5	11/7/88
6
7	(A1,A2) = (Mz,Bz)
8	(A3,A4) = (Mr,Br)
9	}
10
11	rev_dr = rev_rad*A3 + A4;
12	rev_rad = sqrt(PxPx + PyPy);
13
14	rev_dx = rev_dr * Px/rev_rad;
15	rev_dy = rev_dr * Py/rev_rad;
16	rev_dz = Pz*A1 + A2;