home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / source / radsrc22 / src / gen / illum.cal < prev    next >
Encoding:
Text File  |  1992-08-13  |  656 b   |  25 lines
  1. { SCCSid "@(#)illum.cal 2.5 8/13/92 LBL" }
  2.  
  3. {
  4.     Coordinate computations for mkillum output.
  5.  
  6.     There are no arguments for the spherical case:
  7.  
  8.     il_alt        - Altitude (1 to -1) for spherical coordinates
  9.     il_azi        - Azimuth (0 to 2*PI) for sphere
  10.  
  11.     For the hemispherical case, A1-A9 are the unit vectors for the
  12.     hemisphere's coordinate system:
  13.  
  14.     il_alth        - Altitude (1 to 0) for hemispherical coordinates
  15.     il_azih        - Azimuth (0 to 2*PI) for hemisphere
  16. }
  17.  
  18. il_alt = Dz;
  19. il_azi = norm_rad(atan2(Dy, Dx));
  20.  
  21. il_alth = sq(-Dx*A7-Dy*A8-Dz*A9);
  22. il_azih = norm_rad(atan2(-Dx*A4-Dy*A5-Dz*A6, -Dx*A1-Dy*A2-Dz*A3));
  23.  
  24. norm_rad(r) = if( r, r, r+2*PI );
  25.