# | Line 1 | Line 1 | |
---|---|---|
1 | < | { SCCSid "$SunId$ LBL" } |
2 | < | |
1 | > | { RCSid: $Id$ } |
2 | { | |
3 | Phong normal interpolation for surfaces of revolution about z. | |
4 | ||
# | Line 9 | Line 8 | |
8 | (A3,A4) = (Mr,Br) | |
9 | } | |
10 | ||
11 | + | rev_dr = rev_rad*A3 + A4; |
12 | + | rev_rad = sqrt(Px*Px + Py*Py); |
13 | + | |
14 | rev_dx = rev_dr * Px/rev_rad; | |
15 | rev_dy = rev_dr * Py/rev_rad; | |
16 | rev_dz = Pz*A1 + A2; | |
15 | – | |
16 | – | rev_dr = rev_rad*A3 + A4; |
17 | – | rev_rad = sqrt(Px*Px + Py*Py); |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |