Revision: | 1.1 |
Committed: | Thu Aug 22 08:49:42 1991 UTC (33 years, 8 months ago) by greg |
Branch: | MAIN |
Log Message: | Initial revision |
# | 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 | rev_dx = rev_dr * Px/rev_rad; | ||
13 | rev_dy = rev_dr * Py/rev_rad; | ||
14 | rev_dz = Pz*A1 + A2; | ||
15 | |||
16 | rev_dr = rev_rad*A3 + A4; | ||
17 | rev_rad = sqrt(Px*Px + Py*Py); |