home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / source / radsrc22 / src / gen / rev.cal < prev    next >
Encoding:
Text File  |  1991-11-12  |  317 b   |  18 lines
  1. { SCCSid "@(#)rev.cal 2.1 11/12/91 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);
  18.