| Revision: | 1.1 |
| Committed: | Thu Aug 22 08:49:42 1991 UTC (34 years, 2 months ago) by greg |
| Branch: | MAIN |
| Log Message: | Initial revision |
| # | Content |
|---|---|
| 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); |